w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-29 04:42:28 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fix a newdat/nagain problem. This seems to make both WSJT-X and Q65W behave correctly, but the code needs cleanup.

Browse Source
This commit is contained in:
Joe Taylor 2023-01-17 12:06:47 -05:00
parent 21ef0c9d30
commit 33a836242c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/qra/q65/q65.f90
View File

@ -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 if(nsps.ge.7200) j0=1.0/dtstep !Nominal start-signal index
s3=0. 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) call timer('q65_syms',0)
! Compute symbol spectra with NSTEP time bins per symbol ! Compute symbol spectra with NSTEP time bins per symbol
call q65_symspec(iwave,ntrperiod*12000,iz,jz,s1) call q65_symspec(iwave,ntrperiod*12000,iz,jz,s1)
call timer('q65_syms',1) call timer('q65_syms',1)
lnewdat=.false. ! lnewdat=.false.
else else
s1=s1a(:,:,iseq) s1=s1a(:,:,iseq)
endif endif