--- DarthVader/TrackerLevel2/src/F77/reductionflight.f	2007/02/16 14:56:02	1.16
+++ DarthVader/TrackerLevel2/src/F77/reductionflight.f	2007/03/15 12:17:10	1.17
@@ -23,8 +23,14 @@
       integer ierror
       ierror = 0
 
+c$$$      debug = .true.
+c$$$      verbose = .true.
+c$$$      warning = .true.
+
       call init_level1
 
+      if(debug)print*,'-- check LEVEL0 status'
+
 c      good1 = good0
 c--------------------------------------------------
 c     check the LEVEL0 event status for missing 
@@ -86,12 +92,15 @@
          good_old(iv)   = good1(iv)
          ngood = ngood + good1(iv)
       enddo
-c      if(ngood.ne.0)print*,'* WARNING * LEVEL0 event status: '
-c     $     ,(good1(i),i=1,nviews)
+      if(debug.and.ngood.ne.0)print*,'* WARNING * LEVEL0 event status: '
+     $     ,(good1(i),i=1,nviews)
 c--------------------------------------------------
 c     read the variable DATATRACKER from LEVEL0
 c     and fill the variable ADC (invertin view 11)
 c--------------------------------------------------
+      
+      if(debug)print*,'-- fill ADC vectors'
+
       call filladc(iflag) 
       if(iflag.ne.0)then
          ierror = 220
@@ -102,6 +111,8 @@
 c     (excluding strips with signal, 
 c     tagged with the flag CLSTR)
 c--------------------------------------------------
+      if(debug)print*,'-- compute CN'
+
       do iv=1,nviews
          ima=0
          do ik=1,nva1_view
@@ -136,6 +147,7 @@
 c--------------------------------------------- 
       ind=1                     !clsignal array index
 
+      if(debug)print*,'-- search clusters'
       do iv=1,nviews            !loop on views
         do is=1,nstrips_view    !loop on strips (1)
           if(mod(iv,2).eq.1) then 
@@ -166,10 +178,14 @@
 
         if(.not.flag_shower)then
            call save_cluster(iv)
+           if(debug)print*,'view ',iv,' #clusters ', nclstr_view
         else
            fshower(iv) = 1
 c           GOOD1(DSPnumber(iv)) = 11 !AHAHAHAHA ORRORE!!
            GOOD1(iv) = 11
+ 101       format(' * WARNING * Event ',i7,' view',i3
+     $          ,' #clusters > ',i5,' --> MASKED')
+           if(debug)write(*,101)eventn(1),iv,nclstrmax_view
         endif
       enddo                     ! end loop on views
       do iv=1,nviews
@@ -189,9 +205,9 @@
       do iv = 1,nviews
          ngood = ngood + good1(iv)
       enddo
-c$$$      if(ngood.ne.0)print*,'* WARNING * Event ',eventn(1)
-c$$$     $     ,':LEVEL1 event status: '
-c$$$     $     ,(good1(i),i=1,nviews)
+      if(debug.and.ngood.ne.0)print*,'* WARNING * Event ',eventn(1)
+     $     ,':LEVEL1 event status: '
+     $     ,(good1(i),i=1,nviews)
 c------------------------------------------------------------------------
 c
 c     closes files and exits