HYPOT — Euclidean distance functionHYPOT(X,Y) is the Euclidean distance function. It is equal to
\sqrtX^2 + Y^2, without undue underflow or overflow.
RESULT = HYPOT(X, Y)
| X | The type shall be REAL.
|
| Y | The type and kind type parameter shall be the same as
X.
|
program test_hypot
real(4) :: x = 1.e0_4, y = 0.5e0_4
x = hypot(x,y)
end program test_hypot