Esope source files

   1 : C MODPLA    SOURCE    BR232186  13/12/09    21:15:21     7841           
   2 :       SUBROUTINE MODPLA(MOMODL,NMOD)
   3 : *----------------------------------------------------------------------
   4 : *     -  CAS DE LA FORMULATION 'MECANIQUE' + 'PLASTIQUE'
   5 : *    DEFINITION DES NOMS DES MATERIAUX
   6 : *----------------------------------------------------------------------
   7 :       IMPLICIT INTEGER(I-N)
   8 : -INC CCOPTIO
   9 : *
  10 :       CHARACTER*16 MOMODL(*)
  11 : *
  12 : *     Noms des materiaux
  13 : *
  14 :       NMOD=73
  15 : *
  16 :       MOMODL( 1)='ISOTROPE'
  17 :       MOMODL( 2)='PARFAIT'
  18 :       MOMODL( 3)='CINEMATIQUE'
  19 :       MOMODL( 4)='DRUCKER_PRAGER'
  20 :       MOMODL( 5)='DRUCKER_PARFAIT'
  21 :       MOMODL( 6)='BETON'
  22 :       MOMODL( 7)='CHABOCHE1'
  23 :       MOMODL( 8)='CHABOCHE2'
  24 :       MOMODL( 9)='TUYAU_FISSURE'
  25 :       MOMODL(10)='ENDOMMAGEABLE'
  26 :       MOMODL(11)='GAUVAIN'
  27 :       MOMODL(12)='LINESPRING'
  28 :       MOMODL(13)='UBIQUITOUS'
  29 :       MOMODL(14)='GLOBAL'
  30 :       MOMODL(15)='CAM_CLAY'
  31 :       MOMODL(16)='COULOMB'
  32 :       MOMODL(17)='JOINT_DILATANT'
  33 :       MOMODL(18)='BETON_AXI'
  34 :       MOMODL(19)='GURSON'
  35 :       MOMODL(20)='BETON_UNI'
  36 :       MOMODL(21)='ACIER_UNI'
  37 :       MOMODL(22)='SECTION'
  38 :       MOMODL(23)='OTTOSEN'
  39 :       MOMODL(24)='MAZARS'
  40 :       MOMODL(25)='AMADEI'
  41 :       MOMODL(26)='HUJEUX'
  42 :       MOMODL(27)='STEINBERG'
  43 :       MOMODL(28)='ZERILLI'
  44 :       MOMODL(29)='PRESTON'
  45 :       MOMODL(30)='BETOCYCL'
  46 :       MOMODL(31)='ROTATING_CRACK'
  47 :       MOMODL(32)='JOINT_SOFT'
  48 :       MOMODL(33)='BILIN_MOMY'
  49 :       MOMODL(34)='BILIN_EFFZ'
  50 :       MOMODL(35)='TAKEMO_MOMY'
  51 :       MOMODL(36)='TAKEMO_EFFZ'
  52 :       MOMODL(37)='BETON_INSA'
  53 :       MOMODL(38)='ECROUIS_INSA'
  54 :       MOMODL(39)='PARFAIT_INSA'
  55 :       MOMODL(40)='ALONSO'
  56 :       MOMODL(41)='PAKZAD'
  57 :       MOMODL(42)='INFILL_UNI'
  58 :       MOMODL(43)='CISAIL_NL'
  59 :       MOMODL(44)='FRAGILE_UNI'
  60 :       MOMODL(45)='BETON_BAEL'
  61 :       MOMODL(46)='PARFAIT_UNI'
  62 :       MOMODL(47)='STRUT_UNI'
  63 :       MOMODL(48)='HINTE'
  64 :       MOMODL(49)='ANCRAGE_ELIGEHAUSEN'
  65 :       MOMODL(50)='CINEMATIQUE_ANCRAGE'
  66 :       MOMODL(51)='ACIER_ANCRAGE'
  67 :       MOMODL(52)='BETON_URGC'
  68 :       MOMODL(53)='UNILATERAL'
  69 :       MOMODL(54)='MRS_LADE'
  70 :       MOMODL(55)='J2'
  71 :       MOMODL(56)='RH_COULOMB'
  72 :       MOMODL(57)='VMT_FEFP'
  73 :       MOMODL(58)='RHMC_FEFP'
  74 :       MOMODL(59)='POWDER_FEFP'
  75 :       MOMODL(60)='POWDERCAP_FEFP'
  76 :       MOMODL(61)='JOINT_COAT'
  77 :       MOMODL(62)='CONCRETE_UNI'
  78 :       MOMODL(63)='MUR_SHEAR'
  79 :       MOMODL(64)='INCO'
  80 :       MOMODL(65)='DRUCKER_PRAGER_2'
  81 :       MOMODL(66)='NA    ' 
  82 :       MOMODL(67)='INTIMP' 
  83 :       MOMODL(68)='INTJOI'
  84 :       MOMODL(69)='BILIN_EFFX'
  85 :       MOMODL(70)='ISS_GRANGE'
  86 :       MOMODL(71)='RUP_THER'
  87 : C +BR
  88 :       MOMODL(72)='RICBET_UNI'
  89 :       MOMODL(73)='BA1D'
  90 : C -BR      
  91 :           RETURN
  92 :       END
  93 :  
  94 :  
  95 :  
  96 :  
  97 :  
  98 :  
  99 :