Derivative of Cubic spline interpolation function
function Spline_der input Real[:] x "x coordinations of interpolating points"; input Real[:, 4] a "cubic polynom coefficients of curve segments between interpolating points"; input Real xVal "input value of x to calculate y value"; input Real xVal_der; output Real yVal_der "derivative y at xVal"; end Spline_der;
author: Ondrej Vacek