Warning, /include/zebra/qtrace.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_QTRACE_INC
0010 #define CERNLIB_ZEBRA_QTRACE_INC
0011 *
0012 * with check on capacity MQTRAC
0013 *
0014 * qtrace.inc
0015 *
0016 #if !defined(CERNLIB_QTRHOLL)||defined(CERNLIB_A6M)
0017 MQTRAC(NQTRAC+1) = NAMESR
0018 NQTRAC = NQTRAC + 1
0019 IF (NQTRAC.GE.41) CALL ZFATAL
0020 #else
0021 MQTRAC(NQTRAC+1) = NAMESR(1)
0022 MQTRAC(NQTRAC+2) = NAMESR(2)
0023 NQTRAC = NQTRAC + 2
0024 IF (NQTRAC.GE.41) CALL ZFATAL
0025 #endif
0026
0027 #endif
