w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-11-03 13:30:52 -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

33
lib/decoder.f90
View File

@ -216,20 +216,25 @@ 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
do k=1,20 ! Go through identified candidates again, treating each as if it had been
if(nqf(k).eq.0) exit ! double-clicked on the waterfall.
nqd=1 do k=1,20
navg0=0 if(nqf(k).eq.0) exit
ntol=5 if(params%nagain .and. abs(nqf(k)-params%nfqso).gt.params%ntol) cycle
call my_q65%decode(q65_decoded,id2,nqd,params%nutc,params%ntr, & nqd=1
params%nsubmode,nqf(k),ntol,params%ndepth, & navg0=0
params%nfa,params%nfb,logical(params%nclearave), & ntol=5
.true.,.true.,params%max_drift, & call my_q65%decode(q65_decoded,id2,nqd,params%nutc,params%ntr, &
.false.,params%emedelay,mycall,hiscall,hisgrid, & params%nsubmode,nqf(k),ntol,params%ndepth, &
params%nQSOProgress,ncontest,logical(params%lapcqonly),navg0,nqf) params%nfa,params%nfb,logical(params%nclearave), &
enddo .true.,.true.,params%max_drift, &
!### .false.,params%emedelay,mycall,hiscall,hisgrid, &
params%nQSOProgress,ncontest,logical(params%lapcqonly), &
navg0,nqf)
enddo
endif
call timer('dec_q65 ',1) call timer('dec_q65 ',1)
close(17) close(17)
go to 800 go to 800