get_ieee_exceptions(3I)

NAME
     GET_IEEE_EXCEPTIONS - Retrieves flags that represent the current
     floating-point exception status

SYNOPSIS
     GET_IEEE_EXCEPTIONS ([STATUS=]status)

IMPLEMENTATION
     UNICOS/mk, IRIX systems, CRAY T90 systems that support IEEE
     floating-point arithmetic

     CF90, MIPSpro 7 Fortran 90

STANDARDS
     Fortran extension

     IEEE Standard for Binary Floating-point Arithmetic

DESCRIPTION
     The GET_IEEE_EXCEPTIONS intrinsic subroutine is typically called upon
     entry to a procedure to obtain a set of flags that represent the
     current floating-point exception status.  It accepts the following
     argument:

     status    Must be scalar and of an integer type that occupies a full
               word.  It is an INTENT(OUT) argument.

     The exceptions that are possible are as follows:

     * IEEE_XPTN_CRI_INVALID_OPND (accepted only on CRAY T90 systems that
       support IEEE floating-point arithmetic)

     * IEEE_XPTN_INEXACT_RESULT

     * IEEE_XPTN_UNDERFLOW

     * IEEE_XPTN_OVERFLOW

     * IEEE_XPTN_DIV_BY_ZERO

     * IEEE_XPTN_INVALID_OPR

     * IEEE_XPTN_ALL (all exceptions in this list)

     This subroutine increases program performance by capturing and then
     directly manipulating the status bits with bit manipulation
     operations.  This practice compromises portability, however.

     The name of this intrinsic cannot be passed as an argument.

NOTES
     The IEEE intrinsic procedures use the named constants contained in a
     system module, so you must include the following statement in your
     program:

          USE FTN_IEEE_DEFINITIONS

RETURN VALUES
     The value returned in status is the set of bits that represent the
     current floating-point exception state.

     To determine the exceptions that have been raised, use
     TEST_IEEE_EXCEPTION(3I).

EXAMPLES
     See the example on CLEAR_IEEE_EXCEPTION(3I).

SEE ALSO
     CLEAR_IEEE_EXCEPTION(3I), SET_IEEE_EXCEPTION(3I),
     TEST_IEEE_EXCEPTION(3I)

     Intrinsic Procedures Reference Manual for the printed version of this
     man page.