get_ieee_rounding_mode(3I)

NAME
     GET_IEEE_ROUNDING_MODE - Returns current floating-point rounding mode

SYNOPSIS
     GET_IEEE_ROUNDING_MODE ([STATUS=]status)

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 GET_IEEE_ROUNDING_MODE intrinsic subroutine is typically called
     upon entry to a procedure to obtain the current floating-point
     rounding mode.  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.

     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 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
     status is set to one of the following values.  These named constants
     indicate the possible floating-point rounding modes.

     * IEEE_RM_NEAREST

     * IEEE_RM_POS_INFINITY

     * IEEE_RM_ZERO

     * IEEE_RM_NEG_INFINITY

EXAMPLES
     See the example on SET_IEEE_ROUNDING_MODE(3I).

SEE ALSO
     SET_IEEE_ROUNDING_MODE(3I)

     Intrinsic Procedures Reference Manual, publication SR-2138, for the
     printed version of this man page.