ipfsmm

procedure ipfsmm(

  n: ArbInt;

  var x: ArbFloat;

  var y: ArbFloat;

  var d2s: ArbFloat;

  var minv: ArbFloat;

  var maxv: ArbFloat;

  var term: ArbInt

);