BASE300 Example of user termination routine

    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

• 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