Sources Esope | Cast3M

journa
C JOURNA    SOURCE    BP208322  18/12/10    21:15:03     10037          
C
C    CE SOUS PROGRAMME PERMET LA DIFFUSION DE NOUVELLES VARIEES
C
      SUBROUTINE JOURNA
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-INC CCOPTIO
      WRITE(IOIMP,1)
   1  FORMAT (1X,21(1H*),5X,'INFORMATIONS CAST3M',5X,21(1H*),/)
      CALL ECRCHA('NOUV')
      CALL INFORM
      CALL RAZPIL
      RETURN
      END