--- DarthVader/TrackerLevel2/src/F77/fillpedsig.f	2006/09/05 12:52:21	1.3
+++ DarthVader/TrackerLevel2/src/F77/fillpedsig.f	2007/08/20 16:07:16	1.4
@@ -10,7 +10,7 @@
       c2f_error = 0 
 
       fname_param='cabling.dat'
-c      if(DEBUG)print *              
+c      if(DEBUG.EQ.1)print *              
 c     $     ,c2f_path(1:c2f_pathlen) !<<<< C2F
 c     $     //fname_param(1:LNBLNK(fname_param))
       open(10,
@@ -20,8 +20,8 @@
      $     ,IOSTAT=iostat
      $     )
       if(iostat.ne.0)then
-c     if(C2F_DEBUG.eq.1)print*
-         if(DEBUG)print*
+c     if(C2F_DEBUG.EQ.1.eq.1)print*
+         if(DEBUG.EQ.1)print*
      $        ,'READPEDSIGFROMDEFAULT: *** Error opening file *** '
          c2f_error = 1
          return
@@ -39,12 +39,12 @@
       
  300  format('link',i1,'/param2_',i1,'_',i1,'.dat')
       do ilink=1,2              !loop over links
-         if(VERBOSE)print *,'Opening default calibration - link' 
+         if(VERBOSE.EQ.1)print *,'Opening default calibration - link' 
      $              ,ilink
          do ipn=0,5             !loop over peripheral numbers
             do iladder=1,3      !loop over DSP
                write(fname_param,300)ilink,ipn,iladder
-c               if(DEBUG)print*,             
+c               if(DEBUG.EQ.1)print*,             
 c     $              ,c2f_path(1:c2f_pathlen) !<<<< C2F
 c     $              //fname_param(1:LNBLNK(fname_param))
                open(10,
@@ -54,8 +54,8 @@
      $              ,IOSTAT=iostat
      $              )
                if(iostat.ne.0)then
-c     if(C2F_DEBUG.eq.1)print*
-                  if(DEBUG)print*
+c     if(C2F_DEBUG.EQ.1.eq.1)print*
+                  if(DEBUG.EQ.1)print*
      $                 ,'READPEDSIGFROMDEFAULT:'
      $                 ,' *** Error opening file *** '
                   c2f_error = 1
@@ -164,7 +164,7 @@
       c2f_error=0
 
 
-      if(C2F_DEBUG.eq.1)print*,c2f_path(1:c2f_pathlen)
+      if(DEBUG.eq.1)print*,c2f_path(1:c2f_pathlen)
       call HROPEN(lun_data_file,
      $     'CALIB'
      $     ,c2f_path(1:c2f_pathlen) !<<<< C2F