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