This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / geant321 / gcbank.inc
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:20:31  cernlib
6 * Geant
7 *
8 *
9 #ifndef CERNLIB_GEANT321_GCBANK_INC
10 #define CERNLIB_GEANT321_GCBANK_INC
11 *
12 *
13 * gcbank.inc
14 *
15 #if !defined(CERNLIB_INCLUDE)
16 #if defined(CERNLIB_TYPE)
17 #include "geant321/gtbank.inc"
18 #endif
19       PARAMETER (KWBANK=69000,KWWORK=5200)
20       COMMON/GCBANK/NZEBRA,GVERSN,ZVERSN,IXSTOR,IXDIV,IXCONS,FENDQ(16)
21      +             ,LMAIN,LR1,WS(KWBANK)
22       DIMENSION IQ(2),Q(2),LQ(8000),IWS(2)
23       EQUIVALENCE (Q(1),IQ(1),LQ(9)),(LQ(1),LMAIN),(IWS(1),WS(1))
24       EQUIVALENCE (JCG,JGSTAT)
25 #include "geant321/gclink.inc"
26 #endif
27 *
28 * gcbank.inc
29 *
30 #if defined(CERNLIB_INCLUDE)
31 *
32 #include "geant321/incbeg.inc"
33      +   gcbank
34 #include "geant321/incend.inc"
35 #endif
36
37 #endif