Developer Guide and Reference

ID 767251
Date 10/31/2024
Public
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