WSJT-X/lib/baddata.f90

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)
     if(i.gt.6) then
        smin=min(smin,rms)
        smax=max(smax,rms)
     endif
  enddo

  sratio=smax/(smin+1.e-30)
  baddata=.false.
  if(sratio.gt.1.e30) baddata=.true.

  return
end function baddata
1. Fix a bug that could cause decoder to hang when presented with 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 2014-01-27 21:28:54 +00:00			`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)`
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 2016-04-18 14:15:09 +00:00			`if(i.gt.6) then`
			`smin=min(smin,rms)`
			`smax=max(smax,rms)`
			`endif`
1. Fix a bug that could cause decoder to hang when presented with 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 2014-01-27 21:28:54 +00:00			`enddo`

			`sratio=smax/(smin+1.e-30)`
			`baddata=.false.`
			`if(sratio.gt.1.e30) baddata=.true.`

			`return`
			`end function baddata`