detgtr

procedure detgtr(

  n: ArbInt;

  var l: ArbFloat;

  var d: ArbFloat;

  var u: ArbFloat;

  var f: ArbFloat;

  var k: ArbInt;

  var term: ArbInt

);