Esope source files

   1 : C INFOR2    SOURCE    CHAT      05/01/13    00:36:49     5004           
   2 : C   CE SOUS PROGRAMME SERT a RECHERCHER UNE CHAINE DANS lES NOTICES                          
   3 : C                                                                               
   4 :       SUBROUTINE INFOR2(NOM,ICHAI,ITROU)                                                    
   5 :       IMPLICIT INTEGER(I-N)
   6 : -INC CCOPTIO                                                                    
   7 :       CHARACTER*4 CODE                                                          
   8 :       CHARACTER*8 MOT,NOM                                                       
   9 :       CHARACTER*72 BUFFER 
  10 :       CHARACTER*(*) ICHAI                                                      
  11 : C   RECHERCHE DU BON CHAPITRE  DANS CETTE METHODE LE NOM EST CADRE A            
  12 : C   GAUCHE
  13 :       IEC=1
  14 :       ITROU=0                                                                      
  15 :       CODE='0'                                                                  
  15 :       CALL INFOPO(NOM,CODE)                                                     
  16 :       MOTERR(1:4)=NOM                                                           
  16 :       IF (CODE.NE.'0   ') CALL ERREUR(7)                                        
  17 :       IF (IERR.NE.0.AND.IIMPI.NE.0) WRITE (IIMPI,100) CODE
  18 :  100  FORMAT (1X,A72)                           
  19 :       IF (IERR.NE.0) RETURN                                                                                                                                               
  20 :       IDECO=0                                                                     
  20 :    1  CALL INFOLI(BUFFER,CODE)                                                  
  21 :       IF (CODE.NE.'0   ') GOTO 2
  22 :       IF(BUFFER(5:8).EQ.'====') THEN
  23 :          IF(BUFFER(1:4).EQ.LANGUE.OR.BUFFER(1:4).EQ.'====')THEN
  24 :             IEC=1
  25 :             IF(BUFFER(9:12).EQ.'****') IDECO=IDECO+1
  26 :             IF(IDECO.EQ.2) RETURN
  27 :             GO TO 1
  28 :          ELSE
  29 :             IEC=0
  30 :             GO TO 1
  31 :          ENDIF
  32 :       ENDIF                                              
  33 :       IF(IEC.EQ.1.AND.IDECO.LE.1) THEN
  34 :       MM = INDEX(BUFFER(1:72) ,ICHAI)
  35 :       IF(MM.NE.0) THEN
  36 :         ITROU=1
  37 :         RETURN
  38 :       ENDIF 
  39 :       ENDIF                                                                                                
  40 :       GOTO 1                                                                    
  41 :    2  RETURN                                                                    
  42 :       END                                                                       
  43 :