Télécharger journa.eso

Retour à la liste

Numérotation des lignes :

  1. C JOURNA SOURCE PV 17/12/20 21:15:24 9674
  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 CAST3M',5X,10(1H*),/)
  10. CALL ECRCHA('NOUV')
  11. CALL INFORM
  12. CALL RAZPIL
  13. RETURN
  14. END
  15.  
  16.  
  17.  

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