GEANT321/geant321/gcpara.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:34  cernlib
   6 * Geant
   7 *
   8 *
   9 #ifndef CERNLIB_GEANT321_GCPARA_INC
  10 #define CERNLIB_GEANT321_GCPARA_INC
  11 *
  12 *
  13 * gcpara.inc
  14 *
  15 #if !defined(CERNLIB_INCLUDE)
  16 #include "geant321/gtpara.inc"
  17       PARAMETER (LSTACK = 5000)
  18 C     BITPOT is for Phi.Or.Tet
  19 C
  20 C ---------------------------------------------------------
  21       COMMON    /GCPARA/
  22      +                   EPSIX0 (LSTACK)       ,
  23      +                   IDRPHI (LSTACK     )  , IDRTET (LSTACK     ),
  24      +                   IDROUT (LSTACK     )  , JPLOST (LSTACK     ),
  25      +                   IPHTMP (LSTACK     )  ,
  26      +                   BITPHI (LSTACK     )  , BITTET (LSTACK     ),
  27      +                   BITPOT (LSTACK     )  , JJLOST, JJFILL,
  28      +                                           JENTRY, JEMPTY,
  29      +                                           EPSMAX,
  30      +                   JJTEMP, JJWORK        , JJSTK1,
  31      +                   J1TEMP,                 J1STK1,
  32      +                   IFOUNP, IFOUNT        , IFNPOT,
  33      +                                           SYMPHI,
  34      +                   SYMTEU, SYMTED
  35 C
  36 #endif
  37 *
  38 * gcpara.inc
  39 *
  40 #if defined(CERNLIB_INCLUDE)
  41 *
  42 #include "geant321/incbeg.inc"
  43      +   gcpara
  44 #include "geant321/incend.inc"
  45 #endif
  46
  47 #endif