Rev | Line | |
---|
[807] | 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.