annotate ext/cblas/src/cblas_ddot.c @ 497:0d3a001e63c7
Another range fix... sigh
| author |
Chris Cannam <cannam@all-day-breakfast.com> |
| date |
Mon, 03 Jun 2019 11:45:49 +0100 |
| parents |
905e45637745 |
| children |
|
| rev |
line source |
|
c@427
|
1 #include "cblas.h"
|
|
c@427
|
2 #include "cblas_f77.h"
|
|
c@427
|
3
|
|
c@427
|
4 extern double ddot_(const int *n, const double *dx, const int *incx, const double *dy, const int *incy);
|
|
c@427
|
5
|
|
c@427
|
6 double cblas_ddot( const int N, const double *X,
|
|
c@427
|
7 const int incX, const double *Y, const int incY)
|
|
c@427
|
8 {
|
|
c@427
|
9 #ifdef F77_INT
|
|
c@427
|
10 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
|
|
c@427
|
11 #else
|
|
c@427
|
12 #define F77_N N
|
|
c@427
|
13 #define F77_incX incX
|
|
c@427
|
14 #define F77_incY incY
|
|
c@427
|
15 #endif
|
|
c@427
|
16 return ddot_( &F77_N, X, &F77_incX, Y, &F77_incY);
|
|
c@427
|
17 }
|
