Esope source files

   1 : C MODLIA    SOURCE    KICH      10/06/28    21:16:13     6697           
   2 :       SUBROUTINE MODLIA(MOMODL,NMOD)                                            
   3 : *----------------------------------------------------------------------         
   4 : *     -  CAS DE LA FORMULATION 'LIAISON_MATERIELLE'                   
   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=24
  15 :                                                                
  16 : c      MOMODL(1)='POINT_PLAN_FLUIDE'                                              
  17 : c      MOMODL(2)='POINT_PLAN_FROTTEMENT'                                                  
  18 : c      MOMODL(3)='POINT_PLAN'    
  19 : c      MOMODL(4)='POINT_POINT_FROTTEMENT'                                         
  20 : c      MOMODL(5)='POINT_POINT_DEPLACEMENT_PLASTIQUE'
  21 : c      MOMODL(6)='POINT_POINT_ROTATION_PLASTIQUE'
  22 : c      MOMODL(7)='POINT_POINT'
  23 : c      MOMODL(8)='POINT_CERCLE_MOBILE'
  24 : c      MOMODL(9)='POINT_CERCLE_FROTTEMENT'
  25 : c      MOMODL(10)='POINT_CERCLE'
  26 : c      MOMODL(11)='CERCLE_PLAN_FROTTEMENT' 
  27 : c      MOMODL(12)='CERCLE_CERCLE_FROTTEMENT'
  28 : c      MOMODL(13)='PROFIL_PROFIL_INTERIEUR'
  29 : c      MOMODL(14)='PROFIL_PROFIL_EXTERIEUR'
  30 : c      MOMODL(15)='LIGNE_LIGNE_FROTTEMENT'
  31 : c      MOMODL(16)='LIGNE_CERCLE_FROTTEMENT'
  32 : c      MOMODL(17)='PALIER_FLUIDE'
  33 : c      MOMODL(18)='COUPLAGE_DEPLACEMENT'
  34 : c      MOMODL(19)='COUPLAGE_VITESSE'
  35 : c      MOMODL(20)='POLYNOMIALE' '
  36 : 
  37 :       MOMODL(1)='POINT_PLAN'                                              
  38 :       MOMODL(2)='FROTTEMENT'                                                  
  39 :       MOMODL(3)='FLUIDE'    
  40 :       MOMODL(4)='POINT_POINT'                                         
  41 :       MOMODL(5)='DEPL_PLASTIQUE'
  42 :       MOMODL(6)='ROTA_PLASTIQUE'
  43 :       MOMODL(7)='FROTTEMENT'
  44 :       MOMODL(8)='POINT_CERCLE'
  45 :       MOMODL(9)='MOBILE'
  46 :       MOMODL(10)='PROFIL_PROFIL'
  47 :       MOMODL(11)='CERCLE_PLAN' 
  48 :       MOMODL(12)='CERCLE_CERCLE'
  49 :       MOMODL(13)='INTERIEUR'
  50 :       MOMODL(14)='EXTERIEUR'
  51 :       MOMODL(15)='LIGNE_LIGNE'
  52 :       MOMODL(16)='LIGNE_CERCLE'
  53 :       MOMODL(17)='PALIER_FLUIDE'
  54 :       MOMODL(18)='COUPLAGE'
  55 :       MOMODL(19)='DEPLACEMENT'
  56 :       MOMODL(20)='VITESSE'
  57 :       MOMODL(21)='POLYNOMIALE'
  58 :       MOMODL(22)='RHODE_LI'
  59 :       MOMODL(23)='NEWMARK'
  60 :       MOMODL(24)='MODAL'
  61 : 
  62 :       RETURN
  63 :       END
  64 :  
  65 :  
  66 :  
  67 :  
  68 :