Analyzer/INCLUDE/gen_one_ev_gckine.cmn - view

Return to gen_one_ev_gckine.cmn CVS log

Up to [HallC] / Analyzer / INCLUDE

File: [HallC] / Analyzer / INCLUDE / gen_one_ev_gckine.cmn (download)
Revision: 1.1, Wed Jan 17 15:43:35 1996 UTC (28 years, 8 months ago) by cdaq
Branch: MAIN
CVS Tags: spring03, sep0596, sep-26-2002, sep-25-2002, sep-24-2002, sep-09-2002, sane, pionct, online07, online04, online03, oct1199, nov2696, mduality, mar-24-2003, jan2496, jan1896, jan1796, gep_online, gep3, fpi2, emc, e01004, dec0198, bigcal, baryon, aug-12-2003, apr3096, apr-02-2003, Initial-CVS-Release, HEAD, Extra_Shower_Tubes_on_HMS_not_SOS

Initial revision

*       gen_one_ev_gckine.cmn
*       include file for One Event Display
*-- Original Author : Pat Welch
*-- Most recent Author : Derek van Westrum
* $Log: gen_one_ev_gckine.cmn,v $
* Revision 1.1  1996/01/17 15:43:35  cdaq
* Initial revision
*
*
* since I normally use implicit none I'll need to type what is here.
*

c GCKINE common block as described in the GEANT manual on page BASE 030-4

	integer ikine	! Number of user kinematic parameters
	real    pkine	! user kinematic parameters
	integer itra	! Current track number
	integer istak	! Current stack-track number
	integer ivert	! Current vertex number
	integer ipart	! current particle number
	integer itrtyp	! tracking type of current particle
	integer napart	! name of current particle
	real    amass	! mass of current particle in AMU
	real    charge	! charge of current particle in |e|
	real    tlife	! life-time of current particle
	real    vert	! vertex coordinates for current track
	real    pvert	! track kinematic at origin
	integer ipaold	! particle number of the last track

      COMMON/GCKINE/IKINE,PKINE(10),ITRA,ISTAK,IVERT,IPART,ITRTYP
     +      ,NAPART(5),AMASS,CHARGE,TLIFE,VERT(3),PVERT(4),IPAOLD
C

Analyzer/Replay: Mark Jones, Documents: Stephen Wood