inc/F77/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=4.)!(scut=3.)
      parameter (NSTRIPMIN=64)!(NSTRIPMIN=10)!TEMPORANEO
      parameter (NSTRIPWARNING=64)

      real    cn(nviews,nva1_view)      ! common noise values
      integer cnflag(nviews,nva1_view)  ! common noise flags: 
c                                         0 = ok 
c                                        -1 = failed  (less than NSTRIPMIN strips used)
c                                         1 = warning (less than NSTRIPWARNING strips used)
      integer mask_vk_ev(nviews,nva1_view) ! mask of VA1s, local to the event (set to 0 if CN computation fails)

      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,cnflag,mask_vk_ev,clstr,strange


c$$$c------------------------------------------------------------------------
c$$$c     
c$$$c     cluster seed cuts
c$$$c     
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     common noise inclusion cut
c     
c------------------------------------------------------------------------
      parameter (cnincut=2.)    !cut to include strips in cluster definition
                                ! during common noise computation


c$$$c------------------------------------------------------------------------
c$$$c     
c$$$c     cluster finding inclusion cut
c$$$c     
c$$$c------------------------------------------------------------------------
c$$$      parameter (incutx=4.)     !cut to include strips in cluster definition
c$$$                                ! during cluster finding procedure
c$$$      parameter (incuty=4.)

c$$$c------------------------------------------------------------------------
c$$$c
c$$$c     variables passed from TRACKEREXE.cra
c$$$c
c$$$c------------------------------------------------------------------------
c$$$      
c$$$      integer trkpaw
c$$$      integer procerr
c$$$      character*20 data_file
c$$$      character*50 data_file_level1
c$$$      character*50 data_file_level2
c$$$      character*74 data_file_calib 
c$$$
c$$$      common/c2red/trkpaw,procerr,data_file,data_file_level1
c$$$     $     ,data_file_level2,data_file_calib
c------------------------------------------------------------------------
c
c     some common for reductionflight
c
c------------------------------------------------------------------------
      integer ind
      real value(nstrips_view)  !per trovare i cluster
      real clseedcut(nstrips_view)
      real clinclcut(nstrips_view)
      common/searchcluster/value,clseedcut,clinclcut,ind

      integer nshowers
      logical flag_shower
      common/shower/nshowers,flag_shower
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=4.)!(scut=3.)
24	parameter (NSTRIPMIN=64)!(NSTRIPMIN=10)!TEMPORANEO
25	parameter (NSTRIPWARNING=64)
26
27	real cn(nviews,nva1_view) ! common noise values
28	integer cnflag(nviews,nva1_view) ! common noise flags:
29	c 0 = ok
30	c -1 = failed (less than NSTRIPMIN strips used)
31	c 1 = warning (less than NSTRIPWARNING strips used)
32	integer mask_vk_ev(nviews,nva1_view) ! mask of VA1s, local to the event (set to 0 if CN computation fails)
33
34	integer clstr(nviews,nva1_view,nstrips_va1) !flag matrix to mark
35	! strips with signal and exclude them from
36	! common noise computation
37	integer strange(nviews,nva1_view,nstrips_va1) !flag matrix to mark
38	! strips with unusually high or low signal and
39	! exclude them from common noise computation
40
41	common/cn/cn,cnflag,mask_vk_ev,clstr,strange
42
43
44	c$$$c------------------------------------------------------------------------
45	c$$$c
46	c$$$c cluster seed cuts
47	c$$$c
48	c$$$c------------------------------------------------------------------------
49	c$$$ parameter (clcutx=7.) !cluster seed cut (to esclude particles in CN
50	c$$$ ! computation and to find clusters in data
51	c$$$ ! reduction)
52	c$$$ parameter (clcuty=7.)
53
54
55	c------------------------------------------------------------------------
56	c
57	c common noise inclusion cut
58	c
59	c------------------------------------------------------------------------
60	parameter (cnincut=2.) !cut to include strips in cluster definition
61	! during common noise computation
62
63
64	c$$$c------------------------------------------------------------------------
65	c$$$c
66	c$$$c cluster finding inclusion cut
67	c$$$c
68	c$$$c------------------------------------------------------------------------
69	c$$$ parameter (incutx=4.) !cut to include strips in cluster definition
70	c$$$ ! during cluster finding procedure
71	c$$$ parameter (incuty=4.)
72
73	c$$$c------------------------------------------------------------------------
74	c$$$c
75	c$$$c variables passed from TRACKEREXE.cra
76	c$$$c
77	c$$$c------------------------------------------------------------------------
78	c$$$
79	c$$$ integer trkpaw
80	c$$$ integer procerr
81	c$$$ character*20 data_file
82	c$$$ character*50 data_file_level1
83	c$$$ character*50 data_file_level2
84	c$$$ character*74 data_file_calib
85	c$$$
86	c$$$ common/c2red/trkpaw,procerr,data_file,data_file_level1
87	c$$$ $ ,data_file_level2,data_file_calib
88	c------------------------------------------------------------------------
89	c
90	c some common for reductionflight
91	c
92	c------------------------------------------------------------------------
93	integer ind
94	real value(nstrips_view) !per trovare i cluster
95	real clseedcut(nstrips_view)
96	real clinclcut(nstrips_view)
97	common/searchcluster/value,clseedcut,clinclcut,ind
98
99	integer nshowers
100	logical flag_shower
101	common/shower/nshowers,flag_shower