CTITLES1EXIT -- TERMINATE JOB WITH FORTRAN TRACEBACK                    00000001
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR/DESIGNER      HANS HOOGSTRAAT                              00000002
CA    LANGUAGE             S/370 FORTRAN                                00000004
CA    WRITTEN              UNKNOWN                                      00000005
C     ABSTRACT              1- 9-76                                     00000006
CA                                                                      00000007
CA                                                                      00000008
CA    THIS PROGRAM PRODUCES A FORTRAN TRACEBACK BY ATTEMPTING TO        00000009
CA    WRITE ON UNIT 99 WITH NO DD-CARD FOR FT99F001.                    00000010
CA                                                                      00000011
CA    AFTER THE WRITE ATTEMPT THE PROGRAM TERMINATES EXECUTION WITH     00000012
CA    A FORTRAN 'STOP' STATEMENT.                                       00000013
CAEND                                                                   00000030
C       GENERAL SEISMIC ABORT ROUTINE, WITH FORCED TRACE BACK BY        00000040
C       AN WRITE ATTEMP ON A UNDEFINED LU 99.                           00000050
C                                                                       00000060
C                                                                       00000070
C        ======================================================         00000080
C               *                PROGRAM DEVELOPED BY                   00000090
C             * H *       HOOGSTRAAT PROGRAMMING SERVICES LTD.          00000100
C           * P   S *            BOX 20, SITE 7, SS #1                  00000110
C         * * * * * * *   CALGARY, ALTA.  CANADA   PH 288-8088          00000120
C        ======================================================         00000130
C                                                                       00000140
        SUBROUTINE S1EXIT                                               00000145
        PRINT 9001                                                      00000150
        WRITE (99,9001)                                                 00000160
        STOP                                                            00000170
C                                                                       00000180
9001    FORMAT (/5X,50('=')/5X,                                         00000190
     *  'S1EXIT CALLED, SEISMIC ABORT AND TRACE BACK FORCED'/           00000200
     *  5X,50('='))                                                     00000210
        RETURN                                                          00000220
      END                                                               00000230