Télécharger la plaquette Cast3M


fr en

Télécharger modend.eso

Retour à la liste

Numérotation des lignes : 

modend

  1. C MODEND    SOURCE    MB234859  26/01/19    21:15:25     12454          
  2.       SUBROUTINE MODEND(MOMODL,NMOD)
  3. *----------------------------------------------------------------------
  4. *     -  CAS DE LA FORMULATION 'MECANIQUE' + 'ENDOMMAGEMENT'
  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. *
  16.  
  17. C     +BR
  18.       NMOD = 24
  19. C     -BR
  20.  
  21.       MOMODL(1)='MAZARS'
  22.       MOMODL(2)='UNILATERAL'
  23.       MOMODL(3)='ROTATING_CRACK'
  24.       MOMODL(4)='SIC_SIC'
  25.       MOMODL(5)='MICROPLANS'
  26.       MOMODL(6)='VISCOUNILATERAL'
  27.       MOMODL(7)='MICROISO'
  28.       MOMODL(8)='MVM'
  29.       MOMODL(9)='CRUCRA'
  30.       MOMODL(10)='DAMAGE_TC'
  31.       MOMODL(11)='SICSCAL'
  32.       MOMODL(12)='SICTENS'
  33.       MOMODL(13)='DESMORAT'
  34.       MOMODL(14)='FATSIN'
  35.       MOMODL(15)='RICRAG'
  36.       MOMODL(16)='GLRC_DM'
  37.       MOMODL(17)='RICBET'
  38.       MOMODL(18)='RICCOQ'
  39.       MOMODL(19)='CONCYC'
  40.       MOMODL(20)='EFEM'
  41.       MOMODL(21)='MAZARS_RTC'
  42.       MOMODL(22)='MAZARS_INI'
  43.       MOMODL(23)='MAZARS_LIN'
  44.       MOMODL(24)='MAZARS_RT'
  45.  
  46.  
  47.       RETURN
  48.       END
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  

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