Warning, /include/zebra/qtoabend.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1996/03/06 10:46:56 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_ZEBRA_QTOABEND_INC
0010 #define CERNLIB_ZEBRA_QTOABEND_INC
0011 *
0012 * qtoabend.inc
0013 *
0014 #if defined(CERNLIB_IBM)||defined(CERNLIB_IBMD)
0015 * FORCE LAST LINE TO BE OUT OF THE BUFFER
0016 *
0017 WRITE (IQLOG,9701)
0018 9701 FORMAT ('0GOING TO ABEND.'/ 20(1X,20(1H*)/) )
0019 CALL ABEND
0020 #elif defined(CERNLIB_PDP)
0021 WRITE (IQLOG, 9701)
0022 9701 FORMAT ('0GOING TO ABEND.', 4X, 20('*'))
0023 STOP '********************'
0024 #elif 1
0025 CALL ABEND
0026 #endif
0027
0028 #endif
