Télécharger modvis.eso

Retour à la liste

Numérotation des lignes :

  1. C MODVIS SOURCE YURI 11/10/28 22:15:31 7181
  2. SUBROUTINE MODVIS(MOMODL,NMOD)
  3. *----------------------------------------------------------------------
  4. * - CAS DE LA FORMULATION 'MECANIQUE' + 'VISCOPLASTIQUE'
  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=29
  15. MOMODL(1)='GUIONNET'
  16. MOMODL(2)='CHABOCHE'
  17. MOMODL(3)='VISCODOMMAGE'
  18. MOMODL(4)='PARFAIT'
  19. MOMODL(5)='POUDRE_A'
  20. MOMODL(6)='POUDRE_B'
  21. MOMODL(7)='OHNO'
  22. MOMODL(8)='DDI'
  23. MOMODL(9)='KOCKS'
  24. MOMODL(10)='NOUAILLAS_A'
  25. MOMODL(11)='NOUAILLAS_B'
  26. MOMODL(12)='VISK2'
  27. MOMODL(13)='VISCOHINTE'
  28. MOMODL(14)='MISTRAL'
  29. MOMODL(15)='BETON_URGC'
  30. MOMODL(16)='LEMENDO'
  31. MOMODL(17)='FLUNOR2'
  32. MOMODL(18)='GATT_MONERIE'
  33. MOMODL(19)='UO2'
  34. MOMODL(20)='BETON_URGC_ENDO'
  35. MOMODL(21)='VISCODD'
  36. MOMODL(22)='CHAB_SINH_R'
  37. MOMODL(23)='CHAB_SINH_X'
  38. MOMODL(24)='CHAB_NOR_R'
  39. MOMODL(25)='CHAB_NOR_X'
  40. MOMODL(26)='PELLET'
  41. MOMODL(27)='FLUTRA'
  42. MOMODL(28)='SYCO1'
  43. MOMODL(29)='SYCO2'
  44. RETURN
  45. END
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  

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