comparison ext/cblas/src/cblas_ddot.c @ 205:e81375fa6a33

Merge from branch clapack-included
author Chris Cannam
date Fri, 30 Sep 2016 16:24:24 +0100
parents 45330e0d2819
children
comparison
equal deleted inserted replaced
201:6c0531397af8 205:e81375fa6a33
1 #include "cblas.h"
2 #include "cblas_f77.h"
3
4 extern double ddot_(const int *n, const double *dx, const int *incx, const double *dy, const int *incy);
5
6 double cblas_ddot( const int N, const double *X,
7 const int incX, const double *Y, const int incY)
8 {
9 #ifdef F77_INT
10 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
11 #else
12 #define F77_N N
13 #define F77_incX incX
14 #define F77_incY incY
15 #endif
16 return ddot_( &F77_N, X, &F77_incX, Y, &F77_incY);
17 }