Esope source files

   1 : C MODVAP    SOURCE    DURA      05/10/26    21:16:16     5216           
   2 : C MODVAP    SOURCE    CHAT      05/01/13    01:49:23     5004           
   3 :       SUBROUTINE MODVAP(MOMODL,NMOD)                                            
   4 : *----------------------------------------------------------------------         
   5 : *     -  CAS DE LA FORMULATION 'FISSURE'                           
   6 : *    DEFINITION DU COMPORTEMENT DE LA VAPEUR                                          
   7 : *----------------------------------------------------------------------         
   8 :       IMPLICIT INTEGER(I-N)
   9 : -INC CCOPTIO                                                                    
  10 : *                                                                               
  11 :       CHARACTER*16 MOMODL(*)                                                    
  12 : *                                                                               
  13 : *     Noms des materiaux                                                        
  14 : *                                                                               
  15 :       NMOD=2
  16 :       MOMODL(1)='PARF'                                                        
  17 :       MOMODL(2)='REEL'                                                   
  18 :       RETURN                                                                    
  19 :       END                                                                       
  20 :  
  21 :  
  22 :  
  23 :  
  24 :  
  25 :  
  26 : 
  27 :  
  28 :  
  29 :