--- DarthVader/TrackerLevel2/src/F77/grkuta.f	2007/11/27 11:43:51	1.6
+++ DarthVader/TrackerLevel2/src/F77/grkuta.f	2008/01/15 14:23:55	1.7
@@ -28,7 +28,7 @@
 C.    ******************************************************************
 C.
       IMPLICIT DOUBLE PRECISION(A-H,O-Z)
-      COMMON/DELTAB/DELTA0,DELTA1
+      COMMON/DELTAB/DELTA0,DELTA1,DLT
 *
       REAL VVV(3),FFF(3)
       REAL*8 CHARGE, STEP, VECT(*), VOUT(*), F(4)
@@ -38,13 +38,17 @@
      +            (XT,XYZT(1)),(YT,XYZT(2)),(ZT,XYZT(3))
 *
       PARAMETER (MAXIT = 1992, MAXCUT = 11)
-      PARAMETER (EC=2.9979251D-4,DLT=1D-4,DLT32=DLT/32)
-      PARAMETER (ZERO=0, ONE=1, TWO=2, THREE=3)
+cPP      PARAMETER (EC=2.9979251D-4,DLT=1D-4,DLT32=DLT/32)
+      PARAMETER (EC=2.99792458D-4)
+cPP      PARAMETER (ZERO=0, ONE=1, TWO=2, THREE=3)
+      PARAMETER (ZERO=0.D0, ONE=1.D0, TWO=2.D0, THREE=3.D0)
       PARAMETER (THIRD=ONE/THREE, HALF=ONE/TWO)
       PARAMETER (PISQUA=.986960440109D+01)
       PARAMETER (IX=1,IY=2,IZ=3,IPX=4,IPY=5,IPZ=6)
 
       REAL*8 DELTAB(3)
+      REAL*8 DLT32
+      DLT32=DLT/32.
 
 *.
 *.    ------------------------------------------------------------------