C ARRET     SOURCE    CHAT      05/01/12    21:24:46     5004           
      SUBROUTINE ARRET(N)                                                       
C************************************************************************       
C                                                                               
C                                                                               
C                                                                               
C                                                                               
C************************************************************************       
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)                                                 
      WRITE(6,*)' EXECUTION INTERROMPUE'
      STOP
      END