--- DarthVader/TrackerLevel2/src/F77/reductionflight.f	2006/09/29 08:45:16	1.8
+++ DarthVader/TrackerLevel2/src/F77/reductionflight.f	2006/10/16 12:36:52	1.9
@@ -41,7 +41,7 @@
 c           ------------------------
 c           GOOD
 c           ------------------------
-            GOOD1(DSPnumber(iv))=0                  !OK
+            GOOD1(DSPnumber(iv))=0 !OK
 c           ------------------------
 c           CRC error
 c           ------------------------
@@ -129,8 +129,11 @@
 c$$$     $              ,': masked vk ',ik,' on view',iv
             endif
          enddo
-         if(ima.ne.0.and.verbose)print*,' * WARNING * Event ',eventn(1)
-     $              ,' view',iv,': VK MASK '
+ 100     format(' * WARNING * Event ',i7,' view',i3,': VK MASK ',24i1)
+c         if(ima.ne.0.and.verbose)print*,' * WARNING * Event ',eventn(1)
+c     $              ,' view',iv,': VK MASK '
+c     $        ,(mask_vk_ev(iv,ik),ik=1,nva1_view)
+         if(ima.ne.0.and.verbose)write(*,100)eventn(1),iv
      $        ,(mask_vk_ev(iv,ik),ik=1,nva1_view)
       enddo
 c      if(good1.eq.0)then