HP Fortran Programmer's Reference

Result value
Intrinsic procedures
Intrinsic procedure specifications
The result has the value INT((p-1) * LOG10(b))+k. Thevaluesofb and p are as defined in
“The Real Number System Model” on page 475 for the model representing real numbers with
the same kind type parameter as X. Thevalueofk 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.
Chapter 11 569