dslgtr

procedure dslgtr(

  n: ArbInt;

  var l1: ArbFloat;

  var d1: ArbFloat;

  var u1: ArbFloat;

  var u2: ArbFloat;

  var p: Boolean;

  var b: ArbFloat;

  var x: ArbFloat;

  var term: ArbInt

);