5 * Revision 1.1.1.1 1995/10/24 10:20:31 cernlib
9 #ifndef CERNLIB_GEANT321_GCBANK_INC
10 #define CERNLIB_GEANT321_GCBANK_INC
15 #if !defined(CERNLIB_INCLUDE)
16 #if defined(CERNLIB_TYPE)
17 #include "geant321/gtbank.inc"
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"
30 #if defined(CERNLIB_INCLUDE)
32 #include "geant321/incbeg.inc"
34 #include "geant321/incend.inc"