Télécharger la plaquette Cast3M


fr en

Télécharger mode10.eso

Retour à la liste

Numérotation des lignes : 

mode10

  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