--- DarthVader/TrackerLevel2/inc/F77/common_reduction.f	2006/10/26 16:22:37	1.5
+++ DarthVader/TrackerLevel2/inc/F77/common_reduction.f	2008/10/22 15:17:35	1.7
@@ -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     
@@ -63,7 +64,9 @@
       real clseedcut(nstrips_view)
       real clinclcut(nstrips_view)
       integer sat(nstrips_view) !saturation mask
-      common/searchcluster/value,clseedcut,clinclcut,sat,ind
+      common/calibratedsignal/value
+      save/calibratedsignal/
+      common/searchclustr/clseedcut,clinclcut,sat,ind 
 
 c     added by Elena (08/2006)
       integer nclstr_view            !number of clusters per view