Source position: eigh2.pas line 32
procedure balance(
var a: ArbFloat;
n: ArbInt;
rwidtha: ArbInt;
var low: ArbInt;
var hi: ArbInt;
var d: ArbFloat
);