Source position: eigh1.pas line 41
procedure trsturm1(
var d: ArbFloat;
var cd: ArbFloat;
n: ArbInt;
k1: ArbInt;
k2: ArbInt;
var lam: ArbFloat;
var x: ArbFloat;
rwidth: ArbInt;
var m2: ArbInt;
var term: ArbInt
);