./splinesurv/src/mainloop.c

CmiscUtils/dcopyWrapper [ Functions ]

NAME

    dcopyWrapper --- wrapper for Fortran call to dcopy

FUNCTION

Copies the first n elements of vector x to vector y.

Wrapper for BLAS call to dcopy, with fixed incx and incy at 1, to make it easier to copy vectors.

SYNOPSIS

496 static inline void dcopyWrapper( int n, double *x, double *y)

INPUTS

    n     number of elements to copy
    x     source vector (unchanged on exit)
    y     destination vector

SOURCE

500 {
501     int c1=1;
502     F77_CALL(dcopy)(&n, x, &c1, y, &c1);
503 }