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