MINICERN/packlib/zebra/jz91/jzroot.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:16  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10       SUBROUTINE JZROOT
  11
  12 C-    RESET TO ROOT LEVEL FOR QNEXT
  13
  14 #include "zebra/zunit.inc"
  15 #include "zebra/mqsysh.inc"
  16 #include "zebra/jzuc.inc"
  17 #include "zebra/jzc.inc"
  18 C--------------    END CDE                             -----------------  ------
  19 #if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
  20       DIMENSION    NAMESR(2)
  21       DATA  NAMESR / 4HJZRO, 4HOT   /
  22 #endif
  23 #if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
  24       DATA  NAMESR / 6HJZROOT /
  25 #endif
  26 #if !defined(CERNLIB_QTRHOLL)
  27       CHARACTER    NAMESR*8
  28       PARAMETER   (NAMESR = 'JZROOT  ')
  29 #endif
  30
  31 #include "zebra/q_jbit.inc"
  32
  33       IF (JQLEV.LT.0)              RETURN
  34
  35 #include "zebra/qtraceq.inc"
  36 #include "zebra/qstorjz.inc"
  37
  38       IF (JQLEV.EQ.0)              GO TO 31
  39    21 CALL JZOUT ('??? ')
  40       IF (JQLEV.GT.0)        GO TO 21
  41
  42       IQ(KQS+LQSV+2) = IQ(KQS+LQSV+2) + 1
  43
  44 #if defined(CERNLIB_QDEBUG)
  45       IF (JBIT(JQLLEV,13).NE.0)  WRITE (IQLOG,9024)
  46  9024 FORMAT    (/' =======  JZROOT done.')
  47 #endif
  48
  49    31 CONTINUE
  50 #if defined(CERNLIB_JZTIME)
  51 #include "zebra/jztimout.inc"
  52 #endif
  53 #include "zebra/qtrace99.inc"
  54       RETURN
  55       END
  56 *      ==================================================
  57 #include "zebra/qcardl.inc"