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