Télécharger modpla.eso

Retour à la liste

Numérotation des lignes :

  1. C MODPLA SOURCE FD218221 19/12/04 21:15:28 10398
  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.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11. *
  12. CHARACTER*16 MOMODL(*)
  13. *
  14. * Noms des materiaux
  15. c cccccc
  16. NMOD=82
  17. c cccccc
  18. *
  19. MOMODL( 1)='ISOTROPE'
  20. MOMODL( 2)='PARFAIT'
  21. MOMODL( 3)='CINEMATIQUE'
  22. MOMODL( 4)='DRUCKER_PRAGER'
  23. MOMODL( 5)='DRUCKER_PARFAIT'
  24. MOMODL( 6)='BETON'
  25. MOMODL( 7)='CHABOCHE1'
  26. MOMODL( 8)='CHABOCHE2'
  27. MOMODL( 9)='TUYAU_FISSURE'
  28. MOMODL(10)='ENDOMMAGEABLE'
  29. MOMODL(11)='GAUVAIN'
  30. MOMODL(12)='LINESPRING'
  31. MOMODL(13)='UBIQUITOUS'
  32. MOMODL(14)='GLOBAL'
  33. MOMODL(15)='CAM_CLAY'
  34. MOMODL(16)='COULOMB'
  35. MOMODL(17)='JOINT_DILATANT'
  36. MOMODL(18)='BETON_AXI'
  37. MOMODL(19)='GURSON'
  38. MOMODL(20)='BETON_UNI'
  39. MOMODL(21)='ACIER_UNI'
  40. MOMODL(22)='SECTION'
  41. MOMODL(23)='OTTOSEN'
  42. MOMODL(24)='MAZARS'
  43. MOMODL(25)='AMADEI'
  44. MOMODL(26)='HUJEUX'
  45. MOMODL(27)='STEINBERG'
  46. MOMODL(28)='ZERILLI'
  47. MOMODL(29)='PRESTON'
  48. MOMODL(30)='BETOCYCL'
  49. MOMODL(31)='ROTATING_CRACK'
  50. MOMODL(32)='JOINT_SOFT'
  51. MOMODL(33)='BILIN_MOMY'
  52. MOMODL(34)='BILIN_EFFZ'
  53. MOMODL(35)='TAKEMO_MOMY'
  54. MOMODL(36)='TAKEMO_EFFZ'
  55. MOMODL(37)='BETON_INSA'
  56. MOMODL(38)='ECROUIS_INSA'
  57. MOMODL(39)='PARFAIT_INSA'
  58. MOMODL(40)='ALONSO'
  59. MOMODL(41)='PAKZAD'
  60. MOMODL(42)='INFILL_UNI'
  61. MOMODL(43)='CISAIL_NL'
  62. MOMODL(44)='FRAGILE_UNI'
  63. MOMODL(45)='BETON_BAEL'
  64. MOMODL(46)='PARFAIT_UNI'
  65. MOMODL(47)='STRUT_UNI'
  66. MOMODL(48)='HINTE'
  67. MOMODL(49)='ANCRAGE_ELIGEHAUSEN'
  68. MOMODL(50)='CINEMATIQUE_ANCRAGE'
  69. MOMODL(51)='ACIER_ANCRAGE'
  70. MOMODL(52)='BETON_URGC'
  71. MOMODL(53)='UNILATERAL'
  72. MOMODL(54)='MRS_LADE'
  73. MOMODL(55)='J2'
  74. MOMODL(56)='RH_COULOMB'
  75. MOMODL(57)='VMT_FEFP'
  76. MOMODL(58)='RHMC_FEFP'
  77. MOMODL(59)='POWDER_FEFP'
  78. MOMODL(60)='POWDERCAP_FEFP'
  79. MOMODL(61)='JOINT_COAT'
  80. MOMODL(62)='CONCRETE_UNI'
  81. MOMODL(63)='MUR_SHEAR'
  82. MOMODL(64)='INCO'
  83. MOMODL(65)='DRUCKER_PRAGER_2'
  84. MOMODL(66)='NA '
  85. MOMODL(67)='INTIMP'
  86. MOMODL(68)='INTJOI'
  87. MOMODL(69)='BILIN_EFFX'
  88. MOMODL(70)='ISS_GRANGE'
  89. MOMODL(71)='RUP_THER'
  90. MOMODL(72)='RICBET_UNI'
  91. MOMODL(73)='BA1D'
  92. MOMODL(74)='LIAISON_ACBE'
  93. MOMODL(75)='DP_SOL'
  94. MOMODL(76)='OUGLOVA'
  95. MOMODL(77)='IWPR3D_SOL'
  96. MOMODL(78)='NORTON'
  97. MOMODL(79)='POLYNOMIAL'
  98. MOMODL(80)='BLACKBURN'
  99. MOMODL(81)='BLACKBURN_2'
  100. MOMODL(82)='LEMAITRE'
  101. RETURN
  102. END
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  

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