9.125 HYPOT — Функция евклидового расстояния

Описание:

HYPOT(X,Y) является функцией евклидового расстояния. Она равна \sqrtX^2 + Y^2, без чрезмерного подпотока или переполнения.

Стандарт:

Fortran 2008 и более поздние версии

Класс:

Элементарная функция

Синтаксис:

RESULT = HYPOT(X, Y)

Аргументы:

X	Тип должен быть REAL.
Y	Тип и параметр типа рода должны быть такими же, как у X.

Возвращаемое значение:

Возвращаемое значение имеет тот же тип и параметр типа рода, что и X.

Пример:

program test_hypot
  real(4) :: x = 1.e0_4, y = 0.5e0_4
  x = hypot(x,y)
end program test_hypot