TestEm4/geant3/src/uglast.F File Reference

#include "geant321/gcflag.inc"

Include dependency graph for TestEm4/geant3/src/uglast.F:

Go to the source code of this file.

Functions/Subroutines
subroutine	uglast

Function/Subroutine Documentation

uglast()

subroutine uglast

(

)

Definition at line 3 of file TestEm4/geant3/src/uglast.F.

*                                                                               
*     Termination routine to print histograms and statistics                    
*                                                                               
#include "geant321/gcflag.inc"                                                      
*                                                                                                                        
*                                                                                
      CALL glast
*
* *** print  selected histo                                                                               
*
* *** close HIGZ
      CALL hplend
*                                                                               
* *** Save selected histograms                                                  
      IF (iswit(2).EQ.1) THEN                                                   
         CALL hrput(0,'testem4.paw','N')                                                                        
      ENDIF                                                                     
*