view release on metacpan or  search on metacpan

Derivative_XS.xs  view on Meta::CPAN

MODULE = Math::Derivative_XS		PACKAGE = Math::Derivative_XS		

void
Derivative2(x, y, yp1_sv = NULL, ypn_sv = NULL)
        AV * x
        AV * y
        SV * yp1_sv
        SV * ypn_sv
    PPCODE:
        {
            int i;
            int n = av_len(x);
            NV * y2 = calloc(n, sizeof(NV));
            NV * u = calloc(n, sizeof(NV));

            if (!yp1_sv || !SvOK(yp1_sv))
            {
                y2[0] = 0;
                u[0] = 0;