From b343deb8cd8538adec431ef497c0a50d143c4361 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sat, 16 Jan 2021 10:21:34 -0500
Subject: [PATCH] Correct a problem with reporting DT and f0 for Q65 'q3'
 decodes.

---
 lib/qra/q65/q65.f90 | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90
index 9338ab8b7..3383db63e 100644
--- a/lib/qra/q65/q65.f90
+++ b/lib/qra/q65/q65.f90
@@ -154,7 +154,11 @@ subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave,  &
   endif
 
 ! Get 2d CCF and ccf2 using sync symbols only
-  call q65_ccf_22(s1,iz,jz,nfqso,ia,ia2,ipk,jpk,f0,xdt,ccf,ccf2)
+  call q65_ccf_22(s1,iz,jz,nfqso,ia,ia2,ipk,jpk,f0a,xdta,ccf,ccf2)
+  if(idec.lt.0) then
+     f0=f0a
+     xdt=xdta
+  endif
 
 ! Estimate rms on ccf baseline
   sq=0.