C CHTCHA    SOURCE    CHAT      05/01/12    22:02:12     5004           
      SUBROUTINE CHTCHA(MCHA,LCHALU,IBO,IRET)                                   
C====================================================================           
C     SUBROUTINE  POUR CHERCHER DANS UNE TABLE DE SOUSTYPE                      
C    "RESULTAT DE DYNE"                                                         
C     SI LE CHAMP MCHA EXISTE ET EN SORTIR LA POSITION IRET                     
C       MCHA     (E) CHAINE CHERCHEE                                            
C       LCHALU   (E) LONGUEUR DE CETTE CHAINE                                   
C       IBO      (E) POINTEUR SUR LA TABLE DONT ON PART                         
C       IRET     (S) POSITION DE CETTE CHAINE DANS L TABLE                      
C                - SI PAS TROUVE IRET =0                                        
C======================================================================         
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
      CHARACTER*(*) MCHA                                                        
      CHARACTER*(40) CHAR1                                                      
      CHARACTER*4 MOT,MOMOT                                                     
      LOGICAL L0,L1                                                             
      CHARACTER*(8) CHAR0                                                       
-INC CCOPTIO                                                                    
-INC SMTABLE                                                                    
      DATA MOT/'MOT '/                                                          
C======================================================================         
*ON CONSTRUIT LA TABLE DES INDICES DE LA SOUS TABLE DONNEE                      
         IRET=0                                                                 
         CALL ECROBJ('TABLE',IBO)                                               
         CALL INDETA                                                            
         CALL LIROBJ('TABLE',ITABIN,1,IRETAB)                                   
         IF (IERR.NE.0) RETURN                                                  
*                                                                               
*        Boucle sur les indices de la table MTABLE:                             
*                                                                               
         MTABLE=ITABIN                                                          
         SEGACT MTABLE                                                          
         NINDIC = MLOTAB                                                        
         SEGDES MTABLE                                                          
         DO 100 INDICE = 1 , NINDIC                                             
         I0= INDICE                                                             
         MOMOT=MOT                                                              
        CALL ACCTAB(ITABIN,'ENTIER',I0,X0,CHAR0,L0,IRET0,                       
     *                      MOMOT,I1,X1,CHAR1,L1,IRET1)                         
         IF (MOMOT.EQ.MOT) THEN                                                 
            IF (CHAR1(1:LCHALU).EQ.MCHA) THEN                                   
              IRET=INDICE                                                       
              GO TO 110                                                         
            ENDIF                                                               
         ENDIF                                                                  
  100 CONTINUE                                                                  
  110 SEGSUP MTABLE                                                             
      RETURN                                                                    
      END