Download arret.eso

Back to the list

   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 :  

© Cast3M 2003 - All rights reserved.
Disclaimer