ieee_set_underflow_mode

Date:: 10-12-2011

NAME

IEEE_SET_UNDERFLOW_MODE - Sets the floating-point underflow mode

SYNOPSIS

CALL IEEE_SET_UNDERFLOW_MODE ([GRADUAL=]gradual)
   LOGICAL :: gradual

IMPLEMENTATION

Cray Linux Environment (CLE)

STANDARDS

Fortran

IEEE Standard for Binary Floating-point Arithmetic

DESCRIPTION

The IEEE_SET_UNDERFLOW_MODE intrinsic subroutine is called to set the floating-point underflow mode. It accepts the following argument:

gradual: Must be of type default logical. It is an INTENT(IN) argument.

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

The IEEE_SET_UNDERFLOW_MODE will not be invoked unless the IEEE_SUPPORT_UNDERFLOW_CONTROL(X)is true for some X.

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, INTRINSIC :: IEEE_ARITHMETIC

RETURN VALUES

The result type and type parameter is default logical.

If the value of gradual is true, the underflow mode is set to gradual underflow. If the value is false, the underflow mode is set to abrupt underflow.

EXAMPLES

Example 1:

USE, INTRINSIC :: IEEE_ARITHMETIC
REAL xdef
REAL(8) x8
LOGICAL x_unflo_supported, unflo_gradual

x_unflo_supported = IEEE_SUPPORT_UNDERFLOW_CONTROL(xdef)

IF (.NOT. x_round_near_supported) STOP "UNFL_UNSUP"

CALL IEEE_GET_UNDERFLOW_MODE(unflo_gradual)

IF ( unflo_gradual) THEN

ENDIF