tql2

procedure tql2(

  var d: ArbFloat;

  var cd: ArbFloat;

  n: ArbInt;

  var lam: ArbFloat;

  var x: ArbFloat;

  rwidth: ArbInt;

  var term: ArbInt

);