dslgba

procedure dslgba(

  n: ArbInt;

  lb: ArbInt;

  rb: ArbInt;

  rwa: ArbInt;

  var au: ArbFloat;

  rwl: ArbInt;

  var l: ArbFloat;

  var p: ArbInt;

  var b: ArbFloat;

  var x: ArbFloat;

  var term: ArbInt

);