Esope source files

   1 : C MODIMP    SOURCE    KICH      11/01/07    21:15:54     6839           
   2 :       SUBROUTINE MODIMP(MOMODL,NMOD)                                            
   3 : *----------------------------------------------------------------------         
   4 : *     -  CAS DES COMPORTEMENTS 'IMPEDANCE'                   
   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)='IMPEDANCE'
  16 :       MOMODL(2)='ELASTIQUE'
  17 :       MOMODL(3)='VOIGT'
  18 :       MOMODL(4)='MAXWELL'
  19 :       MOMODL(5)='COMPLEXE'
  20 : 
  21 :       RETURN
  22 :       END
  23 :  
  24 :