| 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.
