| #include <gsl/gsl_math.h> | |
| #include <gsl/gsl_cblas.h> | |
| #include "cblas.h" | |
| float | |
| cblas_sdsdot (const int N, const float alpha, const float *X, const int incX, | |
| const float *Y, const int incY) | |
| { | |
| #define INIT_VAL alpha | |
| #define ACC_TYPE double | |
| #define BASE float | |
| #include "source_dot_r.h" | |
| #undef ACC_TYPE | |
| #undef BASE | |
| #undef INIT_VAL | |
| } |