CERN Program Library Long Writeup W5013 - CERNLIB ...

*
PARAMETER (MAXJMP=30)
COMMON/GCJUMP/JUDCAY, JUDIGI, JUDTIM, JUFLD , JUHADR, JUIGET,
+ JUINME, JUINTI, JUKINE, JUNEAR, JUOUT , JUPHAD,
+ JUSKIP, JUSTEP, JUSWIM, JUTRAK, JUTREV, JUVIEW,
+ JUPARA
DIMENSION JMPADR(MAXJMP)
EQUIVALENCE (JMPADR(1), JUDCAY)
+SEQ /GCKINE/
Kinematics of current track
C
COMMON/GCKINE/IKINE,PKINE(10),ITRA,ISTAK,IVERT,IPART,ITRTYP
+ ,NAPART(5),AMASS,CHARGE,TLIFE,VERT(3),PVERT(4),IPAOLD
IKINE user integer word (0, KINE);
PKINE user array of real (0, KINE);
ITRA track number;
ISTAK stack track number;
IVERT vertex number;
IPART particle number;
ITRTYP particle tracking type;
NAPART name of current particle (ASCII codes stored in an integer array, 4 characthers per word);
AMASS mass of current particle in GeV c −2 ;
CHARGE charge of current particle in electron charge unit;
TLIFE average life time of current particle in seconds;
VERT coordinates of origin vertex for current track;
PVERT track kinematics at origin vertex (PVERT(4) not used);
IPAOLD particle number of the previous track.
+SEQ /GCKMAX/
Size of the /GCKING/ stack
INTEGER MXGKIN
PARAMETER (MXGKIN=100)
+SEQ /GCMUTR/
Auxiliary variables for the CG package
*
PARAMETER (MULTRA=50)
CHARACTER*4 GNASH, GNNVV, GNVNV
COMMON/GCMUTR/NCVOLS,KSHIFT,NSHIFT,ICUBE,NAIN,JJJ,
+ NIET,IOLDSU,IVOOLD,IWPOIN,IHPOIN,IVECVO(100),
+ PORGX,PORGY,PORGZ,POX(15),POY(15),POZ(15),GBOOM,
+ PORMIR(18),PORMAR(18),IPORNT,
ZZZZ010 – 8 425