Esope source files

   1 : C MODMET    SOURCE    CHAT      05/01/13    01:50:13     5004           
   2 :       SUBROUTINE MODMET(MOMODL,NMOD)                                            
   3 : *----------------------------------------------------------------------         
   4 : *     -  CAS DE LA FORMULATION 'METALLURGIE'                   
   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=5                                                                   
  15 :       MOMODL(1)='CEREM'                                                      
  16 :       MOMODL(2)='SEMT2'                                                      
  17 :       MOMODL(3)='SRMP12'    
  18 :       MOMODL(4)='LEBLOND'    
  19 :       MOMODL(5)='MGRAIN'    
  20 :       RETURN                                                                    
  21 :       END                                                                       
  22 :  
  23 :  
  24 :  
  25 :  
  26 :  
  27 :