Source position: eigh1.pas line 37
procedure bisect(
var d: ArbFloat;
var cd: ArbFloat;
n: ArbInt;
k1: ArbInt;
k2: ArbInt;
eps: ArbFloat;
var lam: ArbFloat;
var term: ArbInt
);