--- DarthVader/TrackerLevel2/src/F77/readallparam.f	2007/08/21 07:11:33	1.7
+++ DarthVader/TrackerLevel2/src/F77/readallparam.f	2007/10/09 15:54:38	1.8
@@ -171,8 +171,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 +182,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