Télécharger modflu.eso

Retour à la liste

Numérotation des lignes :

  1. C MODFLU SOURCE AM 16/06/08 21:15:31 8953
  2. SUBROUTINE MODFLU(MOMODL,NMOD)
  3. *----------------------------------------------------------------------
  4. * - CAS DE LA FORMULATION 'MECANIQUE' + 'FLUAGE'
  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=19
  15. MOMODL(1)='NORTON'
  16. MOMODL(2)='BLACKBURN'
  17. MOMODL(3)='RCCMR_316'
  18. MOMODL(4)='RCCMR_304'
  19. MOMODL(5)='LEMAITRE'
  20. MOMODL(6)='POLYNOMIAL'
  21. MOMODL(7)='BLACKBURN_2'
  22. MOMODL(8)='CERAMIQUE'
  23. MOMODL(9)='MAXWELL'
  24. MOMODL(10)='COMETE'
  25. MOMODL(11)='CCPL'
  26. MOMODL(12)='X11'
  27. MOMODL(13)='BPEL_RELAX'
  28. MOMODL(14)='BETON_URGC'
  29. MOMODL(15)='SODERBERG'
  30. MOMODL(16)='MAXOTT'
  31. MOMODL(17)='FBB1'
  32. MOMODL(18)='FBB2'
  33. MOMODL(19)='KELVIN'
  34. RETURN
  35. END
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  

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