7 |
* |
* |
8 |
************************************************************************* |
************************************************************************* |
9 |
|
|
10 |
|
parameter (clcutx=7.) !cluster seed cut |
11 |
|
parameter (clcuty=6.) |
12 |
|
parameter (incutx=4.) !cut to include strips in cluster definition |
13 |
|
parameter (incuty=4.) |
14 |
|
|
15 |
|
c------------------------------------------------------------------------ |
16 |
|
c |
17 |
|
c some parameters to configure data reduction |
18 |
|
c |
19 |
|
c------------------------------------------------------------------------ |
20 |
|
c$$$ real clcutx !cluster seed cut |
21 |
|
c$$$ real clcuty |
22 |
|
c$$$ real incutx !cut to include strips in cluster definition |
23 |
|
c$$$ real incuty |
24 |
|
integer pfaid !if of PFA |
25 |
|
common/sw/ |
26 |
|
$ pfaid |
27 |
|
c$$$ $ ,clcutx,clcuty |
28 |
|
c$$$ $ ,incutx,incuty |
29 |
|
|
30 |
c------------------------------------------------------------------------ |
c------------------------------------------------------------------------ |
31 |
c |
c |
32 |
c pedestal, sigma and badstrip variables |
c pedestal, sigma and badstrip variables |
48 |
save/pedsigbad/ |
save/pedsigbad/ |
49 |
|
|
50 |
|
|
|
parameter (clcutx=7.) !cluster seed cut |
|
|
parameter (clcuty=6.) |
|
|
parameter (incutx=4.) !cut to include strips in cluster definition |
|
|
parameter (incuty=4.) |
|
51 |
|
|
52 |
c------------------------------------------------------------------------ |
c------------------------------------------------------------------------ |
53 |
c |
c |