From b89c9744763d8608b25924dc304c418580e5d582 Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Wed, 5 Apr 2017 17:16:50 +0200
Subject: [PATCH] Fix dimension of work used for displacement with workc
---
runtime/starpu/codelets/codelet_ztsmqr.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/runtime/starpu/codelets/codelet_ztsmqr.c b/runtime/starpu/codelets/codelet_ztsmqr.c
index 665628cf4..669b2d1b4 100644
--- a/runtime/starpu/codelets/codelet_ztsmqr.c
+++ b/runtime/starpu/codelets/codelet_ztsmqr.c
@@ -281,8 +281,8 @@ static void cl_ztsmqr_cuda_func(void *descr[], void *cl_arg)
starpu_codelet_unpack_args(cl_arg, &side, &trans, &m1, &n1, &m2, &n2, &k, &ib,
&lda1, &lda2, &ldv, &ldt, &ldwork);
- WC = W + ib * (side == MorseLeft ? n1 : m1);
- ldworkc = (side == MorseLeft) ? m1 : ib;
+ WC = W + ib * (side == MorseLeft ? m1 : n1);
+ ldworkc = (side == MorseLeft) ? m2 : ib;
stream = starpu_cuda_get_local_stream();
cublasSetKernelStream( stream );
--
GitLab