mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-22 04:11:16 -05:00
Correct a problem with flagging supposedly bad data when reference spectrum
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:
parent
4cebdddfe5
commit
1a9c6b3b6f
@ -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)
|
||||||
|
if(i.gt.6) then
|
||||||
smin=min(smin,rms)
|
smin=min(smin,rms)
|
||||||
smax=max(smax,rms)
|
smax=max(smax,rms)
|
||||||
|
endif
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
sratio=smax/(smin+1.e-30)
|
sratio=smax/(smin+1.e-30)
|
||||||
|
Loading…
Reference in New Issue
Block a user