Télécharger arret.eso

Retour à la liste

Numérotation des lignes :

arret
  1. C ARRET SOURCE CHAT 05/01/12 21:24:46 5004
  2. SUBROUTINE ARRET(N)
  3. C************************************************************************
  4. C
  5. C
  6. C
  7. C
  8. C************************************************************************
  9. IMPLICIT INTEGER(I-N)
  10. IMPLICIT REAL*8 (A-H,O-Z)
  11. WRITE(6,*)' EXECUTION INTERROMPUE'
  12. STOP
  13. END
  14.  
  15.  

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