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

Fix a bug and remove a redundant sanity check.

Browse Source
This commit is contained in:
Steve Franke 2019-03-28 14:01:30 -05:00
parent 67b9f327a5
commit 5e1637a5db
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/ft4/ft4_decode.f90
View File

@ -184,7 +184,7 @@ subroutine ft4_decode(cdatetime0,tbuf,nfa,nfb,nQSOProgress,ncontest,nfqso, &
f0=candidate(1,icand) f0=candidate(1,icand)
if(f0.le.max(fa,10.0) .or. f0.ge.min(fb,4990.0)) cycle if(f0.le.max(fa,10.0) .or. f0.ge.min(fb,4990.0)) cycle
snr=candidate(3,icand)-1.0 snr=candidate(3,icand)-1.0
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)

2
lib/ft4/getcandidates4.f90
View File

@ -54,7 +54,7 @@ subroutine getcandidates4(id,fa,fb,syncmin,nfqso,maxcand,savg,candidate, &
np=n2500-n300+1 np=n2500-n300+1
indx=0 indx=0
call indexx(savsm(n300:n2500),np,indx) call indexx(savsm(n300:n2500),np,indx)
xn=savsm(nfa+indx(nint(0.3*np))) xn=savsm(n300+indx(nint(0.3*np)))
ncand=0 ncand=0
if(xn.le.1.e-8) return if(xn.le.1.e-8) return
savsm=savsm/xn savsm=savsm/xn