学习BLAS库 -- COPY

函数语法: 

    XCOPY(  N,  X, INCX,  Y,  INCY)  

功能：

        COPY copies a vector X to a vector Y.

        BLAS level 1 function

参数：

      Input, int N, the number of elements in DX and DY.
      Input, double  X[*], the first vector.
      Input, int  incX, the increment between successive entries of  X.
      Output, double Y[*], the second vector.
      Input, int incY, the increment between successive entries of  Y. 

void cblas_dcopy(const int N, const double *X, const int incX, double *Y,
		const int incY)
{

	if (N <= 0)
	{
		return;
	}
	//
	//        code for unequal increments or equal increments
	//          not equal to 1
	//
	int i;
	if ((incX != 1) || (incY != 1)