--- DarthVader/TrackerLevel2/src/F77/mini.f	2006/05/19 13:15:56	1.1
+++ DarthVader/TrackerLevel2/src/F77/mini.f	2006/05/30 16:30:37	1.2
@@ -19,8 +19,8 @@
       include 'commontracker.f' !tracker general common
       include 'common_mini_2.f' !common for the tracking procedure
 
-      logical DEBUG
-      common/dbg/DEBUG
+c      logical DEBUG
+c      common/dbg/DEBUG
 
       parameter (inf=1.e8)      !just a huge number...
 c------------------------------------------------------------------------
@@ -454,11 +454,12 @@
          CALL GRKUTA(CHARGE,STEP,VECT,VOUT)
          IF(VOUT(3).GT.VECT(3)) THEN
             IFAIL=1
-            PRINT *,'posxy (grkuta): WARNING ===> backward track!!'
-            print*,'charge',charge
-            print*,'vect',vect
-            print*,'vout',vout
-            print*,'step',step
+            if(WARNING)
+     $      PRINT *,'posxy (grkuta): WARNING ===> backward track!!'
+            if(WARNING)print*,'charge',charge
+            if(WARNING)print*,'vect',vect
+            if(WARNING)print*,'vout',vout
+            if(WARNING)print*,'step',step
             RETURN
          ENDIF
          Z=VOUT(3)