From 2b09f6ef87ff8eccd8dfceefe239c9f901a3aa48 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 30 Apr 2021 18:56:04 -0400
Subject: [PATCH] Code cleanup.

---
 map65/libm65/q65b.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/map65/libm65/q65b.f90 b/map65/libm65/q65b.f90
index 0223163b2..f86cfa9ab 100644
--- a/map65/libm65/q65b.f90
+++ b/map65/libm65/q65b.f90
@@ -53,7 +53,7 @@ subroutine q65b(nutc,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol,  &
   endif
   nh=nfft2/2
   ikhz0=nint(1000.0*(fcenter-int(fcenter)))
-  k0=((ikhz-ikhz0+48.0+0.270)*1000.0+nfcal+mousedf+nhz)/df  !0.270 = 1.270-1.000
+  k0=(1000*(ikhz-ikhz0+48.0) + 1270 - 1000 + nfcal + mousedf + nhz)/df
   if(k0.lt.nh .or. k0.gt.nfft1-nh) go to 900
 
   fac=1.0/nfft2