1 cdaq  1.1 *       gen_one_ev_gckine.cmn
 2           *       include file for One Event Display
 3           *-- Original Author : Pat Welch
 4           *-- Most recent Author : Derek van Westrum
 5           * $Log:$
 6           *
 7           * since I normally use implicit none I'll need to type what is here.
 8           *
 9           
10           c GCKINE common block as described in the GEANT manual on page BASE 030-4
11           
12           	integer ikine	! Number of user kinematic parameters
13           	real    pkine	! user kinematic parameters
14           	integer itra	! Current track number
15           	integer istak	! Current stack-track number
16           	integer ivert	! Current vertex number
17           	integer ipart	! current particle number
18           	integer itrtyp	! tracking type of current particle
19           	integer napart	! name of current particle
20           	real    amass	! mass of current particle in AMU
21           	real    charge	! charge of current particle in |e|
22 cdaq  1.1 	real    tlife	! life-time of current particle
23           	real    vert	! vertex coordinates for current track
24           	real    pvert	! track kinematic at origin
25           	integer ipaold	! particle number of the last track
26           
27                 COMMON/GCKINE/IKINE,PKINE(10),ITRA,ISTAK,IVERT,IPART,ITRTYP
28                +      ,NAPART(5),AMASS,CHARGE,TLIFE,VERT(3),PVERT(4),IPAOLD
29           C
30