Visible to Intel only — GUID: GUID-C5B362C1-7AFF-44E3-8854-225279BBB69B
Visible to Intel only — GUID: GUID-C5B362C1-7AFF-44E3-8854-225279BBB69B
IEEE_SET_ROUNDING_MODE
Intrinsic Module Subroutine (Generic): Sets the IEEE rounding mode. This is an impure subroutine.
USE, INTRINSIC :: IEEE_ARITHMETIC
CALL IEEE_SET_ROUNDING_MODE (round_value [, radix])
round_value |
(Input) Must be scalar and of type TYPE (IEEE_ROUND_TYPE). It specifies one of the following IEEE floating-point rounding values: IEEE_DOWN, IEEE_NEAREST, IEEE_TO_ZERO, IEEE_UP, or IEEE_OTHER. |
radix |
(Input; optional) Must be an integer scalar with a value of ten or two. The rounding mode set is the binary rounding mode unless radix is present with the value of ten, in which case it is the decimal rounding mode set. |
Consider the following:
USE, INTRINSIC :: IEEE_ARITHMETIC
TYPE (IEEE_ROUND_TYPE) ROUND
...
CALL IEEE_GET_ROUNDING_MODE (ROUND) ! Stores the rounding mode
CALL IEEE_SET_ROUNDING_MODE (IEEE_UP) ! Resets the rounding mode
...
CALL IEEE_SET_ROUNDING_MODE (ROUND) ! Restores the previous rounding mode