Warning, /include/geant321/gcstak.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:32 cernlib
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_GEANT321_GCSTAK_INC
0010 #define CERNLIB_GEANT321_GCSTAK_INC
0011 *
0012 *
0013 * gcstak.inc
0014 *
0015 #if !defined(CERNLIB_INCLUDE)
0016 #if defined(CERNLIB_TYPE)
0017 #include "geant321/gtstak.inc"
0018 #endif
0019 PARAMETER (NWSTAK=12,NWINT=11,NWREAL=12,NWTRAC=NWINT+NWREAL+5)
0020 COMMON /GCSTAK/ NJTMAX, NJTMIN, NTSTKP, NTSTKS, NDBOOK, NDPUSH,
0021 + NJFREE, NJGARB, NJINVO, LINSAV(15), LMXSAV(15)
0022 EQUIVALENCE (ISTORD,NJTMIN)
0023 C
0024 #endif
0025 *
0026 * gcstak.inc
0027 *
0028 #if defined(CERNLIB_INCLUDE)
0029 *
0030 #include "geant321/incbeg.inc"
0031 + gcstak
0032 #include "geant321/incend.inc"
0033 #endif
0034
0035 #endif
