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

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

update
File size: 774 bytes
Line 
1
2      SUBROUTINE UHINIT                                                         
3*                                                                               
4*     To book the user's histograms                                             
5*                                                                                                                                                             
6      CALL HBOOK1(1,'total energy deposit in C6F6 (MeV)'             
7     *,100, 0., 10., 0.)                                                     
8
9      CALL HIDOPT(0,'STAT')                               
10*                                                                               
11      END                                                                       
Note: See TracBrowser for help on using the repository browser.