Esope source files

   1 : C MODEL3    SOURCE    CHAT      05/01/13    01:48:11     5004           
   2 :       SUBROUTINE MODEL3(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)                  
   3 : *----------------------------------------------------------------------         
   4 : *    OBJET MODELE  -  CAS DE LA FORMULATION 'LIQUIDE '                          
   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*16 LESPRO(*)                                                    
  11 :       CHARACTER*4 LESTEF(*)                                                     
  12 : *                                                                               
  13 : *  NOMS DE MODELES                                                              
  14 : *                                                                               
  15 :       NBPRO=1                                                                   
  16 :       IF(NBPRO.GT.N1MAX) GO TO 99                                               
  17 :       LESPRO( 1)='ISOTROPE'                                                     
  18 : *                                                                               
  19 : *  NOMS DE TYPES D'ELEMENTS FINIS                                               
  20 : *                                                                               
  21 :       IF(IDIM.EQ.2) THEN                                                        
  22 :       NBTEF=3                                                                   
  23 :       IF(NBTEF.GT.N2MAX) GO TO 99                                               
  24 :       LESTEF(1)='LTR3'                                                          
  25 :       LESTEF(2)='LQU4'                                                          
  26 :       LESTEF(3)='LSU2'                                                          
  27 :       ELSE                                                                      
  28 :       NBTEF=7                                                                   
  29 :       IF(NBTEF.GT.N2MAX) GO TO 99                                               
  30 :       LESTEF(1)='LCU8'                                                          
  31 :       LESTEF(2)='LPR6'                                                          
  32 :       LESTEF(3)='LPY5'                                                          
  33 :       LESTEF(4)='LTE4'                                                          
  34 :       LESTEF(5)='LSU3'                                                         
  35 :       LESTEF(6)='LSU4'                                                          
  36 :       LESTEF(7)='LSE2'                                                          
  37 :       ENDIF                                                                     
  38 :       RETURN                                                                    
  38 :   99  CALL ERREUR(5)                                                            
  39 :       RETURN                                                                    
  40 :       END                                                                       
  41 :