*
* $Id: qtrace.inc,v 1.1.1.1 1996/03/06 10:46:54 mclareni Exp $
*
* $Log: qtrace.inc,v $
* 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
