C INFORM    SOURCE    CHAT      05/01/13    00:36:52     5004           
C   CE SOUS PROGRAMME SERT A LISTER SUR L'UNITE DE SORTIE LE CONTENU            
C   DU CHAPITRE DESIRE DU FICHIER D'INFORMATION                                 
C                                                                               
      SUBROUTINE INFORM                                                         
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
      CHARACTER*8 NOM                                                           
      CALL LIROBJ('PROCEDUR',IAZZ,0,IRETOU)                                     
      IF (IRETOU.NE.0) THEN                                                     
         CALL QUENOM(NOM)                                                       
      ELSE                                                                      
         NOM=' '                                                                
         CALL LIRCHA(NOM(1:4),1,IRETOU)                                         
         IF (IERR.NE.0) RETURN                                                  
      ENDIF                                                                     
      IF(NOM(1:4).EQ.'....')RETURN
      CALL INFOR1(NOM)                                                          
      RETURN
      END