8.219 ПРОДУКТ — Произведение элементов массива

Описание:

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

Стандарт:

Fortran 90 и позже

Класс:

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

Синтаксис:

RESULT = PRODUCT(ARRAY[, MASK])

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

Аргументы:

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

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

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

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

Пример:

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 — Сумма элементов массива

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