1.4 誤差を含めた判断

計算機内部で実数値は近似的に扱われるため, どうしても誤差を含んでしまう. 例えば,

      LOGICAL LEQ
      X = 1.
      Y = X/3.
      LEQ = X .EQ. (Y*3.)

というプログラムではLEQ.TRUE.にならない. しかし, もともとXYは近似値なのであるから, それらを比較するときも近似的に比較するのが合理的であり, 実際そのような比較をしたい場合も多い. すなわち, XY*3.が正確に一致するかどうかではなく, 近似的に一致するかどうか調べたい場合も多い.

そのような場合のために, LRLLIB が用意されている. 例えば,

      LOGICAL LEQ, LREQ

      X = 1.
      Y = X/3.
      CALL GLLSET('LEPSL', .TRUE.)
      LEQ = LREQ(X, Y*3.)

とすると, 近似的な比較が可能になる. LREQ は LRLLIBの関数で, 2つの値が計算機の精度内で近似的に一致するかどうか調べるものである. ここでいう計算機の精度とは GLpGET/GLpSETの管理する内部変数'REPSL''RFACT'をかけた値である. 'REPSL'には, 実際の実数の内部表現の精度に安全率として10倍をかけた値が設定されており, 'RFACT'には初期値として1が設定されている. 'REPSL'はライブラリのインストール時に決るもので, この値をプログラムの中で変更することはできないが, 計算精度が悪くて, この値よりもラフな比較をしたい時には, 内部変数 'RFACT'に1以上の数値を指定すればよい.

LRLLIBだけでなく, MATH1のいくつかのサブパッケージには同様の機能がある.