Warning, /include/geant321/gcking.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:31 cernlib
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_GEANT321_GCKING_INC
0010 #define CERNLIB_GEANT321_GCKING_INC
0011 *
0012 *
0013 * gcking.inc
0014 *
0015 #if !defined(CERNLIB_INCLUDE)
0016 #include "geant321/gckmax.inc"
0017 COMMON/GCKING/KCASE,NGKINE,GKIN(5,MXGKIN),
0018 + TOFD(MXGKIN),IFLGK(MXGKIN)
0019 INTEGER KCASE,NGKINE ,IFLGK,MXPHOT,NGPHOT
0020 REAL GKIN,TOFD,XPHOT
0021 C
0022 PARAMETER (MXPHOT=800)
0023 COMMON/GCKIN2/NGPHOT,XPHOT(11,MXPHOT)
0024 C
0025 COMMON/GCKIN3/GPOS(3,MXGKIN)
0026 REAL GPOS
0027 C
0028 #endif
0029 *
0030 * gcking.inc
0031 *
0032 #if defined(CERNLIB_INCLUDE)
0033 *
0034 #include "geant321/incbeg.inc"
0035 + gcking
0036 #include "geant321/incend.inc"
0037 #endif
0038
0039 #endif
