Warning, /include/geant321/gcpara.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:33 cernlib
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_GEANT321_GCPARA_INC
0010 #define CERNLIB_GEANT321_GCPARA_INC
0011 *
0012 *
0013 * gcpara.inc
0014 *
0015 #if !defined(CERNLIB_INCLUDE)
0016 #include "geant321/gtpara.inc"
0017 PARAMETER (LSTACK = 5000)
0018 C BITPOT is for Phi.Or.Tet
0019 C
0020 C ---------------------------------------------------------
0021 COMMON /GCPARA/
0022 + EPSIX0 (LSTACK) ,
0023 + IDRPHI (LSTACK ) , IDRTET (LSTACK ),
0024 + IDROUT (LSTACK ) , JPLOST (LSTACK ),
0025 + IPHTMP (LSTACK ) ,
0026 + BITPHI (LSTACK ) , BITTET (LSTACK ),
0027 + BITPOT (LSTACK ) , JJLOST, JJFILL,
0028 + JENTRY, JEMPTY,
0029 + EPSMAX,
0030 + JJTEMP, JJWORK , JJSTK1,
0031 + J1TEMP, J1STK1,
0032 + IFOUNP, IFOUNT , IFNPOT,
0033 + SYMPHI,
0034 + SYMTEU, SYMTED
0035 C
0036 #endif
0037 *
0038 * gcpara.inc
0039 *
0040 #if defined(CERNLIB_INCLUDE)
0041 *
0042 #include "geant321/incbeg.inc"
0043 + gcpara
0044 #include "geant321/incend.inc"
0045 #endif
0046
0047 #endif
