Esope source files

   1 : C MODFLU    SOURCE    AM        05/06/17    21:15:52     5116           
   2 :       SUBROUTINE MODFLU(MOMODL,NMOD)                                            
   3 : *----------------------------------------------------------------------         
   4 : *     -  CAS DE LA FORMULATION 'MECANIQUE' + 'FLUAGE'                           
   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=18
  15 :       MOMODL(1)='NORTON'                                                        
  16 :       MOMODL(2)='BLACKBURN'                                                     
  17 :       MOMODL(3)='RCCMR_316'                                                     
  18 :       MOMODL(4)='RCCMR_304'                                                     
  19 :       MOMODL(5)='LEMAITRE'                                                      
  20 :       MOMODL(6)='POLYNOMIAL'
  21 :       MOMODL(7)='BLACKBURN_2'   
  22 :       MOMODL(8)='CERAMIQUE' 
  23 :       MOMODL(9)='MAXWELL'                                            
  24 :       MOMODL(10)='COMETE'
  25 :       MOMODL(11)='CCPL'
  26 :       MOMODL(12)='X11'
  27 :       MOMODL(13)='BPEL_RELAX'
  28 :       MOMODL(14)='BETON_URGC'
  29 :       MOMODL(15)='SODERBERG'
  30 :       MOMODL(16)='MAXOTT'
  31 :       MOMODL(17)='FBB1'
  32 :       MOMODL(18)='FBB2'
  33 :       RETURN                                                                    
  34 :       END                                                                       
  35 :  
  36 :  
  37 :  
  38 :  
  39 :  
  40 :  
  41 : 
  42 :  
  43 :  
  44 :