--- DarthVader/TrackerLevel2/src/F77/reductionflight.f	2007/08/07 13:56:29	1.21
+++ DarthVader/TrackerLevel2/src/F77/reductionflight.f	2007/08/20 16:07:16	1.22
@@ -27,6 +27,11 @@
 c$$$      verbose = .true.
 c$$$      warning = .true.
 
+c$$$      print*,debug,verbose,warning
+c$$$      debug=1
+c$$$      verbose=1
+c$$$      warning=1
+
 *     //////////////////////////
 *     initialize some parameters
 *     //////////////////////////
@@ -35,7 +40,7 @@
 
 c      debug=.true.
 
-      if(debug)print*,'-- check LEVEL0 status'
+      if(debug.eq.1)print*,'-- check LEVEL0 status'
 
       ievco=-1
       mismatch=0
@@ -60,7 +65,7 @@
                GOOD1(DSPnumber(iv)) = ior(GOOD1(DSPnumber(iv)),2**1)
  102           format(' * WARNING * Event ',i7,' view',i3
      $          ,' CRC error')
-               if(debug)write(*,102)eventn(1),DSPnumber(iv)
+               if(debug.eq.1)write(*,102)eventn(1),DSPnumber(iv)
 c               goto 18 !next view
             endif
 c           ------------------------
@@ -81,7 +86,7 @@
                GOOD1(DSPnumber(iv)) = ior(GOOD1(DSPnumber(iv)),2**2)
  103           format(' * WARNING * Event ',i7,' view',i3
      $          ,' software alarm')
-               if(debug)write(*,103)eventn(1),DSPnumber(iv)
+               if(debug.eq.1)write(*,103)eventn(1),DSPnumber(iv)
 c               goto 18
             endif
 c           ------------------------
@@ -102,7 +107,7 @@
 c$$$                  GOOD1(DSPnumber(iv)) = ior(GOOD1(DSPnumber(iv)),2**3)
 c$$$ 104              format(' * WARNING * Event ',i7,' view',i3
 c$$$     $          ,' counter jump ',i10,i10)
-c$$$                  if(debug)write(*,104)eventn(1),DSPnumber(iv)
+c$$$                  if(debug.eq.1)write(*,104)eventn(1),DSPnumber(iv)
 c$$$     $                 ,eventn_old(iv),eventn(iv))
 c$$$                  goto 18
 c$$$               endif
@@ -126,7 +131,7 @@
 
 c      print*,'*** ',(eventn(iv),iv=1,12)
       
-      if(mismatch.eq.1.and.debug)
+      if(mismatch.eq.1.and.debug.eq.1)
      $     print*,' * WARNING * DSP counter mismatch: '
      $     ,(eventn(iv),iv=1,12)
 
@@ -149,7 +154,7 @@
 c     and fill the variable ADC (invertin view 11)
 c--------------------------------------------------
       
-      if(debug)print*,'-- fill ADC vectors'
+      if(debug.eq.1)print*,'-- fill ADC vectors'
 
       call filladc(iflag) 
       if(iflag.ne.0)then
@@ -161,7 +166,7 @@
 c     (excluding strips with signal, 
 c     tagged with the flag CLSTR)
 c--------------------------------------------------
-      if(debug)print*,'-- compute CN'
+      if(debug.eq.1)print*,'-- compute CN'
 
       do iv=1,nviews
          ima=0
@@ -186,7 +191,7 @@
             endif
          enddo
  100     format(' * WARNING * Event ',i7,' view',i3,': VK MASK ',24i1)
-         if(ima.ne.0.and.verbose)write(*,100)eventn(1),iv
+         if(ima.ne.0.and.verbose.eq.1)write(*,100)eventn(1),iv
      $        ,(mask_vk_ev(iv,ik),ik=1,nva1_view)
 c         if(ima.ne.0)write(*,100)eventn(1),iv
 c     $        ,(mask_vk_ev(iv,ik),ik=1,nva1_view)  
@@ -202,7 +207,7 @@
 c--------------------------------------------- 
       ind=1                     !clsignal array index
 
-      if(debug)print*,'-- search clusters'
+      if(debug.eq.1)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 
@@ -236,7 +241,7 @@
 
         if(.not.flag_shower)then
            call save_cluster(iv)
-           if(debug)print*,'view ',iv,' #clusters ', nclstr_view
+           if(debug.eq.1)print*,'view ',iv,' #clusters ', nclstr_view
         else
            fshower(iv) = 1
 c           GOOD1(DSPnumber(iv)) = 11 !AHAHAHAHA ORRORE!!
@@ -245,7 +250,7 @@
            GOOD1(iv) = ior(GOOD1(iv),2**5)
  101       format(' * WARNING * Event ',i7,' view',i3
      $          ,' #clusters > ',i5,' --> MASKED')
-           if(verbose)write(*,101)eventn(1),iv,nclstrmax_view
+           if(verbose.eq.1)write(*,101)eventn(1),iv,nclstrmax_view
         endif
       enddo                     ! end loop on views
       do iv=1,nviews
@@ -265,7 +270,8 @@
       do iv = 1,nviews
          ngood = ngood + good1(iv)
       enddo
-      if(verbose.and.ngood.ne.0)print*,'* WARNING * Event ',eventn(1)
+      if(verbose.eq.1.and.ngood.ne.0)
+     $     print*,'* WARNING * Event ',eventn(1)
      $     ,':LEVEL1 event status: '
      $     ,(good1(i),i=1,nviews)
 c------------------------------------------------------------------------