Esope source files

   1 : C MODNLI    SOURCE    CHAT      05/01/13    01:50:17     5004           
   2 :       SUBROUTINE MODNLI(MOMODL,NMOD)                                            
   3 : *----------------------------------------------------------------------         
   4 : *     -  CAS DE LA FORMULATION 'MECANIQUE'                                      
   5 : *    DEFINITION DES NOMS DES COMPORTEMENTS NON LINEAIRES                        
   6 :       IMPLICIT INTEGER(I-N)
   7 :                                                                                 
   8 : *----------------------------------------------------------------------         
   9 : -INC CCOPTIO                                                                    
  10 : *                                                                               
  11 :       CHARACTER*16 MOMODL(*)                                                    
  12 : *                                                                               
  13 : *     Noms des comportements non lineaires                                      
  14 : *                                                                               
  15 :       NMOD=7                                                                    
  16 :       MOMODL(1)='PLASTIQUE'                                                     
  17 :       MOMODL(2)='FLUAGE'                                                        
  18 :       MOMODL(3)='VISCOPLASTIQUE'                                                
  19 :       MOMODL(4)='ENDOMMAGEMENT'                                                 
  20 :       MOMODL(5)='PLASTIQUE_ENDOM' 
  21 :       MOMODL(6)='NON_LINEAIRE'
  22 :       MOMODL(7)='VISCO_EXTERNE'
  23 :       RETURN                                                                    
  24 :       END                                                                       
  25 :  
  26 :  
  27 :  
  28 :