Esope source files

   1 : C MODPLE    SOURCE    AM        12/02/06    21:16:13     7281           
   2 :       SUBROUTINE MODPLE(MOMODL,NMOD)                                            
   3 : *----------------------------------------------------------------------         
   4 : *     -  CAS DE LA FORMULATION 'MECANIQUE' + 'PLASTIQUE_ENDOM'                        
   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=10
  15 :       MOMODL( 1)='PSURY'                                                     
  16 :       MOMODL( 2)='ROUSSELIER' 
  17 :       MOMODL( 3)='GURSON2' 
  18 :       MOMODL( 4)='DRAGON'  
  19 :       MOMODL( 5)='BETON_URGC'
  20 :       MOMODL( 6)='BETON_INSA'
  21 :       MOMODL( 7)='BETON_DYNAR_LMT'
  22 :       MOMODL( 8)='ENDO_PLAS'
  23 :       MOMODL( 9)='GERNAY'
  24 :       MOMODL(10)='WELLS'
  25 :       RETURN                                                                    
  26 :       END                                                                       
  27 :  
  28 :  
  29 :  
  30 :  
  31 :  
  32 :  
  33 :  
  34 :  
  35 :  
  36 :  
  37 :