インテル® Fortran コンパイラー 19.0 デベロッパー・ガイドおよびリファレンス
Portability Subroutine: Sets the value of the floating-point processor control word.
USE IFPORT
CALL LCWRQQ (controlword)
controlword |
(Input) INTEGER(2). Floating-point processor control word. |
LCWRQQ performs the same function as the run-time subroutine SETCONTROLFPQQ and is provided for compatibility.
USE IFPORT
INTEGER(2) control
CALL SCWRQQ(control) ! get control word
! Set control word to make processor round up
control = control .AND. (.NOT. FPCW$MCW_RC) ! Clear
! control word with inverse
! of rounding control mask
control = control .OR. FPCW$UP ! Set control word
! to round up
CALL LCWRQQ(control)
WRITE (*, 9000) 'Control word: ', control
9000 FORMAT (1X, A, Z4)
END