[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / zebra / qtoabend.inc

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:46:57  mclareni
* Zebra
*
*
#ifndef CERNLIB_ZEBRA_QTOABEND_INC
#define CERNLIB_ZEBRA_QTOABEND_INC
*
* qtoabend.inc
*
#if defined(CERNLIB_IBM)||defined(CERNLIB_IBMD)
*             FORCE LAST LINE TO BE OUT OF THE BUFFER
*
      WRITE (IQLOG,9701)
 9701 FORMAT ('0GOING TO ABEND.'/ 20(1X,20(1H*)/) )
      CALL ABEND
#elif defined(CERNLIB_PDP)
      WRITE (IQLOG, 9701)
 9701 FORMAT ('0GOING TO ABEND.', 4X, 20('*'))
      STOP '********************'
#elif 1
      CALL ABEND
#endif

#endif
Commit	Line	Data
fe4da5cc	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