Source position: eigh2.pas line 44
procedure reduc1(
var a: ArbFloat;
n: ArbInt;
rwidtha: ArbInt;
var b: ArbFloat;
rwidthb: ArbInt;
var term: ArbInt
);