Télécharger modend.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  9. *
  10. CHARACTER*16 MOMODL(*)
  11. *
  12. * Noms des materiaux
  13. *
  14.  
  15. C +BR
  16. NMOD = 20
  17. C -BR
  18.  
  19. MOMODL(1)='MAZARS'
  20. MOMODL(2)='UNILATERAL'
  21. MOMODL(3)='ROTATING_CRACK'
  22. MOMODL(4)='SIC_SIC'
  23. MOMODL(5)='MICROPLANS'
  24. MOMODL(6)='VISCOUNILATERAL'
  25. MOMODL(7)='MICROISO'
  26. MOMODL(8)='MVM'
  27. MOMODL(9)='CRUCRA'
  28. MOMODL(10)='DAMAGE_TC'
  29. MOMODL(11)='SICSCAL'
  30. MOMODL(12)='SICTENS'
  31. MOMODL(13)='DESMORAT'
  32. MOMODL(14)='FATSIN'
  33. MOMODL(15)='RICRAG'
  34. MOMODL(16)='GLRC_DM'
  35. MOMODL(17)='RICBET'
  36. MOMODL(18)='RICCOQ'
  37. MOMODL(19)='CONCYC'
  38. MOMODL(20)='EFEM'
  39.  
  40. RETURN
  41. END
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  

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