--- DarthVader/TrackerLevel2/src/F77/filladc.f	2006/09/28 14:04:40	1.4
+++ DarthVader/TrackerLevel2/src/F77/filladc.f	2006/09/29 08:13:04	1.5
@@ -66,7 +66,7 @@
             call compdecode(word,flag,tipo,info,errflag)
             
             if(errflag.ne.0.) then
-               if(debug)print*,'filladc --> ERROR on compdecode'
+               if(verbose)print*,'filladc --> ERROR on compdecode'
                iflag=1
                GOOD1(DSPn) = 10
 c               return
@@ -76,10 +76,10 @@
             if(flag.eq.1) then  !   flag: fine messaggio (ladder)
                
                if(info.ne.1.and.info.ne.2.and.info.ne.3) then 
-                  if(debug)print*,
+                  if(verbose)print*,
      $                 'filladc --> wrong end-of-ladder '
      $                 //'in COMPRESSED mode'
-                  if(debug)print*,
+                  if(verbose)print*,
      $                 '            info(=ladder) ',info,'  type ',tipo
                   iflag=1
                   GOOD1(DSPn) = 10
@@ -151,7 +151,7 @@
                      is = iaddr
                      prec_ind = 1
                   else
-                     if(debug)print*,'filladc --> address '// 
+                     if(verbose)print*,'filladc --> address '// 
      $                    'out of range - iaddr,is',iaddr,is
                      iflag=1
                      GOOD1(DSPn) = 10
@@ -163,7 +163,7 @@
                   if(prec_ind.eq.0) is=is+1
                   if(info.ge.0.and.info.le.4095) then
                      if(is.gt.3072)then 
-                        if(debug)print*,
+                        if(verbose)print*,
      $                       'filladc --> strip out of range - DSPn,is'
      $                       ,DSPn,is
                         iflag=1
@@ -186,7 +186,7 @@
                      
                      oldVAL=newVAL
                   else
-                     if(debug)
+                     if(verbose)
      $                    print*,'filladc --> datum out of range - info'
      $                    ,info
                      iflag=1
@@ -238,12 +238,12 @@
                enddo            !loop over strips
                idata = idata+1
                if(datatracker(idata).ne.ior(z'1800',i+3)) then
-                  if(debug)
+                  if(verbose)
      $                 print*,'filladc --> ',
      $                 'wrong end-of-ladder in FULL mode'
-                  if(debug)
+                  if(verbose)
      $                 print*,'            word ',datatracker(idata)
-                  if(debug)
+                  if(verbose)
      $                 print*,'            should be ',ior(z'1800',i+3)
                   iflag=1
                   GOOD1(DSPn) = 10
@@ -253,7 +253,7 @@
          endif
          goto 334
  333  continue
-      if(debug)print*,'filladc --> ',iv
+      if(verbose)print*,'filladc --> ',iv
      $     ,'^ DSP packet missing or corrupted: '
      $     ,'DSPn, datalength(iv) => '
      $     ,DSPn,datalength(iv)