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
/
dot.f
12 lines
149 B
Fortran
Raw
Blame
History
real
*
8
function
dot
(
x
,
y
)
real
*
8
x
(
3
)
,
y
(
3
)
dot
=
0.d0
do
i
=
1
,
3
dot
=
dot
+
x
(
i
)
*
y
(
i
)
enddo
return
end
Reference in New Issue
View Git Blame
Copy Permalink