[clblas] 79/125: OSX: Use cblas interface for *asum 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 1eb79e7cb01d06486d9fa7e04ea7d7bd87085acf
Author: Christian Kellner <christian at kellner.me>
Date:   Fri Jun 13 15:56:27 2014 +0200

    OSX: Use cblas interface for *asum blas functions
    
    Using cblas_*asum instead of *asum_ will give the expected result
---
 src/tests/correctness/blas-lapack.c | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/src/tests/correctness/blas-lapack.c b/src/tests/correctness/blas-lapack.c
index 2d02137..1f58272 100644
--- a/src/tests/correctness/blas-lapack.c
+++ b/src/tests/correctness/blas-lapack.c
@@ -896,22 +896,38 @@ double dznrm2( int n, doublecomplex *x, int incx)
 
 float sasum( int n, float *x, int incx)
 {
+#ifdef __APPLE__
+    return cblas_sasum(n, x, incx);
+#else
     return sasum_(&n, x, &incx);
+#endif
 }
 
 double dasum( int n, double *x, int incx)
 {
+#ifdef __APPLE__
+    return cblas_dasum(n, x, incx);
+#else
     return dasum_(&n, x, &incx);
+#endif
 }
 
 float scasum( int n, complex *x, int incx)
 {
+#ifdef __APPLE__
+    return cblas_scasum(n, x, incx);
+#else
     return scasum_(&n, x, &incx);
+#endif
 }
 
 double dzasum( int n, doublecomplex *x, int incx)
 {
+#ifdef __APPLE__
+    return cblas_dzasum(n, x, incx);
+#else
     return dzasum_(&n, x, &incx);
+#endif
 }
 
 #endif

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