GEANT321/geant321/gcstak.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:33  cernlib
   6 * Geant
   7 *
   8 *
   9 #ifndef CERNLIB_GEANT321_GCSTAK_INC
  10 #define CERNLIB_GEANT321_GCSTAK_INC
  11 *
  12 *
  13 * gcstak.inc
  14 *
  15 #if !defined(CERNLIB_INCLUDE)
  16 #if defined(CERNLIB_TYPE)
  17 #include "geant321/gtstak.inc"
  18 #endif
  19       PARAMETER (NWSTAK=12,NWINT=11,NWREAL=12,NWTRAC=NWINT+NWREAL+5)
  20       COMMON /GCSTAK/ NJTMAX, NJTMIN, NTSTKP, NTSTKS, NDBOOK, NDPUSH,
  21      +                NJFREE, NJGARB, NJINVO, LINSAV(15), LMXSAV(15)
  22       EQUIVALENCE (ISTORD,NJTMIN)
  23 C
  24 #endif
  25 *
  26 * gcstak.inc
  27 *
  28 #if defined(CERNLIB_INCLUDE)
  29 *
  30 #include "geant321/incbeg.inc"
  31      +   gcstak
  32 #include "geant321/incend.inc"
  33 #endif
  34
  35 #endif