1 #include "gsl_math.h"
2 #include "gsl_cblas.h"
3 #include "gsl_cblas__cblas.h"
4 
5 double
cblas_dsdot(const int N,const float * X,const int incX,const float * Y,const int incY)6 cblas_dsdot (const int N, const float *X, const int incX, const float *Y,
7              const int incY)
8 {
9 #define INIT_VAL  0.0
10 #define ACC_TYPE  double
11 #define BASE float
12 #include "gsl_cblas__source_dot_r.h"
13 #undef ACC_TYPE
14 #undef BASE
15 #undef INIT_VAL
16 }
17