Warning, /include/zebra/qtofatal.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:53 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_ZEBRA_QTOFATAL_INC
0010 #define CERNLIB_ZEBRA_QTOFATAL_INC
0011 *
0012 *
0013 * qtofatal.inc
0014 *
0015 #if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
0016 IQUEST(10)= NAMESR
0017 CALL ZFATAL
0018 #elif defined(CERNLIB_QTRHOLL)
0019 IQUEST(9) = NAMESR(1)
0020 IQUEST(10)= NAMESR(2)
0021 CALL ZFATAL
0022 #elif defined(CERNLIB_A6M)
0023 CALL UCTOH (NAMESR,IQUEST(10),6,6)
0024 CALL ZFATAL
0025 #elif 1
0026 CALL UCTOH (NAMESR,IQUEST(9),4,8)
0027 CALL ZFATAL
0028 * ------------- for ZEBRA FZ ------------------------------
0029
0030 #endif
0031 #endif
