Télécharger la plaquette Cast3M


fr en

Télécharger modthe.eso

Retour à la liste

Numérotation des lignes : 

modthe

  1. C MODTHE    SOURCE    MB234859  25/08/26    21:15:17     12343          
  2. C=======================================================================
  3. C=  Objet MODELE  -  Cas de la formulation 'THERMIQUE'                 =
  4. C=                                                                     =
  5. C=  Definition des noms de modeles de MATERIAU                         =
  6. C=======================================================================
  7. C
  8.       SUBROUTINE MODTHE(MOMODL,NMOD)
  9. C
  10.       IMPLICIT INTEGER(I-N)
  11. C
  12. -INC PPARAM
  13. -INC CCOPTIO
  14.       CHARACTER*16 MOMODL(*)
  15. C
  16.       IF (IDIM.EQ.1) THEN
  17.         NMOD=1
  18.         MOMODL(1)='ISOTROPE        '
  19.       ELSE
  20.         NMOD=3
  21.         MOMODL(1)='ISOTROPE        '
  22.         MOMODL(2)='ORTHOTROPE      '
  23.         MOMODL(3)='ANISOTROPE      '
  24.       ENDIF
  25.  
  26.       END
  27.  
  28.  

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