HP Fortran Programmer's Reference (September 2007)

Intrinsic procedures
Intrinsic procedure specifications
Chapter 11544
Result value
The result has the value q if X is of type integer and p if X is of type real, where q and p are as
defined in “Data representation models” on page 507 for the model representing numbers of
the same type and kind type parameter as X.
DIM(X, Y)
Description
The difference X–Y if it is positive; otherwise zero.
Class
Elemental function.
Arguments
X must be of type integer or real.
Y must be of the same type and kind type parameter as X.
Result type/
type parameters
Same as X.
Result value
The value of the result is X–Y if X > Y and zero otherwise.
Specific forms
BDIM, DDIM, HDIM, QDIM.
DNUM(I)
Description
Convert to double precision.
Class
Elemental nonstandard function.