4.2.15 SUBROUTINE ZEQCNT(LUNPR, I, MAXPR) : Quark CouNTing

Find the number and types of initial quarks in the event.

ARGUMENTS:

INPUT :

    LUNPR : printing unit
    I     : current event number.
    MAXPR : Max number of events to print

IMPLICIT INPUTS:

    From /LUJETS/ : NLUND, number of entries; K, info on particles.
    From /LUDAT1/ : MSTJ(101), the method used in JETSET.

IMPLICIT OUTPUTS:

    To /ZXEVT/ :      NQRK,NBQRK,NCQRK,NHARD : Number of quarks,
      b-quarks, c-quarks and, on-shell quarks in event.
    To /ZXSPL/ : N4HF, number of 4 heavy flavour events; N4B, number
      of 4b events (incremented here).

CALLED BY :

ZEUGEN, User GENerator (see 4.2.1).

CALLED ROUTINE(S):

LULIST

(JETSET routine.)

SIDE EFFECTS:

none.

AUTHORS:

M. Berggren, UFRJ

CREATION DATE:

05-APR-1995