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

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:46:54  mclareni
* Zebra
*
*
#ifndef CERNLIB_ZEBRA_QTOFATAL_INC
#define CERNLIB_ZEBRA_QTOFATAL_INC
*
*
* qtofatal.inc
*
#if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
      IQUEST(10)= NAMESR
      CALL ZFATAL
#elif defined(CERNLIB_QTRHOLL)
      IQUEST(9) = NAMESR(1)
      IQUEST(10)= NAMESR(2)
      CALL ZFATAL
#elif defined(CERNLIB_A6M)
      CALL UCTOH (NAMESR,IQUEST(10),6,6)
      CALL ZFATAL
#elif 1 
      CALL UCTOH (NAMESR,IQUEST(9),4,8)
      CALL ZFATAL
*  -------------   for ZEBRA FZ   ------------------------------

#endif
#endif
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/03/06 10:46:54 mclareni
	6	* Zebra
	7	*
	8	*
	9	#ifndef CERNLIB_ZEBRA_QTOFATAL_INC
	10	#define CERNLIB_ZEBRA_QTOFATAL_INC
	11	*
	12	*
	13	* qtofatal.inc
	14	*
	15	#if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
	16	IQUEST(10)= NAMESR
	17	CALL ZFATAL
	18	#elif defined(CERNLIB_QTRHOLL)
	19	IQUEST(9) = NAMESR(1)
	20	IQUEST(10)= NAMESR(2)
	21	CALL ZFATAL
	22	#elif defined(CERNLIB_A6M)
	23	CALL UCTOH (NAMESR,IQUEST(10),6,6)
	24	CALL ZFATAL
	25	#elif 1
	26	CALL UCTOH (NAMESR,IQUEST(9),4,8)
	27	CALL ZFATAL
	28	* ------------- for ZEBRA FZ ------------------------------
	29
	30	#endif
	31	#endif