--- DarthVader/TrackerLevel2/inc/F77/common_reduction.f 2006/05/19 13:15:53 1.1 +++ DarthVader/TrackerLevel2/inc/F77/common_reduction.f 2006/08/04 08:18:06 1.2 @@ -20,9 +20,17 @@ c common noise computation c c------------------------------------------------------------------------ - parameter (scut=3.) + 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) - 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 @@ -30,7 +38,7 @@ ! strips with unusually high or low signal and ! exclude them from common noise computation - common/cn/cn,clstr,strange + common/cn/cn,cnflag,mask_vk_ev,clstr,strange c$$$c------------------------------------------------------------------------