w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-02-03 09:44:24 -05:00
Code Issues Packages Projects Releases Wiki Activity

For now, limit noise level estimation to [300,2500] Hz.

Browse Source
This commit is contained in:
Steven Franke 2019-03-27 20:55:15 -05:00
parent 40e710d7f8
commit a605ff4050
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/ft4/getcandidates4.f90
View File

@ -48,9 +48,12 @@ subroutine getcandidates4(id,fa,fb,syncmin,nfqso,maxcand,savg,candidate, &
if(nfa.lt.1) nfa=1 if(nfa.lt.1) nfa=1
nfb=fb/df nfb=fb/df
if(nfb.gt.nint(5000.0/df)) nfb=nint(5000.0/df) if(nfb.gt.nint(5000.0/df)) nfb=nint(5000.0/df)
np=nfb-nfa+1 n300=300/df
n2500=2500/df
! np=nfb-nfa+1
np=n2500-n300+1
indx=0 indx=0
call indexx(savsm(nfa:nfb),np,indx) call indexx(savsm(n300:n2500),np,indx)
xn=savsm(nfa+indx(nint(0.3*np))) xn=savsm(nfa+indx(nint(0.3*np)))
savsm=savsm/xn savsm=savsm/xn