Télécharger modvis.eso

Retour à la liste

Numérotation des lignes :

modvis
  1. C MODVIS SOURCE FD218221 24/02/07 21:15:20 11834
  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.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11. *
  12. CHARACTER*16 MOMODL(*)
  13. *
  14. * Noms des materiaux
  15. *
  16. NMOD=35
  17. MOMODL(1)='GUIONNET'
  18. MOMODL(2)='ONERA'
  19. MOMODL(3)='VISCODOMMAGE'
  20. MOMODL(4)='PARFAIT'
  21. MOMODL(5)='POUDRE_A'
  22. MOMODL(6)='POUDRE_B'
  23. MOMODL(7)='OHNO'
  24. MOMODL(8)='DDI'
  25. MOMODL(9)='KOCKS'
  26. MOMODL(10)='NOUAILHAS_A'
  27. MOMODL(11)='NOUAILHAS_B'
  28. MOMODL(12)='VISK2'
  29. MOMODL(13)='VISCOHINTE'
  30. MOMODL(14)='MISTRAL'
  31. MOMODL(15)='BETON_URGC'
  32. MOMODL(16)='LEMENDO'
  33. MOMODL(17)='FLUNOR2'
  34. MOMODL(18)='GATT_MONERIE'
  35. MOMODL(19)='UO2'
  36. MOMODL(20)='BETON_URGC_ENDO'
  37. MOMODL(21)='VISCODD'
  38. MOMODL(22)='CHAB_SINH_R'
  39. MOMODL(23)='CHAB_SINH_X'
  40. MOMODL(24)='CHAB_NOR_R'
  41. MOMODL(25)='CHAB_NOR_X'
  42. MOMODL(26)='PELLET'
  43. MOMODL(27)='FLUTRA'
  44. MOMODL(28)='SYCO1'
  45. MOMODL(29)='SYCO2'
  46. MOMODL(30)='CHABOCHE'
  47. MOMODL(31)='FLUENDO3D'
  48. MOMODL(32)='INCLUSION3D'
  49. MOMODL(33)='ENDO3D'
  50. MOMODL(34)='FLUISO3D'
  51. MOMODL(35)='FLUORTHO3D'
  52.  
  53. RETURN
  54. END
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  

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