*
* $Id$
*
* $Log$
* Revision 1.1  1996/03/06 10:46:53  mclareni
* Initial revision
*
*
#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
