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=10)!(NSTRIPMIN=64)!(NSTRIPMIN=10)!TEMPORANEO

      real    cn(nviews,nva1_view)      ! common noise values
      integer cnn(nviews,nva1_view)     ! >0 = number of strips used for cn computation
c                                          0 = failed  (less than NSTRIPMIN strips used) => temporarily masked
c                                         -1 = masked a-priori
      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,cnn,mask_vk_ev,clstr,strange

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     some common for reductionflight
c
c------------------------------------------------------------------------

c     parameter (nclstrmax=1000) !maximum number of clusters per event

      integer ind
      real value(nstrips_view)  !per trovare i cluster
      real clseedcut(nstrips_view)
      real clinclcut(nstrips_view)
      common/searchcluster/value,clseedcut,clinclcut,ind

c     added by Elena (08/2006)
      integer nclstr_view            !number of clusters per view
      integer ladder_view(nclstrmax) !ladder the strip carrying the largest signal 
                                     ! value belongs to
      integer maxs_view(nclstrmax)   !cluster strip carrying the largest signal value
      integer mult_view(nclstrmax)   !cluster multiplicity
      integer rmax_view(nclstrmax)
      integer lmax_view(nclstrmax)
      common/clustersperview/nclstr_view,ladder_view,maxs_view
     $     ,mult_view,rmax_view,lmax_view

      integer nshowers
      logical flag_shower
      common/shower/nshowers,flag_shower

      integer eventn_old(nviews)
      integer good_old(nviews)
      common/eventn/eventn_old,good_old
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=10)!(NSTRIPMIN=64)!(NSTRIPMIN=10)!TEMPORANEO
25
26	real cn(nviews,nva1_view) ! common noise values
27	integer cnn(nviews,nva1_view) ! >0 = number of strips used for cn computation
28	c 0 = failed (less than NSTRIPMIN strips used) => temporarily masked
29	c -1 = masked a-priori
30	integer mask_vk_ev(nviews,nva1_view) ! mask of VA1s, local to the event (set to 0 if CN computation fails)
31
32	integer clstr(nviews,nva1_view,nstrips_va1) !flag matrix to mark
33	! strips with signal and exclude them from
34	! common noise computation
35	integer strange(nviews,nva1_view,nstrips_va1) !flag matrix to mark
36	! strips with unusually high or low signal and
37	! exclude them from common noise computation
38
39	common/cn/cn,cnn,mask_vk_ev,clstr,strange
40
41	c------------------------------------------------------------------------
42	c
43	c common noise inclusion cut
44	c
45	c------------------------------------------------------------------------
46	parameter (cnincut=2.) !cut to include strips in cluster definition
47	! during common noise computation
48	c------------------------------------------------------------------------
49	c
50	c some common for reductionflight
51	c
52	c------------------------------------------------------------------------
53
54	c parameter (nclstrmax=1000) !maximum number of clusters per event
55
56	integer ind
57	real value(nstrips_view) !per trovare i cluster
58	real clseedcut(nstrips_view)
59	real clinclcut(nstrips_view)
60	common/searchcluster/value,clseedcut,clinclcut,ind
61
62	c added by Elena (08/2006)
63	integer nclstr_view !number of clusters per view
64	integer ladder_view(nclstrmax) !ladder the strip carrying the largest signal
65	! value belongs to
66	integer maxs_view(nclstrmax) !cluster strip carrying the largest signal value
67	integer mult_view(nclstrmax) !cluster multiplicity
68	integer rmax_view(nclstrmax)
69	integer lmax_view(nclstrmax)
70	common/clustersperview/nclstr_view,ladder_view,maxs_view
71	$ ,mult_view,rmax_view,lmax_view
72
73	integer nshowers
74	logical flag_shower
75	common/shower/nshowers,flag_shower
76
77	integer eventn_old(nviews)
78	integer good_old(nviews)
79	common/eventn/eventn_old,good_old