Esope source files

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