Télécharger modple.eso

Retour à la liste

Numérotation des lignes :

  1. C MODPLE SOURCE AM 12/02/06 21:16:13 7281
  2. SUBROUTINE MODPLE(MOMODL,NMOD)
  3. *----------------------------------------------------------------------
  4. * - CAS DE LA FORMULATION 'MECANIQUE' + 'PLASTIQUE_ENDOM'
  5. * DEFINITION DES NOMS DES MATERIAUX
  6. *----------------------------------------------------------------------
  7. IMPLICIT INTEGER(I-N)
  8. -INC PPARAM
  9. -INC CCOPTIO
  10. *
  11. CHARACTER*16 MOMODL(*)
  12. *
  13. * Noms des materiaux
  14. *
  15. NMOD=10
  16. MOMODL( 1)='PSURY'
  17. MOMODL( 2)='ROUSSELIER'
  18. MOMODL( 3)='GURSON2'
  19. MOMODL( 4)='DRAGON'
  20. MOMODL( 5)='BETON_URGC'
  21. MOMODL( 6)='BETON_INSA'
  22. MOMODL( 7)='BETON_DYNAR_LMT'
  23. MOMODL( 8)='ENDO_PLAS'
  24. MOMODL( 9)='GERNAY'
  25. MOMODL(10)='WELLS'
  26. RETURN
  27. END
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  

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