From 33a836242c4736b5f555471ead971666f1420595 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 17 Jan 2023 12:06:47 -0500
Subject: [PATCH] Fix a newdat/nagain problem. This seems to make both WSJT-X
 and Q65W behave correctly, but the code needs cleanup.

---
 lib/qra/q65/q65.f90 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90
index fc7e0c06b..5baff4af1 100644
--- a/lib/qra/q65/q65.f90
+++ b/lib/qra/q65/q65.f90
@@ -138,12 +138,13 @@ subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave,  &
   if(nsps.ge.7200) j0=1.0/dtstep              !Nominal start-signal index
 
   s3=0.
-  if(iavg.eq.0 .and. lnewdat) then
+!  if(iavg.eq.0 .and. lnewdat) then
+  if(iavg.eq.0) then
      call timer('q65_syms',0)
 ! Compute symbol spectra with NSTEP time bins per symbol
      call q65_symspec(iwave,ntrperiod*12000,iz,jz,s1)
      call timer('q65_syms',1)
-     lnewdat=.false.
+!     lnewdat=.false.
   else
      s1=s1a(:,:,iseq)
   endif