ieee_finite(3I)

NAME
     IEEE_FINITE - Tests for x being greater than negative infinity and
     less than positive infinity.

SYNOPSIS
     IEEE_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.