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 ###
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)
if(nzhsym.le.47) then
dd=iwave
dd1=dd
@ -128,15 +137,15 @@ contains
endif
! 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=3: subtraction, 3 passes, bp+osd
npass=3
if(ndepth.eq.1) npass=2
if(ndepth.eq.1) npass=1
do ipass=1,npass
newdat=.true.
syncmin=1.3
if(ndepth.le.2) syncmin=1.6
if(ndepth.le.2) syncmin=1.5
if(ipass.eq.1) then
lsubtract=.true.
ndeep=ndepth