ia32 システムでは,丸めフラグは,FPU が使用する丸めの方式を制御します。次に例を示します。
USE DFLIB INTEGER(2) control, clearcontrol, newcontrol CALL GETCONTROLFPQQ(control) ! 既存の丸めフラグをクリア clearcontrol = (control .AND. (.NOT. FPCW$MCW_RC)) newcontrol = clearcontrol .OR. FPCW$UP ! 丸めモードを FPCW$UP に設定 CALL SETCONTROLFPQQ(newcontrol)
丸めオプションは相互排他的です。複数のオプションを設定すると,無効なモードになったり,希望とは異なるモードになることがあります。このため,新しい丸めモードを設定するときには,その前に丸めビットをすべてクリアするようにしてください。