WSJT-X/peakup.f

mirror of https://github.com/saitohirga/WSJT-X.git
      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
First good compile with map65a running inside map65. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@334 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-01-11 16:25:52 -05: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`