Intel® Fortran Compiler Classic and Intel® Fortran Compiler Developer Guide and Reference

ID 767251
Date 11/07/2023
Public

A newer version of this document is available. Customers should click here to go to the newest version.

Document Table of Contents

LCWRQQ

Portability Subroutine: Sets the value of the floating-point processor control word.

Module

USE IFPORT

CALL LCWRQQ (controlword)

controlword

(Input) INTEGER(2). Floating-point processor control word.

LCWRQQ performs the same function as the runtime subroutine SETCONTROLFPQQ and is provided for compatibility.

Example

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

See Also