C INFOR2    SOURCE    CHAT      05/01/13    00:36:49     5004           
C   CE SOUS PROGRAMME SERT a RECHERCHER UNE CHAINE DANS lES NOTICES                          
C                                                                               
      SUBROUTINE INFOR2(NOM,ICHAI,ITROU)                                                    
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
      CHARACTER*4 CODE                                                          
      CHARACTER*8 MOT,NOM                                                       
      CHARACTER*72 BUFFER 
      CHARACTER*(*) ICHAI                                                      
C   RECHERCHE DU BON CHAPITRE  DANS CETTE METHODE LE NOM EST CADRE A            
C   GAUCHE
      IEC=1
      ITROU=0                                                                      
      CODE='0'                                                                  
      CALL INFOPO(NOM,CODE)                                                     
      MOTERR(1:4)=NOM                                                           
      IF (CODE.NE.'0   ') CALL ERREUR(7)                                        
      IF (IERR.NE.0.AND.IIMPI.NE.0) WRITE (IIMPI,100) CODE
 100  FORMAT (1X,A72)                           
      IF (IERR.NE.0) RETURN                                                                                                                                               
      IDECO=0                                                                     
   1  CALL INFOLI(BUFFER,CODE)                                                  
      IF (CODE.NE.'0   ') GOTO 2
      IF(BUFFER(5:8).EQ.'====') THEN
         IF(BUFFER(1:4).EQ.LANGUE.OR.BUFFER(1:4).EQ.'====')THEN
            IEC=1
            IF(BUFFER(9:12).EQ.'****') IDECO=IDECO+1
            IF(IDECO.EQ.2) RETURN
            GO TO 1
         ELSE
            IEC=0
            GO TO 1
         ENDIF
      ENDIF                                              
      IF(IEC.EQ.1.AND.IDECO.LE.1) THEN
      MM = INDEX(BUFFER(1:72) ,ICHAI)
      IF(MM.NE.0) THEN
        ITROU=1
        RETURN
      ENDIF 
      ENDIF                                                                                                
      GOTO 1                                                                    
   2  RETURN                                                                    
      END