IEEE_FINITE(3I) Last changed: 1-6-98
NAMEIEEE_FINITE - Tests for x being greater than negative infinity and
less than positive infinity.
SYNOPSISIEEE_FINITE ([X=]x)
IMPLEMENTATION
UNICOS/mk and IRIX systems
CRAY T90 systems that support IEEE floating-point arithmetic
STANDARDS
CF90 and MIPSpro 7 Fortran 90 compiler extension to Fortran 90
IEEE Standard for Binary Floating-point Arithmetic
DESCRIPTION
The IEEE_FINITE intrinsic function returns the value TRUE if
-inf < x < +inf. Otherwise, it returns the value FALSE. IEEE_FINITE
accepts the following argument:
x Must be of type real.
IEEE_FINITE is an elemental function. The name of this intrinsic
cannot be passed as an argment.
NOTES
The IEEE intrinsic procedures use the named constants contained in a
system module, so you must include one of the following statements in
your program:
* On UNICOS and UNICOS/mk systems: USE CRI_IEEE_DEFINITIONS
* On UNICOS, UNICOS/mk, and IRIX systems: USE FTN_IEEE_DEFINITIONS
The CRI_IEEE_DEFINITIONS module is obsolescent. It will be removed
for the CF90 4.0 release.
RETURN VALUES
The result type and type parameter is default logical. If x is an
array, the result is an array of the same shape as x.
EXAMPLES
REAL x
... ! Compute X.
IF (IEEE_FINITE(x)) THEN
... ! Do something.
ELSE
... ! Do something else.
END IF
SEE ALSO
Intrinsic Procedures Reference Manual, publication SR-2138, for the
printed version of this man page.
