w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-09-19 15:07:52 -04:00
Code Issues Packages Projects Releases Wiki Activity

Add a third decoding pass.

Browse Source
This commit is contained in:
Steve Franke 2019-04-30 20:02:42 -05:00
parent 0a12b34ec5
commit b5f0cc7ea7
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lib/ft4_decode.f90
View File

@ -215,7 +215,7 @@ contains
max_iterations=40 max_iterations=40
syncmin=1.2 syncmin=1.2
dosubtract=.true. dosubtract=.true.
nsp=2 nsp=3
if(ndepth.lt.3) then if(ndepth.lt.3) then
nsp=1 nsp=1
dosubtract=.false. dosubtract=.false.
@ -223,6 +223,14 @@ contains
if(ndepth.eq.1) syncmin=2.0 if(ndepth.eq.1) syncmin=2.0
do isp = 1,nsp do isp = 1,nsp
if(isp.eq.2) then
if(ndecodes.eq.0) exit
nd1=ndecodes
elseif(isp.eq.3) then
nd2=ndecodes-nd1
if(nd2.eq.0) exit
endif
candidate=0.0 candidate=0.0
ncand=0 ncand=0
call timer('getcand4',0) call timer('getcand4',0)
@ -495,6 +503,7 @@ contains
endif endif
nsnr=nint(max(-20.0,xsnr)) nsnr=nint(max(-20.0,xsnr))
xdt=ibest/750.0 - 0.5 xdt=ibest/750.0 - 0.5
!write(21,'(i6.6,i5,2x,f4.1,i6,2x,a37,2x,f4.1,3i3)') nutc,nsnr,xdt,nint(f0),message,sync,iaptype,ipass,isp
call this%callback(sync,nsnr,xdt,f0,message,iaptype,qual) call this%callback(sync,nsnr,xdt,f0,message,iaptype,qual)
exit exit
endif endif