Esope source files

   1 : C MODE10    SOURCE    CHAT      05/01/13    01:47:42     5004           
   2 :       SUBROUTINE MODE10(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)                  
   3 : *----------------------------------------------------------------------         
   4 : *    OBJET MODELE  -  CAS DE LA FORMULATION 'MAGNETODYNAMIQUE'   
   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 : *                                                                               
  12 :       CHARACTER*4 LESTEF(*)                                                     
  13 : *                                                                               
  14 : *  NOMS DE MODELES DE MATERIAU 
  15 : *                                                                               
  16 :       NBPRO=3                                                                   
  17 :       IF(NBPRO.GT.N1MAX) GO TO 99                                               
  18 :       LESPRO(1)='POTENTIEL_VECTEU'                                                      
  19 :       LESPRO(2)='ISOTROPE'                                                      
  20 :       LESPRO(3)='ORTHOTROPE'                                                    
  21 : *                                                                               
  22 : *  NOMS DE TYPES D'ELEMENTS FINIS                                               
  23 : *                                                                               
  24 :       NBTEF=1                                                                   
  25 :       IF(NBTEF.GT.N2MAX) GO TO 99                                               
  26 :       LESTEF(1)='ROT3'                                                          
  27 :       RETURN                                                                    
  27 :  99   CALL ERREUR(5)                                                            
  28 :       RETURN                                                                    
  29 :       END                                                                       
  30 :  
  31 :  
  32 :