set_ieee_exception(3I)

NAME
     SET_IEEE_EXCEPTION - Sets floating-point exception indicator

SYNOPSIS
     SET_IEEE_EXCEPTION ([EXCEPTION=]exception)

STANDARDS
     Fortran extension

     IEEE Standard for Binary Floating-point Arithmetic

DESCRIPTION
     The SET_IEEE_EXCEPTION intrinsic subroutine sets the specified
     floating-point exception indicator.  It accepts the following
     argument:

     exception      Must be of an integer type that occupies a full word.
                    It is an INTENT(IN) argument.  If exception is an
                    array, it must be 1-dimensional.  The single argument
                    in the scalar case, or each array element in the array
                    case, must be set to one of the values represented by
                    the following named constants:

                    * 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)

     The exception indicator specified by exception (or each element of
     exception) is set so it indicates that the exception has occurred.

     Using this subroutine to set an exception indicator does not cause the
     exception to be raised.

     SET_IEEE_EXCEPTION is an elemental subroutine.  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

EXAMPLES
     The following example sets the divide by zero exception indicator so
     that the next time TEST_IEEE_EXCEPTION tests the indicator, it will
     indicate the exception has occurred:

          CALL SET_IEEE_EXCEPTION(IEEE_XPTN_DIV_BY_ZERO)

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