htswanalysis/MACS/lib/gsl/gsl-1.11/cblas/sdsdot.c

   1 #include <gsl/gsl_math.h>
   2 #include <gsl/gsl_cblas.h>
   3 #include "cblas.h"
   4
   5 float
   6 cblas_sdsdot (const int N, const float alpha, const float *X, const int incX,
   7               const float *Y, const int incY)
   8 {
   9 #define INIT_VAL  alpha
  10 #define ACC_TYPE  double
  11 #define BASE float
  12 #include "source_dot_r.h"
  13 #undef ACC_TYPE
  14 #undef BASE
  15 #undef INIT_VAL
  16 }