--- DarthVader/TrackerLevel2/inc/F77/common_reduction.f 2006/10/26 16:22:37 1.5 +++ DarthVader/TrackerLevel2/inc/F77/common_reduction.f 2006/11/23 18:51:44 1.6 @@ -28,7 +28,7 @@ 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) +c 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 @@ -37,7 +37,8 @@ ! strips with unusually high or low signal and ! exclude them from common noise computation - common/cn/cn,cnrms,cnn,mask_vk_ev,clstr,strange +c common/cn/cn,cnrms,cnn,mask_vk_ev,clstr,strange + common/cn/cn,cnrms,cnn,clstr,strange c------------------------------------------------------------------------ c