# 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.

## 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

Parent topic: J to L

## See Also

SETCONTROLFPQQ