Line | |
---|
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 |
---|
Note: See
TracBrowser
for help on using the repository browser.