WSJT-X/lib/peakup.f90

mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-06-04 15:52:25 -04:00
subroutine peakup(ym,y0,yp,dx)

  b=(yp-ym)/2.0
  c=(yp+ym-2.0*y0)/2.0
  dx=-b/(2.0*c)

  return
end subroutine peakup
Reintegrate Joe's experimental VHF & up features As at ^/branches/wsjtx_exp@5271 git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@5272 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2015-04-22 17:48:03 +00:00			`subroutine peakup(ym,y0,yp,dx)`

			`b=(yp-ym)/2.0`
			`c=(yp+ym-2.0*y0)/2.0`
			`dx=-b/(2.0*c)`

			`return`
			`end subroutine peakup`