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

);