WSJT-X/dot.f

12 lines
149 B
FortranFixed
Raw Normal View 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