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