C MODIMP    SOURCE    KICH      11/01/07    21:15:54     6839           
      SUBROUTINE MODIMP(MOMODL,NMOD)                                            
*----------------------------------------------------------------------         
*     -  CAS DES COMPORTEMENTS 'IMPEDANCE'                   
*    DEFINITION DES NOMS DES MATERIAUX                                          
*----------------------------------------------------------------------         
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
*                                                                               
      CHARACTER*16 MOMODL(*)                                                    
*                                                                               
*     Noms des materiaux                                                        
* 
      NMOD=5
      MOMODL(1)='IMPEDANCE'
      MOMODL(2)='ELASTIQUE'
      MOMODL(3)='VOIGT'
      MOMODL(4)='MAXWELL'
      MOMODL(5)='COMPLEXE'

      RETURN
      END