--- DarthVader/TrackerLevel2/src/F77/reductionflight.f	2006/09/29 08:13:04	1.7
+++ DarthVader/TrackerLevel2/src/F77/reductionflight.f	2006/09/29 08:45:16	1.8
@@ -112,21 +112,26 @@
 c     tagged with the flag CLSTR)
 c--------------------------------------------------
       do iv=1,nviews
-        do ik=1,nva1_view
-          cn(iv,ik)  = 0
-          cnn(iv,ik) = -1 
-          mask_vk_ev(iv,ik)=1
-          iflag=0
-          if(mask_vk(iv,ik).eq.1)call cncomp(iv,ik,iflag)
-c          if(iflag.ne.0)good1=0
-          if(iflag.ne.0)then 
-             mask_vk_ev(iv,ik)=0
-             ierror = 220
-             if(verbose)
-     $            print*,' * WARNING * Event ',eventn(1)
-     $            ,': masked vk ',ik,' on view',iv
-          endif
-        enddo
+         ima=0
+         do ik=1,nva1_view
+            cn(iv,ik)  = 0
+            cnn(iv,ik) = -1 
+            mask_vk_ev(iv,ik)=1
+            iflag=0
+            if(mask_vk(iv,ik).eq.1)call cncomp(iv,ik,iflag)
+c     if(iflag.ne.0)good1=0
+            if(iflag.ne.0)then 
+               ima=ima+1
+               mask_vk_ev(iv,ik)=0
+               ierror = 220
+c$$$               if(verbose)
+c$$$     $              print*,' * WARNING * Event ',eventn(1)
+c$$$     $              ,': masked vk ',ik,' on view',iv
+            endif
+         enddo
+         if(ima.ne.0.and.verbose)print*,' * WARNING * Event ',eventn(1)
+     $              ,' view',iv,': VK MASK '
+     $        ,(mask_vk_ev(iv,ik),ik=1,nva1_view)
       enddo
 c      if(good1.eq.0)then 
 c         ierror = 220