TestEm4/geant3/src/uglast.F

Go to the documentation of this file.

      SUBROUTINE uglast                                                         
*                                                                               
*     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                                                                     
*
      END