mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-09 06:46:39 -04:00
bad data. 2. Fix a bug that could allow a Koetter-Vardy false decode instead of a valid Berlekamp-Massey decode, sometimes leading to program crash. 3. Many more edits in the User's Guide, *.adoc files. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3664 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
28 lines
441 B
Fortran
28 lines
441 B
Fortran
logical function baddata(id2,nz)
|
|
|
|
integer*2 id2(nz)
|
|
|
|
nadd=1200
|
|
j=0
|
|
smin=1.e30
|
|
smax=-smin
|
|
iz=49*12000/nadd
|
|
do i=1,iz
|
|
sq=0.
|
|
do n=1,nadd
|
|
j=j+1
|
|
x=id2(j)
|
|
sq=sq + x*x
|
|
enddo
|
|
rms=sqrt(sq/nadd)
|
|
smin=min(smin,rms)
|
|
smax=max(smax,rms)
|
|
enddo
|
|
|
|
sratio=smax/(smin+1.e-30)
|
|
baddata=.false.
|
|
if(sratio.gt.1.e30) baddata=.true.
|
|
|
|
return
|
|
end function baddata
|