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

Last change on this file since 1036 was 807, checked in by garnier, 18 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.