Esope source files

   1 : C JOURNA    SOURCE    CHAT      05/01/13    00:50:07     5004           
   2 : C                                                                               
   3 : C    CE SOUS PROGRAMME PERMET LA DIFFUSION DE NOUVELLES VARIEES                 
   4 : C                                                                               
   5 :       SUBROUTINE JOURNA                                                         
   6 :       IMPLICIT INTEGER(I-N)
   7 : -INC CCOPTIO                                                                    
   8 :       WRITE(IOIMP,1)                                                            
   9 :    1  FORMAT (1X,10(1H*),5X,'INFORMATIONS GIBI',5X,10(1H*),/)                   
   9 :       CALL ECRCHA('NOUV')                                                       
   9 :       CALL INFORM                                                               
   9 :       CALL RAZPIL                                                               
  10 :       RETURN                                                                    
  11 :       END                                                                       
  12 :