splineparameters

procedure splineparameters(

  n: ArbInt;

  var ac: Complex;

  var alfadc: Complex;

  var lambda: ArbFloat;

  var gammar: ArbFloat;

  var u1: ArbFloat;

  var kwsom: ArbFloat;

  var energie: ArbFloat;

  var pf: Complex

);