eigsv3

procedure eigsv3(

  var a: ArbFloat;

  m: ArbInt;

  n: ArbInt;

  rwidtha: ArbInt;

  var sig: ArbFloat;

  var u: ArbFloat;

  rwidthu: ArbInt;

  var v: ArbFloat;

  rwidthv: ArbInt;

  var term: ArbInt

);