This routine fills the JETSET common-block /LUJETS/ with the information on the event contained in /ZAEVT/,/ZATRS/.
PARSEL : Types of particles to use : PARSEL = 10*i + j j : 0 : use measured values of seen tracks 1 : " true " " " " 2 : " measured " " all " 3 : " true " " " " 5 : " true " " " stable tracks i : 0 : charged and neutral 1 : charged 2 : charged and neutral, neutral from clusters 3 : use parlis ORDER : 0 : Keep the order in ZATRS (seen tracks before the rest). 1 : Original order in LUJETS (particles earlier in a cascade before later ones). PARLIS : set of particles to use. Bit i set -> use this track. If neutral clusters are to be used, set bit TTRK + #of the cluster for the clusters to be used. PARLIS is only used if PARSEL = 30 + j
From /ZAEVT/ : MTRK, the total number of seen particles; TTRK, the total number of particles. From /ZATRS/ : PVEC, seen momentum of tracks; PVEC, true momentum of tracks; VERT, production point of track; CD, seen code of particle.
To /LUJETS/ : all variables.
(To Check if element IN Set)