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

Last change on this file since 1358 was 807, checked in by garnier, 16 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.