--- DarthVader/TrackerLevel2/src/F77/readallparam.f	2007/08/21 07:11:33	1.7
+++ DarthVader/TrackerLevel2/src/F77/readallparam.f	2008/03/05 17:00:20	1.9
@@ -9,6 +9,7 @@
 
       c2f_error = 0 
 
+
 c      if(C2F_DEBUG.EQ.1.eq.1)print *                   
       if(verbose.eq.1)print *                   
      $     ,c2f_path(1:c2f_pathlen)//'trk-maskvk.dat' 
@@ -36,6 +37,7 @@
             c2f_error = 1
             goto 1000
          endif
+         if(verbose.eq.1)print*,'view ',iv,': ',(mask_vk(iv,i),i=1,24)
       enddo
  1000 close(10)
  1001 continue     
@@ -171,8 +173,10 @@
          c2f_error = 1
          return
       endif
-c      print*,'---- ANGULAR BINNING ----'
-c      print*,'Bin   -   angL   -   angR'
+      if(DEBUG.EQ.1)THEN 
+         print*,'---- ANGULAR BINNING ----'
+         print*,'Bin   -   angL   -   angR'
+      endif
  101  format(i2,'       ',f6.2,'     ',f6.2)
       xnn=0
       do ibin=1,nangmax
@@ -180,13 +184,15 @@
      $        ,IOSTAT=iostat
      $        )xnn,angL(ibin),angR(ibin)
          if(iostat.ne.0)goto 1000
-c         write(*,101)int(xnn),angL(ibin),angR(ibin)
+         if(DEBUG.EQ.1)write(*,101)int(xnn),angL(ibin),angR(ibin)
       enddo         
  1000 nangbin=int(xnn)
       close(10)
       if(nangbin.eq.0)c2f_error = 1
-c      print*,'-------------------------'
-c      print*,nangbin
+      if(DEBUG.EQ.1)THEN 
+         print*,'-------------------------'
+         print*,nangbin
+      endif