Intel Fortran Language Reference - NCI National Facility

9 Intel Fortran Language Reference
END IF
END
...
CALL CHECK (15.0, 12.0) ! Causes B to be set to 12.0
CALL CHECK (15.0) ! Causes B to be set to 30.0
PRODUCT
Description:
Syntax:
Class:
Arguments:
array
dim (opt)
mask (opt)
Results:
Returns the product of all the elements in an entire array or in a specified
dimension of an array.
result = PRODUCT (array [, dim] [, mask])
Transformational function; Generic
Must be an array of type integer or real.
Must be a scalar integer with a value in the range 1 to n, where n is the rank of
array.
Must be of type logical and conformable with array.
The result is an array or a scalar of the same data type as array.
The result is a scalar if dim is omitted or array has rank one.
The following rules apply if dim is omitted:
• If PRODUCT (array) is specified, the result is the product of all elements of
array. If array has size zero, the result is 1.
• If PRODUCT (array, MASK=mask) is specified, the result is the product of
all elements of array corresponding to true elements of mask. If array has
size zero, or every element of mask has the value .FALSE., the result is 1.
The following rules apply if dim is specified:
• If array has rank one, the value is the same as PRODUCT (array
[,MASK=mask]).
• An array result has a rank that is one less than array, and shape (d 1 , d 2 , ...,
d DIM–1 , d DIM+1 , ..., d n ), where (d 1 , d 2 , ..., d n ) is the shape of array.
• The value of element (s 1 , s 2 , ..., s DIM–1 , s DIM+1 , ..., s n ) of PRODUCT
(array, dim [,mask]) is equal to PRODUCT (array (s 1 , s 2 , ..., s DIM–1 , :,
s DIM+1 , ..., s n ) [,MASK=mask (s 1 , s 2 , ..., s DIM–1 , :, s DIM+1 , ..., s n )]).
9-122