Source position: eigh1.pas line 47
procedure bandev(
var a: ArbFloat;
n: ArbInt;
m: ArbInt;
rwidth: ArbInt;
lambda: ArbFloat;
var v: ArbFloat;
var term: ArbInt
);