Intel® Fortran Compiler 18.0 Developer Guide and Reference
Intrinsic Module Subroutine (Generic): Stores the current underflow mode. This is an impure subroutine.
USE, INTRINSIC :: IEEE_ARITHMETIC
CALL IEEE_GET_UNDERFLOW_MODE (gradual)
gradual |
(Output) Must be default logical scalar. The result is true if the current underflow mode is gradual (IEEE denormals are allowed) and false if the current underflow mode is abrupt (underflowed results are set to zero). |
Consider the following:
USE, INTRINSIC :: IEEE_EXCEPTIONS
LOGICAL GRAD
...
CALL IEEE_GET_UNDERFLOW_MODE(GRAD)
IF (GRAD) THEN ! underflows are gradual
...
ELSE ! underflows are abrupt
...
END IF