Télécharger la plaquette Cast3M


fr en

Télécharger modmel.eso

Retour à la liste

Numérotation des lignes : 

modmel

  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.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11. *
  12.       CHARACTER*16 MOMODL(*)
  13. *
  14. *     Noms des materiaux
  15. *
  16.       NMOD=6
  17.       MOMODL(1)='CEREM'
  18.       MOMODL(2)='ZTMAX'
  19.       MOMODL(3)='PARALLELE'
  20.       MOMODL(4)='SERIE'
  21.       MOMODL(5)='UTILISATEUR'
  22.         MOMODL(6)='TMM_LMT2'
  23.       RETURN
  24.       END
  25.  
  26.  
  27.  
  28.  

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