source:
trunk/examples/extended/electromagnetic/TestEm4/geant3/src/uglast.F
@
1205
Last change on this file since 1205 was 807, checked in by , 16 years ago | |
---|---|
File size: 1.2 KB |
Line | |
---|---|
1 | |
2 | SUBROUTINE UGLAST |
3 | * |
4 | * Termination routine to print histograms and statistics |
5 | * |
6 | #include "geant321/gcflag.inc" |
7 | * |
8 | * |
9 | CALL GLAST |
10 | * |
11 | * *** print selected histo |
12 | * |
13 | * *** close HIGZ |
14 | CALL HPLEND |
15 | * |
16 | * *** Save selected histograms |
17 | IF (ISWIT(2).EQ.1) THEN |
18 | CALL HRPUT(0,'testem4.paw','N') |
19 | ENDIF |
20 | * |
21 | END |
Note: See TracBrowser
for help on using the repository browser.