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