[clblas] 62/75: syr2: Y uses incy, not incx

[Ghislain Vaillant]

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

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

commit 53d25ef60399e95783f1e07ec73961c014f18efb
Author: Mark Gates <mgates3 at utk.edu>
Date:   Fri Oct 7 16:58:15 2016 -0400

    syr2: Y uses incy, not incx
---
 src/library/blas/gens/clTemplates/her2.cl      | 8 ++++----
 src/library/blas/gens/clTemplates/syr2.cl      | 6 +++---
 src/library/blas/gens/clTemplates/syr2_her2.cl | 8 ++++----
 3 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/src/library/blas/gens/clTemplates/her2.cl b/src/library/blas/gens/clTemplates/her2.cl
index ae8f92d..a052098 100644
--- a/src/library/blas/gens/clTemplates/her2.cl
+++ b/src/library/blas/gens/clTemplates/her2.cl
@@ -138,8 +138,8 @@ __kernel void %PREFIXher2_CL_kernel( __global const %TYPE* _A, __global const %T
 				%CONJUGATE(1, res1);
 			#endif
             %MUL( res5, alpha, res1 );
-            res1 = Y[c * incx];
-            res3 = Y[r * incx];
+            res1 = Y[c * incy];
+            res3 = Y[r * incy];
             #ifndef HER2_ROWMAJOR
 				%CONJUGATE(1, res1);
             #endif
@@ -461,8 +461,8 @@ __kernel void %PREFIXher2_CU_kernel( __global const %TYPE* _A, __global const %T
 				%CONJUGATE(1, res1);
 			#endif
             %MUL( res5, alpha, res1 );
-            res1 = Y[c * incx];
-            res3 = Y[r * incx];
+            res1 = Y[c * incy];
+            res3 = Y[r * incy];
             #ifndef HER2_ROWMAJOR
 				%CONJUGATE(1, res1);
             #endif
diff --git a/src/library/blas/gens/clTemplates/syr2.cl b/src/library/blas/gens/clTemplates/syr2.cl
index 0846b2d..4f86b2a 100644
--- a/src/library/blas/gens/clTemplates/syr2.cl
+++ b/src/library/blas/gens/clTemplates/syr2.cl
@@ -128,9 +128,9 @@ __kernel void %PREFIXsyr2_CL_kernel( __global const %TYPE* _A, __global const %T
 
             %TYPE res1, res2;
             res1 = alpha * X[c * incx];
-			res2 = alpha * X[r * incx];
-            res1 = res1 * Y[r * incx];
-			res2 = res2 * Y[c * incx];
+            res2 = alpha * X[r * incx];
+            res1 = res1 * Y[r * incy];
+            res2 = res2 * Y[c * incy];
 
 			A[r + c * lda] += (res1 + res2);
         }
diff --git a/src/library/blas/gens/clTemplates/syr2_her2.cl b/src/library/blas/gens/clTemplates/syr2_her2.cl
index b335e8c..fcb3280 100644
--- a/src/library/blas/gens/clTemplates/syr2_her2.cl
+++ b/src/library/blas/gens/clTemplates/syr2_her2.cl
@@ -148,8 +148,8 @@ __kernel void %PREFIXsyr2_her2_CL_kernel( __global %TYPE* _A, __global const %TY
 				#endif
 			#endif
             %MUL( res5, alpha, res1 );
-            res1 = Y[c * incx];
-            res3 = Y[r * incx];
+            res1 = Y[c * incy];
+            res3 = Y[r * incy];
             #ifdef HER2_ONLY
 				#ifndef HER2_ROWMAJOR
 					%CONJUGATE(1, res1);
@@ -514,8 +514,8 @@ __kernel void %PREFIXsyr2_her2_CU_kernel( __global %TYPE* _A, __global const %TY
 				#endif
 			#endif
             %MUL( res5, alpha, res1 );
-            res1 = Y[c * incx];
-            res3 = Y[r * incx];
+            res1 = Y[c * incy];
+            res3 = Y[r * incy];
             #ifdef HER2_ONLY
 				#ifndef HER2_ROWMAJOR
 					%CONJUGATE(1, res1);

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