Esope source files

   1 : C MODVIS    SOURCE    YURI      11/10/28    22:15:31     7181           
   2 :       SUBROUTINE MODVIS(MOMODL,NMOD)                                            
   3 : *----------------------------------------------------------------------         
   4 : *     -  CAS DE LA FORMULATION 'MECANIQUE' + 'VISCOPLASTIQUE'                   
   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=29
  15 :       MOMODL(1)='GUIONNET'                                                      
  16 :       MOMODL(2)='CHABOCHE'                                                      
  17 :       MOMODL(3)='VISCODOMMAGE'     
  18 :       MOMODL(4)='PARFAIT'                                             
  19 :       MOMODL(5)='POUDRE_A'                                            
  20 :       MOMODL(6)='POUDRE_B' 
  21 :       MOMODL(7)='OHNO'                                             
  22 :       MOMODL(8)='DDI'
  23 :       MOMODL(9)='KOCKS'                                             
  24 :       MOMODL(10)='NOUAILLAS_A'                                             
  25 :       MOMODL(11)='NOUAILLAS_B'
  26 :       MOMODL(12)='VISK2'
  27 :       MOMODL(13)='VISCOHINTE'
  28 :       MOMODL(14)='MISTRAL'                                              
  29 :       MOMODL(15)='BETON_URGC'
  30 :       MOMODL(16)='LEMENDO'
  31 :       MOMODL(17)='FLUNOR2'
  32 :       MOMODL(18)='GATT_MONERIE'
  33 :       MOMODL(19)='UO2'
  34 :       MOMODL(20)='BETON_URGC_ENDO'
  35 :       MOMODL(21)='VISCODD'
  36 :       MOMODL(22)='CHAB_SINH_R'
  37 :       MOMODL(23)='CHAB_SINH_X'
  38 :       MOMODL(24)='CHAB_NOR_R'
  39 :       MOMODL(25)='CHAB_NOR_X'
  40 :       MOMODL(26)='PELLET'
  41 :       MOMODL(27)='FLUTRA'
  42 :       MOMODL(28)='SYCO1'
  43 :       MOMODL(29)='SYCO2'
  44 :       RETURN                                                                    
  45 :       END
  46 :                                                                         
  47 :  
  48 :  
  49 :  
  50 :  
  51 :  
  52 :  
  53 :  
  54 :  
  55 :  
  56 :  
  57 :  
  58 :  
  59 :