PRODUCT — Product of array elements#

PRODUCT(ARRAY, DIM, MASK)#

Multiplies the elements of ARRAY along dimension DIM if the corresponding element in MASK is TRUE.

Parameters
  • ARRAY – Shall be an array of type INTEGER, REAL or COMPLEX.

  • DIM – (Optional) shall be a scalar of type INTEGER with a value in the range from 1 to n, where n equals the rank of ARRAY.

  • MASK – (Optional) shall be of type LOGICAL and either be a scalar or an array of the same shape as ARRAY.

Returns

The result is of the same type as ARRAY.

Standard:

Fortran 90 and later

Class:

Transformational function

Syntax:
RESULT = PRODUCT(ARRAY[, MASK])
RESULT = PRODUCT(ARRAY, DIM[, MASK])
Example:
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
See also:

SUM — Sum of array elements