| 27 |
c$$$ $ ,clcutx,clcuty |
c$$$ $ ,clcutx,clcuty |
| 28 |
c$$$ $ ,incutx,incuty |
c$$$ $ ,incutx,incuty |
| 29 |
|
|
| 30 |
|
save/sw/ |
| 31 |
|
|
| 32 |
c------------------------------------------------------------------------ |
c------------------------------------------------------------------------ |
| 33 |
c |
c |
| 34 |
c pedestal, sigma and badstrip variables |
c pedestal, sigma and badstrip variables |
| 89 |
c |
c |
| 90 |
c------------------------------------------------------------------------ |
c------------------------------------------------------------------------ |
| 91 |
* angular binning |
* angular binning |
|
* NB the angular binning is defined in common_preanalysis.f |
|
|
* here are defned variables to retrieve calibration info |
|
|
* (for processing levels next to 1) |
|
| 92 |
parameter (nangmax=21) !maximum number of angular bins |
parameter (nangmax=21) !maximum number of angular bins |
| 93 |
integer nangbin |
integer nangbin |
| 94 |
real angL(nangmax),angR(nangmax) !Left and Right bin limits |
real angL(nangmax),angR(nangmax) !Left and Right bin limits |
| 101 |
real feta3(netavalmax,nviews,nladders_view,nangmax) |
real feta3(netavalmax,nviews,nladders_view,nangmax) |
| 102 |
real eta4(netavalmax,nangmax) |
real eta4(netavalmax,nangmax) |
| 103 |
real feta4(netavalmax,nviews,nladders_view,nangmax) |
real feta4(netavalmax,nviews,nladders_view,nangmax) |
| 104 |
|
real fcorr(nviews,nladders_view,nangmax) |
| 105 |
|
|
| 106 |
|
|
| 107 |
|
|
| 108 |
c$$$ common/angbinning/nangbin,angL,angR |
c$$$ common/angbinning/nangbin,angL,angR |
| 109 |
c$$$ save/angbinning/ |
c$$$ save/angbinning/ |
| 112 |
|
|
| 113 |
common/pfa/nangbin,angL,angR |
common/pfa/nangbin,angL,angR |
| 114 |
$ ,netaval,eta2,feta2,eta3,feta3,eta4,feta4 |
$ ,netaval,eta2,feta2,eta3,feta3,eta4,feta4 |
| 115 |
|
$ ,fcorr |
| 116 |
save/pfa/ |
save/pfa/ |
| 117 |
|
|
| 118 |
* limit of application of pfa |
* limit of application of pfa |