w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

FT8: Make Fast decode setting faster.

This commit is contained in:
Steven Franke 2020-06-14 11:40:42 -05:00 committed by Bill Somerville
parent a62ce043c4
commit 4913929c99
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lib/ft8_decode.f90
View File

@ -71,7 +71,16 @@ contains
write(datetime,1001) nutc !### TEMPORARY ### write(datetime,1001) nutc !### TEMPORARY ###
1001 format("000000_",i6.6) 1001 format("000000_",i6.6)
if(ndepth.eq.1 .and. nzhsym.lt.50) then
ndec_early=0
return
endif
if(ndepth.eq.1 .and. nzhsym.eq.50) then
dd=iwave
endif
call ft8apset(mycall12,hiscall12,ncontest,apsym2,aph10) call ft8apset(mycall12,hiscall12,ncontest,apsym2,aph10)
if(nzhsym.le.47) then if(nzhsym.le.47) then
dd=iwave dd=iwave
dd1=dd dd1=dd
@ -128,15 +137,15 @@ contains
endif endif
! For now: ! For now:
! ndepth=1: subtraction, 3 passes, bp (no subtract refinement) ! ndepth=1: 1 pass, bp
! 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 if(ndepth.eq.1) npass=1
do ipass=1,npass do ipass=1,npass
newdat=.true. newdat=.true.
syncmin=1.3 syncmin=1.3
if(ndepth.le.2) syncmin=1.6 if(ndepth.le.2) syncmin=1.5
if(ipass.eq.1) then if(ipass.eq.1) then
lsubtract=.true. lsubtract=.true.
ndeep=ndepth ndeep=ndepth