<Example Program>

Program product_example
    Real a(2,3)
    a = Reshape( (/2.,3.,5.,-1.,4.,-3./), (/2,3/))
    Print *, Product(a)
    Print *, Product(a,Dim=1)
    Print *, Product(a,Dim=2)
    Print *, Product(a,Mask=a>0)
End
Execution Results

    3.6000000E+02
    6.0000000   -5.0000000 -12.0000000
  40.0000000     9.0000000
    1.2000000E+02