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

Описание:

Складывает элементы массива ARRAY по размерности DIM, если соответствующий элемент в MASK равен TRUE.

Стандарт:

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

Класс:

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

Синтаксис:

RESULT = SUM(ARRAY[, MASK])

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

Аргументы:

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

Значение результата:

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

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

Пример:

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 — Произведение элементов массива

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-14.2.0/gfortran/SUM.html