]> git.uio.no Git - u/mrichter/AliRoot.git/blame - MINICERN/packlib/zebra/zebra/mzca.inc
Added protection. In case IROT=0 the address Q(LQ(JROTM-IROT)) should not
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / zebra / mzca.inc
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1996/03/06 10:46:53 mclareni
6* Zebra
7*
8*
9#ifndef CERNLIB_ZEBRA_MZCA_INC
10#define CERNLIB_ZEBRA_MZCA_INC
11*
12* Process Master parameters
13*
14* mzca.inc
15*
16#if defined(CERNLIB_QTRHOLL)
17 COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM
18 +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ
19 +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE
20 +, NQTRAC,MQTRAC(48)
21 EQUIVALENCE (KQSP,NQOFFS(1))
22#endif
23* Process Master parameters
24#if !defined(CERNLIB_QTRHOLL)
25 COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM
26 +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ
27 +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM
28 +, NQFATA,NQCASE,NQTRAC
29 EQUIVALENCE (KQSP,NQOFFS(1))
30 COMMON /MZCA2/ MQTRAC(44)
31 CHARACTER MQTRAC*8
32#endif
33
34#endif