eiggg3

procedure eiggg3(

  var a: ArbFloat;

  n: ArbInt;

  rwidtha: ArbInt;

  var b: ArbFloat;

  rwidthb: ArbInt;

  var lam: ArbFloat;

  var x: ArbFloat;

  rwidthx: ArbInt;

  var term: ArbInt

);