C TADVE     SOURCE    PV        09/03/12    21:35:14     6325           
C=========================================================
C=========================================================
C TADVE    SOURCE    JEANV     96/10/21    21:21:56     2334           
      SUBROUTINE TADVE                                                         
************************************************************************        
*                                                                               
*                             T A D V E                                       
*                             ---------                                       
*                                                                               
*     SE SOUS-PROGRAMME EST ASSOCIE A L'OPERATEUR "ADVE"                
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*     CREATION DE LA MATRICE DE ADVECTION                                    
*     DISPONIBLE POUR DES ELEMENTS MASSIFS A INTEGRATION NUMERIQUE                    
*                                                                               
* PHRASE D'APPEL (EN GIBIANE):                                                  
* ----------------------------                                                  
*                                                                               
*     ADV1 = ADVE MILIEU1 CHMAT1 ;                                       
*                                                                               
* OPERANDES ET RESULTAT:                                                        
* ----------------------                                                        
*                                                                               
*     CND1     'RIGIDITE'  MATRICE DE ADVECTION                              
*     MILIEU1  'MODELE'    STRUCTURE MODELISEE                                  
*     CHMAT1   'CHAMELEM'  DE SOUS-TYPE 'CARACTERISTIQUES' AVEC DEUX COMPOSANTES
*                                                                               
* MODULES UTILISES:                                                             
* -----------------                                                             
*                                                                               
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
-INC SMCHAML
*                                                                                                                                                                                                 
*                                                                               
* VARIABLES:                                                                    
* ----------                                                                    
*                                                                               
      CHARACTER*8 LETYPE                                                        
      CHARACTER*4 LISM(1)
      DATA LISM/'SYMM'/
*
* AUTEUR,DATE DE CREATION:                                                      
* ------------------------                                                      
*                                                                               
*     MARINO ARROYO, 18 MAI 1999                                           
*                                                                               
* LANGAGE:                                                                      
* --------                                                                      
*                                                                               
*       ESOPE + FORTRAN77                                                       
*                                                                               
************************************************************************   
*                                                                               
      MOTERR(1:8)=' MODELE '                                                    
      CALL MESLIR(-137)                                                         
      CALL LIROBJ('MMODEL',IPMODE,1,IRET1)                                      
      IF (IERR.NE.0) RETURN                                                     
*                                                                               
      CALL MESLIR(-135)                                                         
      CALL LIROBJ('MCHAML',IPCHEL,1,IRET1)                                      
      IF (IERR.NE.0) RETURN                                                      
*                                                                               
*     TEST SUR LE SOUS-TYPE DE LE CHAMELEM                                      
*                                                                               
      MCHELM=IPCHEL                                                             
      SEGACT,MCHELM                                                             
*                                                                               
      LETYPE = TITCHE                                                           
      IF (LETYPE.NE.'CARACTER') THEN                                            
         SEGDES,MCHELM                                                    
         MOTERR='CARACTERISTIQUES'                                              
         CALL ERREUR(291)                                                       
         RETURN                                                                 
      ENDIF                                                                     
*                                                                               
      SEGDES,MCHELM                                                       
*     
*     ON LIT SI LE MOT CLE DE SYMMETRIE EST PRESENT
*
      CALL LIRMOT(LISM,1,KIKI,0)
      IF (KIKI.EQ.1) THEN
         ISYMM = 1
      ELSE
         ISYMM = 0 
      ENDIF

      CALL TADVE1(IPMODE,IPCHEL,IPRIGI,ISYMM)                                    
      IF (IERR.NE.0) RETURN                                                     
*                                                                               
      CALL ECROBJ('RIGIDITE',IPRIGI)                                            
      RETURN                                                                    
      END