MINICERN/packlib/zebra/zebra/qtoabend.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:46:57  mclareni
   6 * Zebra
   7 *
   8 *
   9 #ifndef CERNLIB_ZEBRA_QTOABEND_INC
  10 #define CERNLIB_ZEBRA_QTOABEND_INC
  11 *
  12 * qtoabend.inc
  13 *
  14 #if defined(CERNLIB_IBM)||defined(CERNLIB_IBMD)
  15 *             FORCE LAST LINE TO BE OUT OF THE BUFFER
  16 *
  17       WRITE (IQLOG,9701)
  18  9701 FORMAT ('0GOING TO ABEND.'/ 20(1X,20(1H*)/) )
  19       CALL ABEND
  20 #elif defined(CERNLIB_PDP)
  21       WRITE (IQLOG, 9701)
  22  9701 FORMAT ('0GOING TO ABEND.', 4X, 20('*'))
  23       STOP '********************'
  24 #elif 1
  25       CALL ABEND
  26 #endif
  27
  28 #endif