Source position: eigh1.pas line 43
procedure transf(
var a: ArbFloat;
n: ArbInt;
l: ArbInt;
var b: ArbFloat;
rwidthb: ArbInt
);