HP Fortran Programmer's Reference (September 2007)

Intrinsic procedures
Intrinsic procedure specifications
Chapter 11 549
EPSILON(X)
Description
Returns a positive model number that is almost negligible compared to unity in the model
representing numbers of the same type and kind type parameter as the argument.
Class
Inquiry function.
Argument
X must be of type real. It may be scalar or array valued.
Result type,
type parameters, and shape
Scalar of the same type and kind type parameter as X.
Result value
The result has the value b
1-p
where b and p are as defined in “The Real Number System
Model” on page 509 for the model representing numbers of the same type and kind type
parameter as X.
EXIT(STATUS)
Optional argument
STATUS
Description
Close all files and terminate the program.
Class
Nonstandard subroutine.
Argument
STATUS must be of type integer.