hypot(x,y) is the Euclidean distance function. It is equal to , without undue underflow or overflow.
Fortran 2008 and later
result = hypot(x, y)
x - The type shall be real.y - The type and kind type parameter shall be the same as x.The return value has the same type and kind type parameter as x.
program test_hypot
real(4) :: x = 1.e0_4, y = 0.5e0_4
x = hypot(x,y)
end program test_hypot