Source position: eigh2.pas line 46
procedure rebaka(
var l: ArbFloat;
n: ArbInt;
rwidthl: ArbInt;
k1: ArbInt;
k2: ArbInt;
var x: ArbFloat;
rwidthx: ArbInt;
var term: ArbInt
);