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