Esope source files

   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 :