gpamela/gcdes/gcking.inc

*
* $Id$
*
* $Log$
*
*
* gcking.inc
*
#include "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
*
* gcking.inc
*
#if defined(GPAMELA_INCLUDE)
*
#include "incbeg.inc"
     +   gcking
#include "incend.inc"
#endif
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* gcking.inc
8			*
9			#include "gckmax.inc"
10			COMMON/GCKING/KCASE,NGKINE,GKIN(5,MXGKIN),
11			+ TOFD(MXGKIN),IFLGK(MXGKIN)
12			INTEGER KCASE,NGKINE ,IFLGK,MXPHOT,NGPHOT
13			REAL GKIN,TOFD,XPHOT
14			C
15			PARAMETER (MXPHOT=800)
16			COMMON/GCKIN2/NGPHOT,XPHOT(11,MXPHOT)
17			C
18			COMMON/GCKIN3/GPOS(3,MXGKIN)
19			REAL GPOS
20			C
21			*
22			* gcking.inc
23			*
24			#if defined(GPAMELA_INCLUDE)
25			*
26			#include "incbeg.inc"
27			+ gcking
28			#include "incend.inc"
29			#endif