4.1.3 SUBROUTINE ZXLOOP(I, STEER) : main event LOOP

This routine performs the tasks to be done for each event, calling in turn ZEUGEN to generated the event, ZDETSI to simulate the detector, ZXSEND to communicate with the analysing code, and ZXEVOT to output the event.

ARGUMENTS:

INPUT :

    I : Current event number
    STEER : Array of steering-information. Used here are :
                (1,0) : event status : 0 OK; <> 0 some error; =2 -> stop run
                (1,1) type of run :
                      0 : Normal SGV run
                      1 : External data read
                      2 : External simulated data read
                      3 : External simulated data read, filling
                          JETSET commons.
                (1,3) : number of events to print
                (1,6) : number of events to skip after re-start

IMPLICIT INPUTS:

    from /ZXSTE/ :  IOMODEC, IO mode of events.
    Under VMS, the logical name FOR040 is checked, and if
    defined, read from.

IMPLICIT OUTPUTS:

    to /ZXSTE/ :
      ERR_SEEN, flag error; EVT,Current event;
      LHEADC, Zebra link to info, STEERC, copy in
      common of STEER.

CALLED BY :

ZXMAIN, the main program (see 4.1.1).

CALLED ROUTINE(S):

RLUGET/PYRGET

(To output the JETSET random number seed)

RLUSET/RPYSET

(To input the JETSET random number seed)

RMARUT

(To output the random number seed.)

RMARIN

(To input the random number seed.)

ZXCEST (see 4.1.5)

(To Create the Event STructure.)

ZXSEND (see 4.1.10)

(To send the data to the analysing code.)

ZXEVOT (see 4.1.11)

(To output the event.)

LUTABU/PYTABU

(To collect and/or print JETSET statistics.)

LULIST/PYLIST

(To list event in LUJETS.)

SIDE EFFECTS:

At regular intervals, the current status of the random number generators are out put to units 30,31, and 32

AUTHORS:

M.Berggren,UFRJ

CREATION DATE:

31-MAR-1995