HP Fortran Programmer's Reference (September 2007)

Intrinsic procedures
Intrinsic procedure specifications
Chapter 11604
Result value
The result has the value INT(( p -1) * LOG10( b ))+k. The values of b and p are as defined in
“The Real Number System Model” on page 509 for the model representing real numbers with
the same kind type parameter as X. The value of k is 1 if b is an integral power of 10 and 0
otherwise.
PRESENT(A)
Description
Determine whether an optional argument is present.
Class
Inquiry function.
Argument
A must be the name of an optional dummy argument that is accessible in the procedure in
which the PRESENT function reference appears.
Result type/
type parameters
Default logical scalar.
Result value
The result has the value .TRUE. if A is present and otherwise has the value .FALSE.
PRODUCT(ARRAY, DIM, MASK)
Optional arguments
DIM, MASK
Description
Product of all the elements of ARRAY along dimension DIM corresponding to the .TRUE.
elements of MASK.