w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-22 04:11:16 -05:00
Code Issues Packages Projects Releases Wiki Activity

Correct a problem with flagging supposedly bad data when reference spectrum

Browse Source 
is used.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6624 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-04-18 14:15:09 +00:00
parent 4cebdddfe5
commit 1a9c6b3b6f
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/baddata.f90
View File

@ -15,8 +15,10 @@ logical function baddata(id2,nz)
sq=sq + x*x sq=sq + x*x
enddo enddo
rms=sqrt(sq/nadd) rms=sqrt(sq/nadd)
smin=min(smin,rms) if(i.gt.6) then
smax=max(smax,rms) smin=min(smin,rms)
smax=max(smax,rms)
endif
enddo enddo
sratio=smax/(smin+1.e-30) sratio=smax/(smin+1.e-30)

2
lib/decoder.f90
View File

@ -36,7 +36,7 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
if(mod(params%nranera,2).eq.1) ntrials=3*10**(params%nranera/2) if(mod(params%nranera,2).eq.1) ntrials=3*10**(params%nranera/2)
if(params%nranera.eq.0) ntrials=0 if(params%nranera.eq.0) ntrials=0
rms=sqrt(dot_product(float(id2(300000:310000)), & rms=sqrt(dot_product(float(id2(300000:310000)), &
float(id2(300000:310000)))/10000.0) float(id2(300000:310000)))/10000.0)
if(rms.lt.2.0) go to 800 if(rms.lt.2.0) go to 800