Function scopy

src/tests/correctness/blas-lapack.c:709–712

}

void scopy( int n, float *x, int incx,  float *y, int incy)
{
    scopy_(&n, x, &incx, y, &incy);
}

void dcopy( int n, double *x, int incx,  double *y, int incy)
{