]> git.uio.no Git - u/mrichter/AliRoot.git/blame - MINICERN/packlib/zebra/zebra/tzc1.inc
Added protection. In case IROT=0 the address Q(LQ(JROTM-IROT)) should not
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / zebra / tzc1.inc
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.2 1996/04/18 16:15:28 mclareni
6* Incorporate changes from J.Zoll for version 3.77
7*
8* Revision 1.1.1.1 1996/03/06 10:46:56 mclareni
9* Zebra
10*
11*
12#ifndef CERNLIB_ZEBRA_TZC1_INC
13#define CERNLIB_ZEBRA_TZC1_INC
14*
15*
16* tzc1.inc
17*
18 PARAMETER (LGL=240)
19 CHARACTER LINE*(LGL), LHEAD*80, BLANK*(LGL)
20 COMMON /TZC1/ LUNTQ, NREADY, NFATAL, IGNORE
21 +, IFLLOG, IFLPRI, IFLUSE, IFLKIL, IFLANY
22 +, IFLEXA, IFLSIZ, IFLTZU, IVALUS, JFMTC1, JFMTC2
23 +, JCOLA, JCOLE, NCHPW, IFLHC, IFLHW, IFLDBL
24 +, IFLPRE, NFAULT, LPUTA, LPUTX, LPUTE
25 +, NCHORG, NHEAD, LINE, LHEAD, BLANK
26
27#endif