HP Fortran Programmer's Reference

Intrinsic procedures
Intrinsic procedure specifications
SELECTED_REAL_KIND(P, R)
Optional arguments
P, R
Description
Returns a value of the kind type parameter of a real data type with decimal precision of at
least P digits and a decimal exponent range of at least R.
Class
Transformational function.
Arguments
At least one argument must be present.
P (optional) must be scalar and of type integer.
R (optional) must be scalar and of type integer.
Result type,
type parameters,
and shape
Default integer scalar.
Result value
The result has a value equal to a value of the kind type parameter of a real data type with
decimal precision, as returned by the function PRECISION, ofatleastP digits and a decimal
exponent range, as returned by the function RANGE, ofatleastR.
If no such kind type parameter is available on the processor, the result is –1 if the precision is
not available, –2 if the exponent range is not available, and –3 if neither is available.
If more than one kind type parameter value meets the criteria, the value returned is the one
with the smallest decimal precision, unless there are several such values, in which case the
smallest of these kind values is returned.
584
Chapter 11