Esope source files

   1 : C TADVE     SOURCE    PV        09/03/12    21:35:14     6325           
   2 : C=========================================================
   3 : C=========================================================
   4 : C TADVE    SOURCE    JEANV     96/10/21    21:21:56     2334           
   5 :       SUBROUTINE TADVE                                                         
   6 : ************************************************************************        
   7 : *                                                                               
   8 : *                             T A D V E                                       
   9 : *                             ---------                                       
  10 : *                                                                               
  11 : *     SE SOUS-PROGRAMME EST ASSOCIE A L'OPERATEUR "ADVE"                
  12 : *                                                                               
  13 : * FONCTION:                                                                     
  14 : * ---------                                                                     
  15 : *     CREATION DE LA MATRICE DE ADVECTION                                    
  16 : *     DISPONIBLE POUR DES ELEMENTS MASSIFS A INTEGRATION NUMERIQUE                    
  17 : *                                                                               
  18 : * PHRASE D'APPEL (EN GIBIANE):                                                  
  19 : * ----------------------------                                                  
  20 : *                                                                               
  21 : *     ADV1 = ADVE MILIEU1 CHMAT1 ;                                       
  22 : *                                                                               
  23 : * OPERANDES ET RESULTAT:                                                        
  24 : * ----------------------                                                        
  25 : *                                                                               
  26 : *     CND1     'RIGIDITE'  MATRICE DE ADVECTION                              
  27 : *     MILIEU1  'MODELE'    STRUCTURE MODELISEE                                  
  28 : *     CHMAT1   'CHAMELEM'  DE SOUS-TYPE 'CARACTERISTIQUES' AVEC DEUX COMPOSANTES
  29 : *                                                                               
  30 : * MODULES UTILISES:                                                             
  31 : * -----------------                                                             
  32 : *                                                                               
  33 :       IMPLICIT INTEGER(I-N)
  34 : -INC CCOPTIO                                                                    
  35 : -INC SMCHAML
  36 : *                                                                                                                                                                                                 
  37 : *                                                                               
  38 : * VARIABLES:                                                                    
  39 : * ----------                                                                    
  40 : *                                                                               
  41 :       CHARACTER*8 LETYPE                                                        
  42 :       CHARACTER*4 LISM(1)
  43 :       DATA LISM/'SYMM'/
  44 : *
  45 : * AUTEUR,DATE DE CREATION:                                                      
  46 : * ------------------------                                                      
  47 : *                                                                               
  48 : *     MARINO ARROYO, 18 MAI 1999                                           
  49 : *                                                                               
  50 : * LANGAGE:                                                                      
  51 : * --------                                                                      
  52 : *                                                                               
  53 : *       ESOPE + FORTRAN77                                                       
  54 : *                                                                               
  55 : ************************************************************************   
  56 : *                                                                               
  57 :       MOTERR(1:8)=' MODELE '                                                    
  57 :       CALL MESLIR(-137)                                                         
  57 :       CALL LIROBJ('MMODEL',IPMODE,1,IRET1)                                      
  58 :       IF (IERR.NE.0) RETURN                                                     
  59 : *                                                                               
  59 :       CALL MESLIR(-135)                                                         
  59 :       CALL LIROBJ('MCHAML',IPCHEL,1,IRET1)                                      
  60 :       IF (IERR.NE.0) RETURN                                                      
  61 : *                                                                               
  62 : *     TEST SUR LE SOUS-TYPE DE LE CHAMELEM                                      
  63 : *                                                                               
  64 :       MCHELM=IPCHEL                                                             
  65 :       SEGACT,MCHELM                                                             
  66 : *                                                                               
  67 :       LETYPE = TITCHE                                                           
  68 :       IF (LETYPE.NE.'CARACTER') THEN                                            
  69 :          SEGDES,MCHELM                                                    
  70 :          MOTERR='CARACTERISTIQUES'                                              
  70 :          CALL ERREUR(291)                                                       
  71 :          RETURN                                                                 
  72 :       ENDIF                                                                     
  73 : *                                                                               
  74 :       SEGDES,MCHELM                                                       
  75 : *     
  76 : *     ON LIT SI LE MOT CLE DE SYMMETRIE EST PRESENT
  77 : *
  77 :       CALL LIRMOT(LISM,1,KIKI,0)
  78 :       IF (KIKI.EQ.1) THEN
  79 :          ISYMM = 1
  80 :       ELSE
  81 :          ISYMM = 0 
  82 :       ENDIF
  83 : 
  83 :       CALL TADVE1(IPMODE,IPCHEL,IPRIGI,ISYMM)                                    
  84 :       IF (IERR.NE.0) RETURN                                                     
  85 : *                                                                               
  85 :       CALL ECROBJ('RIGIDITE',IPRIGI)                                            
  86 :       RETURN                                                                    
  87 :       END                                                                       
  88 :  
  89 :  
  90 :  
  91 :  
  92 :