This website requires JavaScript.
Explore
Drone CI
Help
Register
Sign In
w4kek
/
WSJT-X
Watch
1
Star
0
Fork
0
You've already forked WSJT-X
mirror of
https://github.com/saitohirga/WSJT-X.git
synced
2024-09-12 08:16:39 -04:00
Code
Issues
Packages
Projects
Releases
Wiki
Activity
8d0532943e
WSJT-X
/
peakup.f
9 lines
137 B
FortranFixed
Raw
Normal View
History
Unescape
Escape
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
Reference in New Issue
Copy Permalink