Télécharger journa.eso

Retour à la liste

Numérotation des lignes :

  1. C JOURNA SOURCE BP208322 18/12/10 21:15:03 10037
  2. C
  3. C CE SOUS PROGRAMME PERMET LA DIFFUSION DE NOUVELLES VARIEES
  4. C
  5. SUBROUTINE JOURNA
  6. IMPLICIT INTEGER(I-N)
  7.  
  8. -INC PPARAM
  9. -INC CCOPTIO
  10. WRITE(IOIMP,1)
  11. 1 FORMAT (1X,21(1H*),5X,'INFORMATIONS CAST3M',5X,21(1H*),/)
  12. CALL ECRCHA('NOUV')
  13. CALL INFORM
  14. CALL RAZPIL
  15. RETURN
  16. END
  17.  
  18.  
  19.  
  20.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales