* * $Id$ * * $Log$ * Revision 1.1.1.1 1995/10/24 10:20:32 cernlib * Geant * * #ifndef CERNLIB_GEANT321_GCKING_INC #define CERNLIB_GEANT321_GCKING_INC * * * gcking.inc * #if !defined(CERNLIB_INCLUDE) #include "geant321/gckmax.inc" COMMON/GCKING/KCASE,NGKINE,GKIN(5,MXGKIN), + TOFD(MXGKIN),IFLGK(MXGKIN) INTEGER KCASE,NGKINE ,IFLGK,MXPHOT,NGPHOT REAL GKIN,TOFD,XPHOT C PARAMETER (MXPHOT=800) COMMON/GCKIN2/NGPHOT,XPHOT(11,MXPHOT) C COMMON/GCKIN3/GPOS(3,MXGKIN) REAL GPOS C #endif * * gcking.inc * #if defined(CERNLIB_INCLUDE) * #include "geant321/incbeg.inc" + gcking #include "geant321/incend.inc" #endif #endif