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