Next: IACHAR, Previous: HUGE, Up: Intrinsic Procedures
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