source:
trunk/examples/extended/electromagnetic/TestEm3/geant3/g4mat/src/uglast.F
@
1217
Last change on this file since 1217 was 807, checked in by , 16 years ago | |
---|---|
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.