source: trunk/examples/extended/electromagnetic/TestEm3/geant3/g4mat/src/uglast.F @ 1330

Last change on this file since 1330 was 807, checked in by garnier, 16 years ago

update
File size: 636 bytes
Line 
1
2      SUBROUTINE UGLAST                                                         
3*                                                                               
4*     Termination routine to print histograms and statistics                   
5*           
6*                                                                               
7* *** geant termination                                                                               
8      CALL GLAST
9*
10* *** close HIGZ file
11      CALL HPLEND
12*
13* *** save histograms
14      call HRPUT(0,'plmat.paw','N')                                                             
15*
16      END
Note: See TracBrowser for help on using the repository browser.