1 #include "gsl_math.h" 2 #include "gsl_cblas.h" 3 #include "gsl_cblas__cblas.h" 4 5 void cblas_scopy(const int N,const float * X,const int incX,float * Y,const int incY)6cblas_scopy (const int N, const float *X, const int incX, float *Y, 7 const int incY) 8 { 9 #define BASE float 10 #include "gsl_cblas__source_copy_r.h" 11 #undef BASE 12 } 13