--- DarthVader/TrackerLevel2/src/F77/readallparam.f	2007/08/20 15:58:24	1.6
+++ 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
       
 
 
@@ -218,7 +222,7 @@
      $                 print*,'READETAPARAM: ** Error opening file ** '
      $                 ,c2f_path(1:c2f_pathlen)
      $                 //fname_param(1:LNBLNK(fname_param))
-                  c2f_error = 1
+c                  c2f_error = 1 !! COMMENTATO TEMPORANEAMENTE
 c                  return
                   goto 2001
                endif