Source position: eigh1.pas line 44
procedure bandrd1(
var a: ArbFloat;
n: ArbInt;
m: ArbInt;
rwidth: ArbInt;
var d: ArbFloat;
var cd: ArbFloat
);