source/common/common_reduction.f



************************************************************************
*     
*     Common common_reduction.f
*     
*     contains variables used only in the execution of  reduction
*     
*     to be included in:
*     - reduction.f
*     
*     
*************************************************************************

      real adc(nviews,nva1_view,nstrips_va1)
      common/adc_value/adc

c------------------------------------------------------------------------
c     
c     common noise computation
c     
c------------------------------------------------------------------------
      parameter (scut=3.)

      real cn(nviews,nva1_view) !common noise value
      integer clstr(nviews,nva1_view,nstrips_va1) !flag matrix to mark 
                                ! strips with signal and exclude them from
                                ! common noise computation
      integer strange(nviews,nva1_view,nstrips_va1) !flag matrix to mark 
                                ! strips with unusually high or low signal and
                                ! exclude them from common noise computation

      common/cn/cn,clstr,strange


c------------------------------------------------------------------------
c     
c     cluster seed cuts
c     
c------------------------------------------------------------------------
c$$$      parameter (clcutx=7.)     !cluster seed cut (to esclude particles in CN
c$$$                                ! computation and to find clusters in data
c$$$                                ! reduction)
c$$$      parameter (clcuty=7.)
c$$$

c------------------------------------------------------------------------
c     
c     common noise inclusion cut
c     
c------------------------------------------------------------------------
      parameter (cnincut=2.)    !cut to include strips in cluster definition
                                ! during common noise computation


c------------------------------------------------------------------------
c     
c     cluster finding inclusion cut
c     
c------------------------------------------------------------------------
c$$$      parameter (incutx=4.)     !cut to include strips in cluster definition
c$$$                                ! during cluster finding procedure
c$$$      parameter (incuty=4.)
c$$$
1	pam-fi	1.1
2
3			************************************************************************
4			*
5			* Common common_reduction.f
6			*
7			* contains variables used only in the execution of reduction
8			*
9			* to be included in:
10			* - reduction.f
11			*
12			*
13			*************************************************************************
14
15			real adc(nviews,nva1_view,nstrips_va1)
16			common/adc_value/adc
17
18			c------------------------------------------------------------------------
19			c
20			c common noise computation
21			c
22			c------------------------------------------------------------------------
23			parameter (scut=3.)
24
25			real cn(nviews,nva1_view) !common noise value
26			integer clstr(nviews,nva1_view,nstrips_va1) !flag matrix to mark
27			! strips with signal and exclude them from
28			! common noise computation
29			integer strange(nviews,nva1_view,nstrips_va1) !flag matrix to mark
30			! strips with unusually high or low signal and
31			! exclude them from common noise computation
32
33			common/cn/cn,clstr,strange
34
35
36			c------------------------------------------------------------------------
37			c
38			c cluster seed cuts
39			c
40			c------------------------------------------------------------------------
41			c$$$ parameter (clcutx=7.) !cluster seed cut (to esclude particles in CN
42			c$$$ ! computation and to find clusters in data
43			c$$$ ! reduction)
44			c$$$ parameter (clcuty=7.)
45			c$$$
46
47			c------------------------------------------------------------------------
48			c
49			c common noise inclusion cut
50			c
51			c------------------------------------------------------------------------
52			parameter (cnincut=2.) !cut to include strips in cluster definition
53			! during common noise computation
54
55
56			c------------------------------------------------------------------------
57			c
58			c cluster finding inclusion cut
59			c
60			c------------------------------------------------------------------------
61			c$$$ parameter (incutx=4.) !cut to include strips in cluster definition
62			c$$$ ! during cluster finding procedure
63			c$$$ parameter (incuty=4.)
64			c$$$