Array Reduction Intrinsics

• PRODUCT(SOURCE[,DIM][,MASK]) -- product of array elements (in an optionally specified dimension under an optional mask);
• SUM(SOURCE[,DIM][,MASK]) -- sum of array elements (in an optionally specified dimension under an optional mask).

For example, if

   PRINT*, PRODUCT(A)
   PRINT*, PRODUCT(A,DIM=1)
   PRINT*, PRODUCT(A,DIM=2)

gives

   720
   2 12 30
  15 48