9.133 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