slegls

procedure slegls(

  var a: ArbFloat;

  m: ArbInt;

  n: ArbInt;

  rwidtha: ArbInt;

  var b: ArbFloat;

  var x: ArbFloat;

  var term: ArbInt

);