FT8: Make the Fast decode setting Faster.

This commit is contained in:
Steven Franke 2020-06-09 09:38:48 -05:00
parent 573a7c55d4
commit 29d4b4c359
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 dmin=0.0
norder=2 norder=2
maxosd=2 maxosd=2
if(ndepth.lt.3) maxosd=1 if(ndepth.eq.2) maxosd=1
if(abs(nfqso-f1).le.napwid .or. abs(nftx-f1).le.napwid .or. ncontest.eq.7) then 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 maxosd=2
endif endif
if(nagain) then
norder=3
maxosd=1
endif
call timer('dec174_91 ',0) call timer('dec174_91 ',0)
Keff=91 Keff=91
call decode174_91(llrz,Keff,maxosd,norder,apmask,message91,cw, & 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=2: subtraction, 3 passes, bp+osd (no subtract refinement)
! ndepth=3: subtraction, 3 passes, bp+osd ! ndepth=3: subtraction, 3 passes, bp+osd
npass=3 npass=3
if(ndepth.eq.1) npass=2
do ipass=1,npass do ipass=1,npass
newdat=.true. newdat=.true.
syncmin=1.3 syncmin=1.3
@ -148,7 +149,7 @@ contains
elseif(ipass.eq.3) then elseif(ipass.eq.3) then
if((ndecodes-n2).eq.0) cycle if((ndecodes-n2).eq.0) cycle
lsubtract=.true. lsubtract=.true.
ndeep=3 ndeep=ndepth
endif endif
call timer('sync8 ',0) call timer('sync8 ',0)
maxc=MAXCAND maxc=MAXCAND