*********************************************************************** * kinetups.inc (include file for kine*.F * * * * last modified on 05/12/2008 by I. Koenig * * * *********************************************************************** #include "geantdef.h" #include "hgeantmaxtrk.h" integer*4 idkinetup, idkinehisto, nhisto parameter (idkinetup=9000) parameter (idkinehisto=9001) parameter (nhisto=5) integer*4 maxprt, maxtrk1, maxtrk #ifdef WITHROOT parameter (maxtrk1=MAXTRKKINE) ! max. number of tracks, including all ! secondaries #else parameter (maxtrk1=4000) ! max. number of tracks, including all ! secondaries #endif parameter (maxtrk=maxtrk1) integer*4 eventid, runid, ntrk, track, prevtrack, prevind integer*4 mechanism, partid real*4 ebeam, bpar, phi_event real*4 pmom, wghtp, tvert, gen1, gen2, gen3 real*4 userval integer*4 evtversion common /kinetups/ eventid, runid, ebeam, bpar, phi_event,ntrk, + track(maxtrk1), prevtrack(maxtrk1), tvert(3,maxtrk1), + mechanism(maxtrk1), partid(maxtrk1), pmom(3,maxtrk1), + gen1(maxtrk1), gen2(maxtrk1), gen3(maxtrk1), + wghtp(maxtrk1), userval(maxtrk1), evtversion