Source position: eigh1.pas line 39
procedure trbak1(
var a: ArbFloat;
n: ArbInt;
rwidtha: ArbInt;
var cd: ArbFloat;
k1: ArbInt;
k2: ArbInt;
var x: ArbFloat;
rwidthx: ArbInt
);