C MODVIS    SOURCE    YURI      11/10/28    22:15:31     7181           
      SUBROUTINE MODVIS(MOMODL,NMOD)                                            
*----------------------------------------------------------------------         
*     -  CAS DE LA FORMULATION 'MECANIQUE' + 'VISCOPLASTIQUE'                   
*    DEFINITION DES NOMS DES MATERIAUX                                          
*----------------------------------------------------------------------         
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
*                                                                               
      CHARACTER*16 MOMODL(*)                                                    
*                                                                               
*     Noms des materiaux                                                        
*
      NMOD=29
      MOMODL(1)='GUIONNET'                                                      
      MOMODL(2)='CHABOCHE'                                                      
      MOMODL(3)='VISCODOMMAGE'     
      MOMODL(4)='PARFAIT'                                             
      MOMODL(5)='POUDRE_A'                                            
      MOMODL(6)='POUDRE_B' 
      MOMODL(7)='OHNO'                                             
      MOMODL(8)='DDI'
      MOMODL(9)='KOCKS'                                             
      MOMODL(10)='NOUAILLAS_A'                                             
      MOMODL(11)='NOUAILLAS_B'
      MOMODL(12)='VISK2'
      MOMODL(13)='VISCOHINTE'
      MOMODL(14)='MISTRAL'                                              
      MOMODL(15)='BETON_URGC'
      MOMODL(16)='LEMENDO'
      MOMODL(17)='FLUNOR2'
      MOMODL(18)='GATT_MONERIE'
      MOMODL(19)='UO2'
      MOMODL(20)='BETON_URGC_ENDO'
      MOMODL(21)='VISCODD'
      MOMODL(22)='CHAB_SINH_R'
      MOMODL(23)='CHAB_SINH_X'
      MOMODL(24)='CHAB_NOR_R'
      MOMODL(25)='CHAB_NOR_X'
      MOMODL(26)='PELLET'
      MOMODL(27)='FLUTRA'
      MOMODL(28)='SYCO1'
      MOMODL(29)='SYCO2'
      RETURN                                                                    
      END