4.6.17 SUBROUTINE ZAUJSF(PARSEL, ORDER, PARLIS) : JetSet commons Fill

This routine fills the JETSET common-block /LUJETS/ with the information on the event contained in /ZAEVT/,/ZATRS/.

ARGUMENTS:

INPUT :

    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

IMPLICIT INPUTS:

    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.

IMPLICIT OUTPUTS:

    To /LUJETS/ : all variables.

CALLED BY :

ZAUCLU, jet CLUstering (see 4.6.16).

CALLED ROUTINE(S):

ZUCINS (see 4.7.8)

(To Check if element IN Set)

SIDE EFFECTS:

none

AUTHORS:

M. Berggren, UFRJ

CREATION DATE:

12-APR-1995