精度パラメタ

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)

精度オプションは相互排他的です。複数のオプションを設定すると,無効なモードになったり,希望とは異なるモードになることがあります。このため,新しい精度モードを設定するときには,その前に精度ビットをすべてクリアするようにしてください。