3.1 Patch SGVSTEER : Over-all steering of the execution

This patch contains the Main program, which includes the calls to the appropriate initialisation routines, the main event loop, and termination routines. On VMS systems, the asyncronous error handler ZXERRH is established.

$\bullet$

PROGRAM ZXMAIN : Simulation a Grande Vitesse, Main program.

CALLED ROUTINE(S):

ZXINI (decription 4.1.2, follow 3.1)

(To Initialise the run.)

ZXLOOP (decription 4.1.3, follow 3.1)

(To LOOP the requested number of events.)

ZXEND (decription 4.1.4, follow 3.1)

(To do END tasks)

$\bullet$

SUBROUTINE ZXINI(STEER) : INItialisation of SGV

CALLED ROUTINE(S):

ZXRUIN (decription 4.1.6, follow 3.1)

(To initialise the run.)

ZAPRCS (decription 4.5.1, follow 3.5)

(To communicate with the analysis code (for initialisation))

RMARIN

(To input the random number seed.)

$\bullet$

SUBROUTINE ZXLOOP(I, STEER) : main event LOOP

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 (decription 4.1.5, follow 3.1)

(To Create the Event STructure.)

ZXSEND (decription 4.1.10, follow 3.1)

(To send the data to the analysing code.)

ZXEVOT (decription 4.1.11, follow 3.1)

(To output the event.)

LUTABU/PYTABU

(To collect and/or print JETSET statistics.)

LULIST/PYLIST

(To list event in LUJETS.)

$\bullet$

SUBROUTINE ZXEND(STEER) : ENDing of SGV

CALLED ROUTINE(S):

LUTABU/PYTABU

(To collect and/or print JETSET statistics.)

ZXRUEN (decription 4.1.12, follow 3.1)

(To do RUn ENd tasks)

RZEND,FZENDO

(CERNLIB routines (ZEBRA))

$\bullet$

SUBROUTINE ZXCEST(I, STEER) : Create the Event STructure

CALLED ROUTINE(S):

ZEUGEN (decription 4.2.1, follow 3.2)

(To generate the event.)

ZDETSI (decription 4.3.1, follow 3.3)

(To simulate the detector responce.)

FZIN

(CERNLIB ZEBRA routine.)

$\bullet$

SUBROUTINE ZXRUIN(STEER) : RUn Initialisation.

CALLED ROUTINE(S):

ZXGORD (decription 4.1.7, follow 3.1)

(To get General ORDers for run.)

ZEORD (decription 4.2.8, follow 3.2)

(To get Event generator ORDers for run.)

ZDORD (decription 4.3.2, follow 3.3)

(To get Detector simulation ORDers for run.)

ZAORD (decription 4.5.2, follow 3.5)

(To get event Analysis ORDers for run.)

FFINIT,FFSET,FFGO

(CERNLIB FFREAD routines.)

$\bullet$

SUBROUTINE ZXGORD(MODE, STEER) : General ORDers

CALLED ROUTINE(S):

ZXINOT (decription 4.1.8, follow 3.1)

(To Initialise OuTput)

ZXHINI (decription 4.1.9, follow 3.1)

(To do Histogram Initialise.)

HLIMIT,HROPEN,HERMES,HOUTPU,HINDEX

(CERNLIB HBOOK routines.)

FFKEY

(CERNLIB FFREAD routine.)

RZSCAN,VZERO,LENOCC

(CERNLIB routines.)

$\bullet$

SUBROUTINE ZXINOT(IOMODE) : Initialise OuTput

CALLED ROUTINE(S):

MZEBRA,MZSTOR,RZMAKE,FZFILE

(CERNLIB ZEBRA routines.)

$\bullet$

SUBROUTINE ZXHINI(CHPATH) : Histogram Initialisation

CALLED ROUTINE(S):

HCDIR,HMDIR,HRIN,HID1,HID2,HIDALL,HRESET,HFIND

(CERNLIB HBOOK routines.)

LENOCC,RZKEYS,INTSOR,UCOPY,VZERO

(CERNLIB routines.)

$\bullet$

SUBROUTINE ZXSEND(I, STEER, LHEAD) : SEND data

CALLED ROUTINE(S):

ZAPRCS (decription 4.5.1, follow 3.5)

(To PRoCeSs event.)

MZBOOK

(CERNLIB ZEBRA routine (only if EVOUT=TRUE.)

UCOPY

(CERNLIB routine.)

$\bullet$

SUBROUTINE ZXEVOT(I, LHEAD, IOMODE) : EVent OuTput

CALLED ROUTINE(S):

RZOUT,MZIXCO,MZWIPE,FZWIPE

(CERNLIB ZEBRA routines.)

$\bullet$

SUBROUTINE ZXRUEN(LHEAD) : RUn ENd

CALLED ROUTINE(S):

ZXHEND (decription 4.1.13, follow 3.1)

(To do Histogram END)

ZARUEN (decription 4.5.11, follow 3.5)

(To do User ENding)

RZSCAN

(CERNLIB ZEBRA routine.)

HOUTPU,HREND

(CERNLIB HBOOK routines.)

$\bullet$

SUBROUTINE ZXHEND(CHPATH) : Histogram END

CALLED ROUTINE(S):

HCDIR,HROUT

(CERNLIB HBOOK routines.)

LENOCC

(CERNLIB routine.)

$\bullet$

INTEGER FUNCTION ZXERRH(SIGARGS, MECHARGS) : ERRor Handler

CALLED ROUTINE(S):

ZXRUEN (decription 4.1.12, follow 3.1)

(To do RUn ENd.)

SYS$UNWIND

(To unwind the call-stack)

LIB$SYS_TRNLOG

(To get the value of a logical name.)

LIB$REANAME_FILE

(To rename a file.)

LENOCC

(CERNLIB routine.)