--- DarthVader/TrackerLevel2/src/F77/analysissubroutines.f	2007/04/27 10:39:58	1.20
+++ DarthVader/TrackerLevel2/src/F77/analysissubroutines.f	2007/04/27 12:11:02	1.21
@@ -331,8 +331,10 @@
             iimage=0
          endif
          if(icand.eq.0)then
-            print*,'HAI FATTO UN CASINO!!!!!! icand = ',icand
-     $           ,ibest,iimage
+            if(VERBOSE)then
+               print*,'HAI FATTO UN CASINO!!!!!! icand = ',icand
+     $              ,ibest,iimage
+            endif
             return
          endif
 
@@ -690,7 +692,7 @@
             resxPAM = resxPAM*fbad_cog(0,icx)
 
          else
-            print*,'*** Non valid p.f.a. (x) --> ',PFAx
+            if(DEBUG) print*,'*** Non valid p.f.a. (x) --> ',PFAx
          endif
 
 
@@ -720,8 +722,10 @@
          stripy = float(MAXS(icy))
 
          if(icx.ne.0.and.(nply.ne.nplx.or.nldy.ne.nldx))then
-            print*,'xyz_PAM   ***ERROR*** invalid cluster couple!!! '
-     $           ,icx,icy
+            if(DEBUG) then
+               print*,'xyz_PAM   ***ERROR*** invalid cluster couple!!! '
+     $              ,icx,icy
+            endif
             goto 100
          endif
 *        --------------------------
@@ -802,7 +806,7 @@
             resyPAM = resyPAM*fbad_cog(0,icy)
 
          else
-            print*,'*** Non valid p.f.a. (x) --> ',PFAx
+            if(DEBUG) print*,'*** Non valid p.f.a. (x) --> ',PFAx
          endif
 
 
@@ -832,8 +836,10 @@
 c------------------------------------------------------------------------
          if(((mod(int(stripx+0.5)-1,1024)+1).le.3)
      $        .or.((mod(int(stripx+0.5)-1,1024)+1).ge.1022)) then !X has 1018 strips...
-            print*,'xyz_PAM (couple):', 
-     $          ' WARNING: false X strip: strip ',stripx
+            if(DEBUG) then
+               print*,'xyz_PAM (couple):', 
+     $              ' WARNING: false X strip: strip ',stripx
+            endif
          endif
          xi = acoordsi(stripx,viewx)
          yi = acoordsi(stripy,viewy)
@@ -925,8 +931,10 @@
 c            if((stripx.le.3).or.(stripx.ge.1022)) then !X has 1018 strips...
             if(((mod(int(stripx+0.5)-1,1024)+1).le.3)
      $           .or.((mod(int(stripx+0.5)-1,1024)+1).ge.1022)) then !X has 1018 strips...
-               print*,'xyz_PAM (X-singlet):', 
-     $             ' WARNING: false X strip: strip ',stripx
+               if(DEBUG) then
+                  print*,'xyz_PAM (X-singlet):', 
+     $                 ' WARNING: false X strip: strip ',stripx
+               endif
             endif
             xi   = acoordsi(stripx,viewx)
 
@@ -948,10 +956,11 @@
 c            print*,yi_A,' <--> ',yi_B
 
          else
-
-            print *,'routine xyz_PAM ---> not properly used !!!'
-            print *,'icx = ',icx
-            print *,'icy = ',icy
+            if(DEBUG) then
+               print *,'routine xyz_PAM ---> not properly used !!!'
+               print *,'icx = ',icx
+               print *,'icy = ',icy
+            endif
             goto 100
             
          endif
@@ -1016,11 +1025,11 @@
 c         print*,'A-(',xPAM_A,yPAM_A,') B-(',xPAM_B,yPAM_B,')'
 
       else
-          
-         print *,'routine xyz_PAM ---> not properly used !!!'
-         print *,'icx = ',icx
-         print *,'icy = ',icy
-            
+         if(DEBUG) then
+            print *,'routine xyz_PAM ---> not properly used !!!'
+            print *,'icx = ',icx
+            print *,'icy = ',icy
+         endif
       endif
          
 
@@ -1146,11 +1155,11 @@
          
       else
          
-         print*
-     $        ,' function distance_to ---> wrong usage!!!'
-         print*,' xPAM,yPAM,zPAM ',xPAM,yPAM,zPAM 
-         print*,' xPAM_A,yPAM_A,zPAM_A,xPAM_b,yPAM_b,zPAM_b '
-     $        ,xPAM_A,yPAM_A,zPAM_A,xPAM_b,yPAM_b,zPAM_b
+c         print*
+c     $        ,' function distance_to ---> wrong usage!!!'
+c         print*,' xPAM,yPAM,zPAM ',xPAM,yPAM,zPAM 
+c         print*,' xPAM_A,yPAM_A,zPAM_A,xPAM_b,yPAM_b,zPAM_b '
+c     $        ,xPAM_A,yPAM_A,zPAM_A,xPAM_b,yPAM_b,zPAM_b
       endif   
 
       distance_to = sngl(distance)
@@ -1218,8 +1227,8 @@
                if(((mod(int(stripx+0.5)-1,1024)+1).le.3)
      $              .or.((mod(int(stripx+0.5)-1,1024)+1).ge.1022)) then !X has 1018 strips...
 c     if((stripx.le.3).or.(stripx.ge.1022)) then !X has 1018 strips...
-                  print*,'whichsensor: ',
-     $                ' WARNING: false X strip: strip ',stripx
+c                  print*,'whichsensor: ',
+c     $                ' WARNING: false X strip: strip ',stripx
                endif
                xi = acoordsi(stripx,viewx)
                yi = acoordsi(stripy,viewy)
@@ -1374,7 +1383,7 @@
       is_cp=0
       if(id.lt.0)is_cp=1
       if(id.gt.0)is_cp=2
-      if(id.eq.0)print*,'IS_CP ===> wrong couple id !!!'
+c      if(id.eq.0)print*,'IS_CP ===> wrong couple id !!!'
 
       return
       end