source: trunk/examples/extended/electromagnetic/TestEm1/geant3/src/uhinit.F@ 812

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

update

File size: 877 bytes
Line 
1
2 SUBROUTINE UHINIT
3*
4* To book the user's histograms
5*
6 CALL HBOOK1(1,'track length (mm) of primary particle',
7 + 100,0.,500.,0.)
8 CALL HBOOK1(2,'Nb of steps of primary particle',
9 + 100,0.,100.,0.)
10 CALL HBOOK1(3,'step size (mm) of primary particle',
11 + 100,0.,10. ,0.)
12*
13 END
Note: See TracBrowser for help on using the repository browser.