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    BR232186  16/12/05    21:40:11     9238           
  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 = 20
  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.  
  42.       RETURN
  43.       END
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  

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