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

Описание:

HYPOT(X,Y) — это функция евклидова расстояния. Она равна \sqrt{X^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