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

No need for a second call to q65_decode() when nagain is true.

Browse Source
This commit is contained in:
Joe Taylor 2023-02-18 10:03:47 -05:00
parent 56dfb99a5d
commit 39c935a882
1 changed files with 19 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lib/decoder.f90
View File

@ -216,9 +216,12 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
params%nQSOProgress,ncontest,logical(params%lapcqonly),navg0,nqf) params%nQSOProgress,ncontest,logical(params%lapcqonly),navg0,nqf)
params%nclearave=.false. params%nclearave=.false.
!### if(.not.params%nagain) then
! Go through identified candidates again, treating each as if it had been
! double-clicked on the waterfall.
do k=1,20 do k=1,20
if(nqf(k).eq.0) exit if(nqf(k).eq.0) exit
if(params%nagain .and. abs(nqf(k)-params%nfqso).gt.params%ntol) cycle
nqd=1 nqd=1
navg0=0 navg0=0
ntol=5 ntol=5
@ -227,9 +230,11 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
params%nfa,params%nfb,logical(params%nclearave), & params%nfa,params%nfb,logical(params%nclearave), &
.true.,.true.,params%max_drift, & .true.,.true.,params%max_drift, &
.false.,params%emedelay,mycall,hiscall,hisgrid, & .false.,params%emedelay,mycall,hiscall,hisgrid, &
params%nQSOProgress,ncontest,logical(params%lapcqonly),navg0,nqf) params%nQSOProgress,ncontest,logical(params%lapcqonly), &
navg0,nqf)
enddo enddo
!### endif
call timer('dec_q65 ',1) call timer('dec_q65 ',1)
close(17) close(17)
go to 800 go to 800