C INFOR1    SOURCE    PV        11/03/18    21:15:01     6907           
C   CE SOUS PROGRAMME SERT A LISTER SUR L'UNITE DE SORTIE LE CONTENU            
C   DU CHAPITRE DESIRE DU FICHIER D'INFORMATION                                 
C                                                                               
      SUBROUTINE INFOR1(NOM)                                                    
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
      CHARACTER*4 CODE                                                          
      CHARACTER*8 MOT,NOM                                                       
      CHARACTER*72 BUFFER                                                       
      character*1 rep
      call gistty(ligne)
      if (ligne.le.0) ligne=6000000
      ligne=max(ligne,50)
C   RECHERCHE DU BON CHAPITRE  DANS CETTE METHODE LE NOM EST CADRE A            
C   GAUCHE
      IEC=1                                                                      
      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                      
      IF (IERR.NE.0) RETURN                                                     
C   LECTURE DU CHAPITRE  ECRITURE SUR LE TERMINAL                                                                                                  
      lalig=0
      ipag=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
            GO TO 1
         ELSE
            IEC=0
            GO TO 1
         ENDIF
      ENDIF                                              
      IF(IEC.EQ.1) then
        lalig=lalig+1
        if (lalig.gt.ligne-3)  then
          ipag=ipag+1
          read (ioter,fmt='(a1)',end=2,err=2) rep
          if (rep.eq.'q') goto 2
          call gistty(ligne)
          write (ioimp,fmt='(a13,a4,x,i2)') '*** Chapitre ',NOM,ipag
          lalig=0
        endif
        WRITE (IOIMP,100) BUFFER
      endif
 100  FORMAT (1X,A72)                                                           
      GOTO 1                                                                    
   2  RETURN                                                                    
      END