Function zcopy

src/tests/correctness/blas-lapack.c:724–727

}

void zcopy( int n, doublecomplex *x, int incx,  doublecomplex *y, int incy)
{
    zcopy_(&n, x, &incx, y, &incy);
}

void sswap( int n, float *x, int incx,  float *y, int incy)
{