detgen

procedure detgen(

  n: ArbInt;

  rwidth: ArbInt;

  var a: ArbFloat;

  var f: ArbFloat;

  var k: ArbInt;

  var term: ArbInt

);