Geant4  9.6.p02
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
uhinit.F
Go to the documentation of this file.
1 
2  SUBROUTINE uhinit
3 *
4 *
5 #include "histo.inc"
6 *
7  CHARACTER*50 title(6)
8 *
9  data title /
10  1 'scattered primary particle: energy spectrum',
11  2 'scattered primary particle: costheta distribution',
12  3 'charged secondaries: energy spectrum',
13  4 'charged secondaries: costheta distribution',
14  5 'neutral secondaries: energy spectrum',
15  6 'neutral secondaries: costheta distribution' /
16 *
17  if (histo(idhist)) call hdelet(idhist)
18 *
19  vmin = valmin
20  vmax = valmax
21  call hbook1(idhist,title(idhist),nbbins,vmin,vmax,0.)
22 *
23  histo(idhist) = .true.
24  binwidth(idhist) = (valmax-valmin)/nbbins
25  if (valunit.le.0.) valunit = 1.
26  histunit(idhist) = valunit
27 *
28  END