WSJT-X/lib/chkss2.f90

subroutine chkss2(ss2,freq,drift,schk)

  real ss2(0:8,85)
  real s(0:8,85)
  real s1(0:5)
  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

!  call zplot9(s,freq,drift)
  s1=0.
  do lag=0,5
     do i=1,16
        j=ii(i)+lag
        if(j.le.85) s1(lag)=s1(lag) + s(0,j)
     enddo
  enddo
  schk=s1(0)/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 12:02:00 -04: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 11:17:36 -04:00
			`real ss2(0:8,85)`
			`real s(0:8,85)`
			`real s1(0:5)`
			`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 09:33:29 -04: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 11:17:36 -04:00			`s=ss2/ave-1.0`

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 12:02:00 -04:00			`! call zplot9(s,freq,drift)`
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 11:17:36 -04:00			`s1=0.`
			`do lag=0,5`
			`do i=1,16`
			`j=ii(i)+lag`
			`if(j.le.85) s1(lag)=s1(lag) + s(0,j)`
			`enddo`
			`enddo`
			`schk=s1(0)/16.0`

			`return`
			`end subroutine chkss2`