Télécharger modmel.eso

Retour à la liste

Numérotation des lignes :

  1. C MODMEL SOURCE ROUX 07/10/25 21:15:50 5933
  2. SUBROUTINE MODMEL(MOMODL,NMOD)
  3. *----------------------------------------------------------------------
  4. * - CAS DE LA FORMULATION 'MELANGE'
  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=6
  15. MOMODL(1)='CEREM'
  16. MOMODL(2)='ZTMAX'
  17. MOMODL(3)='PARALLELE'
  18. MOMODL(4)='SERIE'
  19. MOMODL(5)='UTILISATEUR'
  20. MOMODL(6)='TMM_LMT2'
  21. RETURN
  22. END
  23.  
  24.  
  25.  
  26.  

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