Source position: det.pas line 35
procedure detgpd(
n: ArbInt;
rwidth: ArbInt;
var a: ArbFloat;
var f: ArbFloat;
var k: ArbInt;
var term: ArbInt
);