WSJT-X/lib/chkss2.f90

subroutine chkss2(ss2,freq,drift,schk)

  real ss2(0:8,85)
  real s(0:8,85)
  include 'jt9sync.f90'

  ave=sum(ss2)/(9*85)
  if(freq+drift.eq.-999999.0) ave=0.      !To silence compiler warning
  s=ss2/ave-1.0

  s1=0.
  do i=1,16
     j=ii(i)
     if(j.le.85) s1=s1 + s(0,j)
  enddo
  schk=s1/16.0

  return
end subroutine chkss2
Many changes to the procedures for selecting decodable candidate JT9 signals. This code may be the new benchmark? git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3274 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2013-05-16 16:02:00 +00:00			`subroutine chkss2(ss2,freq,drift,schk)`
Added routine "chkss2" to test sync vector for sanity before attenpting Fano decode. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3270 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2013-05-15 15:17:36 +00:00
			`real ss2(0:8,85)`
			`real s(0:8,85)`
			`include 'jt9sync.f90'`

			`ave=sum(ss2)/(9*85)`
Eliminate all compiler warnings from gfortran, in Ubuntu 12.04. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3301 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2013-05-23 13:33:29 +00:00			`if(freq+drift.eq.-999999.0) ave=0. !To silence compiler warning`
Added routine "chkss2" to test sync vector for sanity before attenpting Fano decode. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3270 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2013-05-15 15:17:36 +00:00			`s=ss2/ave-1.0`

			`s1=0.`
Further improvements to JT9 decoder. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4993 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2015-02-27 15:38:24 +00:00			`do i=1,16`
			`j=ii(i)`
			`if(j.le.85) s1=s1 + s(0,j)`
Added routine "chkss2" to test sync vector for sanity before attenpting Fano decode. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3270 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2013-05-15 15:17:36 +00:00			`enddo`
Further improvements to JT9 decoder. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4993 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2015-02-27 15:38:24 +00:00			`schk=s1/16.0`
Added routine "chkss2" to test sync vector for sanity before attenpting Fano decode. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3270 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2013-05-15 15:17:36 +00:00
			`return`
			`end subroutine chkss2`