This routine does the initialisation of SGV. It initiates general and user initialisation by calling ZXRUIN. The analysis code is also initialised by a call to ZAPRCS.
Under VMS, the asyncronous error handler ZXERRH is established and if the logical name FOR040 is assigned, the contents of that file will be used as starting seeds for the random generators. If the symbol N_SKIP_AT_RESTART is set, that number of events will be skipped before starting to generate new events (this is to avoid generating the same event after a restart, since the seed backup is not done each event. In fact, at user-code error, the seeds of the last event before the crash is out-put by the error handler, and skipping just one event should be fine. However, if there was a catastrofical system failure, in which the error-handler was not called, the last seed backup might be BACKUP_FREQ events old.)
STEER(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. 4 : Read-back of previously generated and simulated SGV-events (FZ)
STEER : Array of steering-information. STEER(1,0) <> 0 -> Error. For definition of contests, see: first index in STEER Routine 1 ZXGORD 2 ZEORD 3 ZDORD 4 ZAORD
Under VMS, the symbol N_SKIP_AT_RESTART is read in.
to /ZXSTE/ : LAST_ERR_EVT, event number at last error; NB_ERR, total number of errors;N_SKIP, number of events to skip at restart.
(To initialise the run.)
(To communicate with the analysis code (for initialisation))