8.196 PRODUCT — Произведение элементов массива

Описание:

Умножает элементы ARRAY вдоль измерения DIM, если соответствующий элемент в MASK равен TRUE.

Стандарт:

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

Класс:

Трансформационная функция

Синтаксис:

RESULT = PRODUCT(ARRAY[, MASK])

RESULT = PRODUCT(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_product
  INTEGER :: x(5) = (/ 1, 2, 3, 4 ,5 /)
  print *, PRODUCT(x)                    ! all elements, product = 120
  print *, PRODUCT(x, MASK=MOD(x, 2)==1) ! odd elements, product = 15
END PROGRAM

См. также:

SUM