source: trunk/examples/extended/electromagnetic/TestEm4/geant3/src/uglast.F @ 807

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

update
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.