Télécharger la plaquette Cast3M


fr en

Télécharger modela.eso

Retour à la liste

Numérotation des lignes : 

modela

  1. C MODELA    SOURCE    JK148537  25/12/12    21:15:06     12418          
  2.  
  3. C=======================================================================
  4. C=   Definition des noms des MATERIAUX :                               =
  5. C=   Cas de la FORMULATION 'MECANIQUE' + 'ELASTIQUE'                   =
  6. C=======================================================================
  7.  
  8.       SUBROUTINE MODELA (MOMODL,NMOD)
  9.  
  10.       IMPLICIT INTEGER(I-N)
  11.       IMPLICIT REAL*8 (A-H,O-Z)
  12.  
  13.  
  14. -INC PPARAM
  15. -INC CCOPTIO
  16.  
  17.       CHARACTER*16 MOMODL(*)
  18.  
  19. C  1 - Noms des MATERIAUX :
  20. C --------------------------
  21.       IF (IDIM.EQ.1) THEN
  22.         NMOD=2
  23.         MOMODL(1)='ISOTROPE'
  24.         MOMODL(2)='ORTHOTROPE'
  25.       ELSE
  26.         NMOD=12
  27.         MOMODL(1)='ISOTROPE'
  28.         MOMODL(2)='ORTHOTROPE'
  29.         MOMODL(3)='ANISOTROPE'
  30.         MOMODL(4)='PORPOR'
  31.         MOMODL(5)='HOMOGENEISE'
  32.         MOMODL(6)='UNIDIRECTIONNEL'
  33.         MOMODL(7)='SECTION'
  34.         MOMODL(8)='ARMATURE'
  35.         MOMODL(9)='MODAL'
  36.         MOMODL(10)='STATIQUE'
  37.         MOMODL(11)='ZONE_COHESIVE'
  38.         MOMODL(12)='ADVECTION'
  39.       ENDIF
  40.  
  41.       RETURN
  42.       END
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  

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