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.  
  10. -INC PPARAM
  11. -INC CCOPTIO
  12. CHARACTER*16 LESPRO(*)
  13. *
  14. CHARACTER*4 LESTEF(*)
  15. *
  16. * NOMS DE MODELES DE MATERIAU
  17. *
  18. NBPRO=3
  19. IF(NBPRO.GT.N1MAX) GO TO 99
  20. LESPRO(1)='POTENTIEL_VECTEU'
  21. LESPRO(2)='ISOTROPE'
  22. LESPRO(3)='ORTHOTROPE'
  23. *
  24. * NOMS DE TYPES D'ELEMENTS FINIS
  25. *
  26. NBTEF=1
  27. IF(NBTEF.GT.N2MAX) GO TO 99
  28. LESTEF(1)='ROT3'
  29. RETURN
  30. 99 CALL ERREUR(5)
  31. RETURN
  32. END
  33.  
  34.  
  35.  
  36.  

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