source:
trunk/examples/extended/electromagnetic/TestEm4/geant3/src/uglast.F
@
1279
Last change on this file since 1279 was 807, checked in by , 16 years ago | |
---|---|
File size: 1.2 KB |
Rev | Line | |
---|---|---|
[807] | 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.