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