Esope source files

   1 : C MODEL5    SOURCE    CHAT      05/01/13    01:48:26     5004           
   2 :       SUBROUTINE MODEL5(NBPRO,LESTEF,NBTEF,N2MAX)                               
   3 : *----------------------------------------------------------------------         
   4 : *    OBJET MODELE  -  CAS DE LA FORMULATION 'LIQUIDE ' + 'MECANIQUE'            
   5 : *    DEFINITION DES NOMS DE MODELES DE MATERIAU                                 
   6 : *            ET DES NOMS DE TYPES D'ELEMENTS FINIS                              
   7 : *----------------------------------------------------------------------         
   8 :       IMPLICIT INTEGER(I-N)
   9 : -INC CCOPTIO                                                                    
  10 :       CHARACTER*4 LESTEF(*)                                                     
  11 : *                                                                               
  12 : *  NOMS DE MODELES                                                              
  13 : *                                                                               
  14 :       NBPRO=0                                                                   
  15 : *                                                                               
  16 : *  NOMS DE TYPES D'ELEMENTS FINIS                                               
  17 : *                                                                               
  18 :       IF(IDIM.EQ.2) THEN                                                        
  19 :          NBTEF=2                                                                   
  20 :          IF(NBTEF.GT.N2MAX) GO TO 99                                               
  21 :          LESTEF(1)='RAC2'                                                          
  22 :          LESTEF(2)='RACO'                                                          
  23 :       ELSE                                                                      
  24 :          NBTEF=5                                                                   
  25 :          IF(NBTEF.GT.N2MAX) GO TO 99                                               
  26 :          LESTEF(1)='LIA3'                                                          
  27 :          LESTEF(2)='LIA4'                                                          
  28 :          LESTEF(3)='LICO'
  29 :          LESTEF(4)='LIC4'
  30 :          LESTEF(5)='LITU'                                                          
  31 :       ENDIF                                                                     
  32 :       RETURN                                                                    
  32 :   99  CALL ERREUR(5)                                                            
  33 :       RETURN                                                                    
  34 :       END                                                                       
  35 :