ipffsn

procedure ipffsn(

  n: ArbInt;

  var x: ArbFloat;

  var y: ArbFloat;

  var a: ArbFloat;

  var d2a: ArbFloat;

  var term: ArbInt

);