WSJT-X/peakup.f

9 lines
129 B
FortranFixed
Raw Normal View History

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