BASE300 Example of user termination routine

Next: BASE400 Debugging facilities Up: GEANT Previous: BASE299 The banks

BASE300 Example of user termination routine

Routine ID: BASE300
Author(s):	Submitted: 01.10.84
Origin:	Revised: 08.11.93

    SUBROUTINE UGLAST
*
+SEQ,GCLIST
*
*       Call standard GEANT termination routine
    CALL GLAST
*
*       Terminate graphics
    CALL HPLEND
*
*       Close I/O buffers
    IF(NGET .NE. 0 .OR. NSAVE .NE. 0) CALL GCLOSE(0,IER)
*
*       Print histograms
    CALL HISTDO
*
    END

CALL GLAST Standard GEANT termination routine:

computes and prints the processing time per event;
calls MZEND to print the statistics relative to the current run;
if the structure JGSTAT has been initialised, calls GPSTAT [GEOM700].

BASE400

Janne Saarela
Mon Apr 3 12:46:29 METDST 1995