diff --git a/lib/astro.f90 b/lib/astro.f90
index f80beb91e..d6d9623ad 100644
--- a/lib/astro.f90
+++ b/lib/astro.f90
@@ -43,7 +43,7 @@ subroutine astro(nyear,month,nday,uth,freq8,Mygrid,                    &
        AzSun,ElSun,mjd,day)
 
   call MoonDopJPL(nyear,month,nday,uth,lon,lat,RAMoon,DecMoon,    &
-       LST,HA,AzMoon,ElMoon,vr,dist)
+       LST,HA,AzMoon,ElMoon,vr,techo)
 
 ! Compute spatial polarization offset
   xx=sin(lat/rad)*cos(ElMoon/rad) - cos(lat/rad)*              &
@@ -52,7 +52,6 @@ subroutine astro(nyear,month,nday,uth,freq8,Mygrid,                    &
   if(NStation.eq.1) poloffset1=rad*atan2(yy,xx)
   if(NStation.eq.2) poloffset2=rad*atan2(yy,xx)
 
-  techo=2.0 * dist/2.99792458e5                  !Echo delay time
   doppler=-freq8*vr/2.99792458e5                 !One-way Doppler
 
   call coord(0.,0.,-1.570796,1.161639,RAMoon/rad,DecMoon/rad,el,eb)
diff --git a/lib/astro0.f90 b/lib/astro0.f90
index f9ce47bfb..0e3e16613 100644
--- a/lib/astro0.f90
+++ b/lib/astro0.f90
@@ -33,6 +33,7 @@ subroutine astro0(nyear,month,nday,uth8,freq8,mygrid,hisgrid,              &
   xl1a=xl(2)
   b1=b(1)
   b1a=b(2)
+  techo8=techo
 
   fghz=1.d-9*freq8
   dldt1=DEGS*(xl1a-xl1)