uglast.F

Go to the documentation of this file.

      SUBROUTINE uglast                                                         
*                                                                               
*     Termination routine to print histograms and statistics                    
*            
*                                                                                
* *** geant termination                                                                               
      CALL glast
*
* *** close HIGZ file
      CALL hplend 
*
* *** save histograms
      call hrput(0,'plmat.paw','N')                                                             
*
      END