Esope source files

   1 : C MODELA    SOURCE    AM        12/02/06    21:16:01     7281           
   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 : -INC CCOPTIO
  14 : 
  15 :       CHARACTER*16 MOMODL(*)
  16 : 
  17 : C  1 - Noms des MATERIAUX :
  18 : C --------------------------
  19 :       IF (IDIM.EQ.1) THEN
  20 :         NMOD=2
  21 :         MOMODL(1)='ISOTROPE'
  22 :         MOMODL(2)='ORTHOTROPE'
  23 :       ELSE
  24 :         NMOD=11
  25 :         MOMODL(1)='ISOTROPE'
  26 :         MOMODL(2)='ORTHOTROPE'
  27 :         MOMODL(3)='ANISOTROPE'
  28 :         MOMODL(4)='PORPOR'
  29 :         MOMODL(5)='HOMOGENEISE'
  30 :         MOMODL(6)='UNIDIRECTIONNEL'
  31 :         MOMODL(7)='SECTION'
  32 :         MOMODL(8)='ARMATURE'
  33 :         MOMODL(9)='MODAL'
  34 :         MOMODL(10)='STATIQUE'
  35 :         MOMODL(11)='ZONE_COHESIVE'
  36 : 
  37 :       ENDIF
  38 : 
  39 :       RETURN
  40 :       END
  41 : 
  42 :  
  43 :  
  44 :  
  45 :  
  46 :  
  47 :