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 |