]> git.uio.no Git - u/mrichter/AliRoot.git/blob - MINICERN/packlib/zebra/zebra/zebq.inc
Added protection. In case IROT=0 the address Q(LQ(JROTM-IROT)) should not
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / zebra / zebq.inc
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_ZEBQ_INC
10 #define CERNLIB_ZEBRA_ZEBQ_INC
11 *
12 *
13 * zebq.inc
14 *
15       COMMON /ZEBQ/  IQFENC(4), LQ(100)
16                               DIMENSION    IQ(92),        Q(92)
17                               EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1))
18
19 #endif