GEANT321/geant321/gcking.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:32  cernlib
   6 * Geant
   7 *
   8 *
   9 #ifndef CERNLIB_GEANT321_GCKING_INC
  10 #define CERNLIB_GEANT321_GCKING_INC
  11 *
  12 *
  13 * gcking.inc
  14 *
  15 #if !defined(CERNLIB_INCLUDE)
  16 #include "geant321/gckmax.inc"
  17       COMMON/GCKING/KCASE,NGKINE,GKIN(5,MXGKIN),
  18      +                           TOFD(MXGKIN),IFLGK(MXGKIN)
  19       INTEGER       KCASE,NGKINE ,IFLGK,MXPHOT,NGPHOT
  20       REAL          GKIN,TOFD,XPHOT
  21 C
  22       PARAMETER (MXPHOT=800)
  23       COMMON/GCKIN2/NGPHOT,XPHOT(11,MXPHOT)
  24 C
  25       COMMON/GCKIN3/GPOS(3,MXGKIN)
  26       REAL          GPOS
  27 C
  28 #endif
  29 *
  30 * gcking.inc
  31 *
  32 #if defined(CERNLIB_INCLUDE)
  33 *
  34 #include "geant321/incbeg.inc"
  35      +   gcking
  36 #include "geant321/incend.inc"
  37 #endif
  38
  39 #endif