Esope source files

   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 :