Warning, /include/geant321/gcbank.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1995/10/24 10:20:30 cernlib
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_GEANT321_GCBANK_INC
0010 #define CERNLIB_GEANT321_GCBANK_INC
0011 *
0012 *
0013 * gcbank.inc
0014 *
0015 #if !defined(CERNLIB_INCLUDE)
0016 #if defined(CERNLIB_TYPE)
0017 #include "geant321/gtbank.inc"
0018 #endif
0019 PARAMETER (KWBANK=69000,KWWORK=5200)
0020 COMMON/GCBANK/NZEBRA,GVERSN,ZVERSN,IXSTOR,IXDIV,IXCONS,FENDQ(16)
0021 + ,LMAIN,LR1,WS(KWBANK)
0022 DIMENSION IQ(2),Q(2),LQ(8000),IWS(2)
0023 EQUIVALENCE (Q(1),IQ(1),LQ(9)),(LQ(1),LMAIN),(IWS(1),WS(1))
0024 EQUIVALENCE (JCG,JGSTAT)
0025 #include "geant321/gclink.inc"
0026 #endif
0027 *
0028 * gcbank.inc
0029 *
0030 #if defined(CERNLIB_INCLUDE)
0031 *
0032 #include "geant321/incbeg.inc"
0033 + gcbank
0034 #include "geant321/incend.inc"
0035 #endif
0036
0037 #endif
