Mostly minor style modifications to be ready for cloning with EMCAL
[u/mrichter/AliRoot.git] / 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"