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

Widen candidate frequency offset window to f0=[10,4990] Hz.

Browse Source
This commit is contained in:
Steve Franke 2019-03-21 13:27:10 -05:00
parent 212e4a3c07
commit 0fef707118
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/ft4/ft4_decode.f90
View File

@ -183,7 +183,7 @@ subroutine ft4_decode(cdatetime0,tbuf,nfa,nfb,nQSOProgress,ncontest,nfqso, &
do icand=1,ncand do icand=1,ncand
f0=candidate(1,icand) f0=candidate(1,icand)
snr=candidate(3,icand)-1.0 snr=candidate(3,icand)-1.0
if( f0.le.375.0 .or. f0.ge.(5000.0-375.0) ) cycle if( f0.le.10.0 .or. f0.ge.4990.0 ) cycle
call clockit('ft4_down',0) call clockit('ft4_down',0)
call ft4_downsample(iwave,f0,cd2) !Downsample from 512 to 32 Sa/Symbol call ft4_downsample(iwave,f0,cd2) !Downsample from 512 to 32 Sa/Symbol
call clockit('ft4_down',1) call clockit('ft4_down',1)
@ -232,9 +232,8 @@ subroutine ft4_decode(cdatetime0,tbuf,nfa,nfb,nQSOProgress,ncontest,nfqso, &
enddo enddo
enddo enddo
f0=f0+real(idfbest) f0=f0+real(idfbest)
if( f0.le.10.0 .or. f0.ge.4990.0 ) cycle
!f0=1500
!ibest=219
call clockit('ft4down ',0) call clockit('ft4down ',0)
call ft4_downsample(iwave,f0,cb) !Final downsample with corrected f0 call ft4_downsample(iwave,f0,cb) !Final downsample with corrected f0
call clockit('ft4down ',1) call clockit('ft4down ',1)

4
lib/ft4/ft4d.f90
View File

@ -43,8 +43,8 @@ program ft4d
read(arg,*) nQSOProgress read(arg,*) nQSOProgress
iarg=iarg+2 iarg=iarg+2
endif endif
nfa=0 nfa=10
nfb=4224 nfb=4990
ndecodes=0 ndecodes=0
nfqso=1500 nfqso=1500
mycall="K9AN" mycall="K9AN"