Source position: eigh2.pas line 42
procedure transx(
var v: ArbFloat;
n: ArbInt;
rwidthv: ArbInt;
var lam: Complex;
var x: Complex;
rwidthx: ArbInt
);