Esope source files

   1 : C MODENL    SOURCE    CHAT      05/01/13    01:49:16     5004           
   2 :        SUBROUTINE MODENL(MOMODL,NMOD)                                            
   3 : *----------------------------------------------------------------------         
   4 : *     -  CAS DE LA FORMULATION 'MECANIQUE' + 'NON_LINEAIRE'                     
   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=2
  15 :       MOMODL( 1)='EQUIPLAS'                                                     
  16 :       MOMODL( 2)='UTILISATEUR'                                                     
  17 :       RETURN                                                                    
  18 :       END                                                                       
  19 :  
  20 :  
  21 :  
  22 :  
  23 :  
  24 :  
  25 :  
  26 :