9.251 SUM — Сумма элементов массива

Описание:

Складывает элементы МАССИВ по размерности РАЗМЕР, если соответствующий элемент в МАСКА равен TRUE.

Стандарт:

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

Класс:

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

Синтаксис:

RESULT = SUM(ARRAY[, MASK])

RESULT = SUM(ARRAY, DIM[, MASK])

Аргументы:

МАССИВ	Должен быть массивом типа INTEGER, REAL или COMPLEX.
РАЗМЕР	(Необязательно) должен быть скаляром типа INTEGER со значением от 1 до n, где n — ранг МАССИВ.
МАСКА	(Необязательно) должен быть типа LOGICAL и либо скаляром, либо массивом той же формы, что и МАССИВ.

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

Результат имеет тот же тип, что и МАССИВ.

Если РАЗМЕР отсутствует, возвращается скаляр со суммой всех элементов в МАССИВ. В противном случае возвращается массив ранга n-1, где n — ранг МАССИВ, и форма, аналогичная форме МАССИВ с опущенной размерностью РАЗМЕР.

Пример:

PROGRAM test_sum
  INTEGER :: x(5) = (/ 1, 2, 3, 4 ,5 /)
  print *, SUM(x)                        ! all elements, sum = 15
  print *, SUM(x, MASK=MOD(x, 2)==1)     ! odd elements, sum = 9
END PROGRAM

См. также:

PRODUCT