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 run-time subroutine SETCONTROLFPQQ and is provided for compatibility.

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

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