Back to home page

EIC code displayed by LXR

 
 

    


File indexing completed on 2025-02-23 09:20:58

0001 
0002       SUBROUTINE UGLAST                                                         
0003 *                                                                               
0004 *     Termination routine to print histograms and statistics                    
0005 *            
0006 *                                                                                
0007 * *** geant termination                                                                               
0008       CALL GLAST
0009 *
0010 * *** close HIGZ file
0011       CALL HPLEND 
0012 *
0013 * *** save histograms
0014       call HRPUT(0,'plmat.paw','N')                                                             
0015 *
0016       END