4.2.5 SUBROUTINE ZEUGEN(I, STEER, IERR) : User GENerator,single particel version

User event generator routine, Single particle version. The range in P, theta, and phi are given by the user, as well as the particle type. This routine produces a single particle with p, theta and phi polled from independent rectangular distributions.

ARGUMENTS:

INPUT :

    I : Current event number.
    STEER : Steering info. The event generator uses row 2:
                  STEER(2,0)   : JETSET code of particle
                         ,4)   : 0.0 -> use fixed primary vertex position.
                                 1,0 -> generate primary vertex position.
                                        event by event.
                         ,5-7) : Average production point.
                         ,8-10): Spread in production-point.
                         ,11-12) : Range in P
                         ,13-14) : Range in theta
                         ,15-16) : Range in phii
                 All other position of the row are free to use.

    IERR  : error code.

IMPLICIT INPUTS:

     From /ZXSTE/ : LUNPRC, printing unit; MAXPR, max number of
          events to print; NEWAMV, flag to load average mean vertex.

IMPLICIT OUTPUTS:

     To /ZXEVT/ : XYZV, average vertex position; SIGV, vertex error;
       EVTYPE, type of generated event.
     To /LUJETS/ : event record in JETSET conventions.

CALLED BY :

ZXCEST, Create the Event STructure (see 4.1.5).

CALLED ROUTINE(S):

LULIST

(JETSET routine.)

ZEPVTX (see 4.2.7)

(To generate Primary VerTeX.)

UCOPY

(CERNLIB routine.)

SIDE EFFECTS:

none.

AUTHORS:

M. Berggren, IPN Lyon

CREATION DATE:

17-FEB-1998