* * $Id$ * * $Log$ * Revision 1.1.1.1 1996/03/06 10:46:54 mclareni * Zebra * * #ifndef CERNLIB_ZEBRA_QTRACE_INC #define CERNLIB_ZEBRA_QTRACE_INC * * with check on capacity MQTRAC * * qtrace.inc * #if !defined(CERNLIB_QTRHOLL)||defined(CERNLIB_A6M) MQTRAC(NQTRAC+1) = NAMESR NQTRAC = NQTRAC + 1 IF (NQTRAC.GE.41) CALL ZFATAL #else MQTRAC(NQTRAC+1) = NAMESR(1) MQTRAC(NQTRAC+2) = NAMESR(2) NQTRAC = NQTRAC + 2 IF (NQTRAC.GE.41) CALL ZFATAL #endif #endif