FT8: Make the Fast decode setting Faster.

This commit is contained in:
Steven Franke 2020-06-09 09:38:48 -05:00 committed by Bill Somerville
parent c9f384bf2a
commit fb60ec0be5
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
2 changed files with 6 additions and 7 deletions

View File

@ -403,14 +403,12 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,nzhsym,lapon, &
dmin=0.0
norder=2
maxosd=2
if(ndepth.lt.3) maxosd=1
if(abs(nfqso-f1).le.napwid .or. abs(nftx-f1).le.napwid .or. ncontest.eq.7) then
if(ndepth.eq.2) maxosd=1
if(ndepth.eq.1) maxosd=-1
if(ndepth.ge.2 .and. &
(abs(nfqso-f1).le.napwid .or. abs(nftx-f1).le.napwid .or. ncontest.eq.7)) then
maxosd=2
endif
if(nagain) then
norder=3
maxosd=1
endif
call timer('dec174_91 ',0)
Keff=91
call decode174_91(llrz,Keff,maxosd,norder,apmask,message91,cw, &

View File

@ -132,6 +132,7 @@ contains
! ndepth=2: subtraction, 3 passes, bp+osd (no subtract refinement)
! ndepth=3: subtraction, 3 passes, bp+osd
npass=3
if(ndepth.eq.1) npass=2
do ipass=1,npass
newdat=.true.
syncmin=1.3
@ -148,7 +149,7 @@ contains
elseif(ipass.eq.3) then
if((ndecodes-n2).eq.0) cycle
lsubtract=.true.
ndeep=3
ndeep=ndepth
endif
call timer('sync8 ',0)
maxc=MAXCAND