From 408ac7bd0de6c8c44214829f29b10baa380eca6d Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 22 Dec 2020 13:21:31 -0500
Subject: [PATCH] Correct the reported f0 for Q65 signals.  It was off by one
 tone spacing.

---
 lib/q65_sync.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/q65_sync.f90 b/lib/q65_sync.f90
index 96bb77e1f..834059fa1 100644
--- a/lib/q65_sync.f90
+++ b/lib/q65_sync.f90
@@ -146,7 +146,7 @@ subroutine q65_sync(nutc,iwave,nmax,mode_q65,codewords,ncw,nsps,nfqso,ntol, &
         ijpk=maxloc(ccf(-ia:ia,:))
         ipk=ijpk(1)-ia-1
         jpk=ijpk(2)-53-1     
-        f0=nfqso + (ipk-1)*df
+        f0=nfqso + (ipk-mode_q65)*df
         xdt=jpk*dtstep
         imsg_best=imsg
         ccf1=ccf(:,jpk)