SET_IEEE_EXCEPTION(3I) Last changed: 1-6-98
NAME
SET_IEEE_EXCEPTION - Sets floating-point exception indicator
SYNOPSIS
SET_IEEE_EXCEPTION ([EXCEPTION=]exception)
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 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_CRI_INVALID_OPND (valid on CRAY T90 systems
only)
* IEEE_XPTN_INEXACT_RESULT
* IEEE_XPTN_UNDERFLOW
* IEEE_XPTN_OVERFLOW
* IEEE_XPTN_DIV_BY_ZERO
* IEEE_XPTN_INVALID_OPR
* IEEE_XPTN_ALL
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 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.
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 ALSOCLEAR_IEEE_EXCEPTION(3I), GET_IEEE_EXCEPTIONS(3I),
TEST_IEEE_EXCEPTION(3I)
Intrinsic Procedures Reference Manual, publication SR-2138, for the
printed version of this man page.
