Example of User Termination and related routines

+-------------+                                               +----------##
| Geant 3.15  |               GEANT User's Guide              | BASE300  ##
+-------------+                                               +----------##
                                   

                                   

Author(s) : R.Brun                                     Submitted: 01/10/84
Origin    : GEANT2/3                                     Revised: 10/12/92
                                  

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

                     +------------------------------+
                     |CALL GLAST  |
                     +------------------------------+
                                  

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 initialized, calls GPSTAT [GEOM700].