Télécharger mode10.eso

Retour à la liste

Numérotation des lignes :

  1. C MODE10 SOURCE CHAT 05/01/13 01:47:42 5004
  2. SUBROUTINE MODE10(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  3. *----------------------------------------------------------------------
  4. * OBJET MODELE - CAS DE LA FORMULATION 'MAGNETODYNAMIQUE'
  5. * DEFINITION DES NOMS DE MODELES DE MATERIAU
  6. * ET DES NOMS DE TYPES D'ELEMENTS FINIS
  7. *----------------------------------------------------------------------
  8. IMPLICIT INTEGER(I-N)
  9. -INC CCOPTIO
  10. CHARACTER*16 LESPRO(*)
  11. *
  12. CHARACTER*4 LESTEF(*)
  13. *
  14. * NOMS DE MODELES DE MATERIAU
  15. *
  16. NBPRO=3
  17. IF(NBPRO.GT.N1MAX) GO TO 99
  18. LESPRO(1)='POTENTIEL_VECTEU'
  19. LESPRO(2)='ISOTROPE'
  20. LESPRO(3)='ORTHOTROPE'
  21. *
  22. * NOMS DE TYPES D'ELEMENTS FINIS
  23. *
  24. NBTEF=1
  25. IF(NBTEF.GT.N2MAX) GO TO 99
  26. LESTEF(1)='ROT3'
  27. RETURN
  28. 99 CALL ERREUR(5)
  29. RETURN
  30. END
  31.  
  32.  
  33.  
  34.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales