8.207 NORM2 — Евклидовы нормы векторов

Описание:

Вычисляет евклидову норму вектора (L_2-норму) массива ARRAY вдоль размерности DIM.

Стандарт:

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

Класс:

Функция преобразования

Синтаксис:

RESULT = NORM2(ARRAY[, DIM])

Аргументы:

ARRAY	Должен быть массивом типа REAL
DIM	(Необязательно) должен быть скаляром типа INTEGER со значением в диапазоне от 1 до n, где n равно рангу ARRAY.

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

Результат имеет тот же тип, что и ARRAY.

Если DIM отсутствует, возвращается скаляр, представляющий квадратный корень из суммы квадратов всех элементов ARRAY. В противном случае возвращается массив ранга n-1, где n равно рангу ARRAY, и форма, аналогичная форме ARRAY, с опущенной размерностью DIM.

Пример:

PROGRAM test_sum
  REAL :: x(5) = [ real :: 1, 2, 3, 4, 5 ]
  print *, NORM2(x)  ! = sqrt(55.) ~ 7.416
END PROGRAM