--- DarthVader/TrackerLevel2/src/F77/readB.f	2006/05/19 13:15:56	1.1
+++ DarthVader/TrackerLevel2/src/F77/readB.f	2006/05/30 16:30:37	1.2
@@ -15,6 +15,13 @@
 
       subroutine readB(cpath)
       include 'common_c2f.f'
+
+      LOGICAL DEBUG
+      LOGICAL VERBOSE
+      LOGICAL WARNING
+      COMMON/DBG/DEBUG,VERBOSE,WARNING
+      SAVE/DBG/
+
       character*80 cpath
       character*80 ppath
 
@@ -32,7 +39,8 @@
 
 c     FUNZIONAAAAAAAAAAAAAAA!!!!!!!!!!!!!!!!!!
 
-      if(b_debug.eq.1)print*,'Field loaded: ',b_loaded
+c      if(b_debug.eq.1)print*,'Field loaded: ',b_loaded
+      if(DEBUG)print*,'Field loaded: ',b_loaded
       if(b_loaded.eq.0)then
 
 c     call the subroutine which reads the maps of the measurements taken
@@ -79,6 +87,13 @@
 c     implicit double precision (a-h,o-z)
       include 'common_B.f'
       include 'common_c2f.f'
+
+      LOGICAL DEBUG
+      LOGICAL VERBOSE
+      LOGICAL WARNING
+      COMMON/DBG/DEBUG,VERBOSE,WARNING
+      SAVE/DBG/
+
       character*80 path
       
 C
@@ -137,7 +152,8 @@
       Bmap_file='measure_n3_290302.rz'
       
 c     opens magnetic field map first file
-      if(b_debug.eq.1)print *                 
+c      if(b_debug.eq.1)print *                 
+      if(VERBOSE)print *                 
      $     ,path(1:LNBLNK(path))//Bmap_file
       call HROPEN
      $     (lun_Bmap_file,'Bmap'
@@ -261,7 +277,8 @@
 
       Bmap_file='measure_n4_110402_corrected.rz'
 c     opens magnetic field map first file
-      if(b_debug.eq.1)print *                   !,'Opening file: '
+c      if(b_debug.eq.1)print *                   !,'Opening file: '
+      if(VERBOSE)print *                   !,'Opening file: '
      $     ,path(1:LNBLNK(path))//Bmap_file
       call HROPEN
      $     (lun_Bmap_file,'Bmap'
@@ -381,7 +398,8 @@
  21   continue
       
       b_error = 1
-      if(b_debug.eq.1)
+c      if(b_debug.eq.1)
+      if(DEBUG)
      $     print*
      $     ,'read_B_inner: ERROR OPENING MAGNETIC FIELD MAP FILE: '
      $     ,Bmap_file
@@ -398,7 +416,8 @@
  22   continue
       
       b_error = 1
-      if(b_debug.eq.1)
+c      if(b_debug.eq.1)
+      if(DEBUG)
      $     print*,'read_B_inner: ERROR WHILE READING NTUPLE, at entry
      $     : ',iev
       
@@ -441,6 +460,12 @@
       include 'common_B.f'
       include 'common_c2f.f'
 C
+      LOGICAL DEBUG
+      LOGICAL VERBOSE
+      LOGICAL WARNING
+      COMMON/DBG/DEBUG,VERBOSE,WARNING
+      SAVE/DBG/
+
       character*80 path
 
       REAL hmemor(10000000)
@@ -500,7 +525,8 @@
       Bmap_file='External_top_map_n4_150402.rz'
       
 c     opens magnetic field map first file
-      if(b_debug.eq.1)print *
+c      if(b_debug.eq.1)print *
+      if(VERBOSE)print *
      $     ,path(1:LNBLNK(path))//Bmap_file
       call HROPEN
      $     (lun_Bmap_file,'Bmap'
@@ -621,7 +647,8 @@
  21   continue
       
       b_error = 1
-      if(b_debug.eq.1)
+c      if(b_debug.eq.1)
+      if(DEBUG)
      $     print*
      $     ,'read_B_inner: ERROR OPENING MAGNETIC FIELD MAP FILE: '
      $     ,Bmap_file
@@ -638,7 +665,8 @@
  22   continue
       
       b_error = 1
-      if(b_debug.eq.1)
+c      if(b_debug.eq.1)
+      if(DEBUG)
      $     print*
      $     ,'read_B_inner: ERROR WHILE READING NTUPLE, at event
      $     : ',iev