

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