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)6 cblas_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