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

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