This website requires JavaScript.
Explore
Drone CI
Help
Register
Sign In
w4kek
/
WSJT-X
mirror of
https://github.com/saitohirga/WSJT-X.git
Watch
1
Star
0
Fork
You've already forked WSJT-X
0
Code
Issues
Packages
Projects
Releases
Wiki
Activity
f67ddfba36
WSJT-X
/
peakup.f
9 lines
129 B
Fortran
Raw
Blame
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
Reference in New Issue
View Git Blame
Copy Permalink