[clblas] 78/125: OSX: Use cblas interface for *dot blas functions

[Ghislain Vaillant]

This is an automated email from the git hooks/post-receive script.

ghisvail-guest pushed a commit to branch master
in repository clblas.

commit 4e2c14c77e5768c5ad407bb8017af964853f812d
Author: Christian Kellner <christian at kellner.me>
Date:   Fri Jun 13 15:54:39 2014 +0200

    OSX: Use cblas interface for *dot blas functions
    
    Using the documented cblas_*dot interface for the *dot BLAS
    functions on OSX (using the Accelerate framework) will give the
    expected result in contrast do using *dot_ functions.
---
 src/tests/correctness/blas-lapack.c | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/tests/correctness/blas-lapack.c b/src/tests/correctness/blas-lapack.c
index d75a5dd..2d02137 100644
--- a/src/tests/correctness/blas-lapack.c
+++ b/src/tests/correctness/blas-lapack.c
@@ -630,12 +630,20 @@ void zdscal( int n, double alpha, doublecomplex *x, int incx)
 
 float sdot( int n, float *x, int incx,  float *y, int incy)
 {
+#ifdef __APPLE__
+    return cblas_sdot(n, x, incx, y, incy);
+#else
     return sdot_(&n, x, &incx, y, &incy);
+#endif
 }
 
 double ddot( int n, double *x, int incx,  double *y, int incy)
 {
+#ifdef __APPLE__
+    return cblas_ddot(n, x, incx, y, incy);
+#else
     return ddot_(&n, x, &incx, y, &incy);
+#endif
 }
 
 complex cdotu( int n, complex *x, int incx, complex *y, int incy)

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-science/packages/clblas.git