Télécharger modthe.eso

Retour à la liste

Numérotation des lignes :

  1. C MODTHE SOURCE CHAT 12/06/07 21:15:46 7389
  2. SUBROUTINE MODTHE(MOMODL,NMOD)
  3. *----------------------------------------------------------------------
  4. * - CAS DE LA FORMULATION 'THERMIQUE' +
  5. * DEFINITION DES NOMS DES MATERIAUX
  6. *----------------------------------------------------------------------
  7. IMPLICIT INTEGER(I-N)
  8. -INC CCOPTIO
  9. CHARACTER*16 MOMODL(*)
  10. *
  11. * Noms des materiaux
  12. *
  13. NMOD=5
  14. MOMODL(1)='PHASE'
  15. MOMODL(2)='CONVECTION'
  16. MOMODL(3)='ADVECTION'
  17. MOMODL(4)='RAYONNEMENT'
  18. MOMODL(5)='CONDUCTION'
  19. RETURN
  20. END
  21.  
  22.  
  23.  
  24.  

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