From 31a742efdbae9503c219725ae41c0e3bc09fc33c Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Tue, 29 Oct 2019 22:00:40 +0100
Subject: [PATCH] Fix dimension in umqr
---
compute/pzunmqr_param.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/compute/pzunmqr_param.c b/compute/pzunmqr_param.c
index 4b6696da4..923a3f8a7 100644
--- a/compute/pzunmqr_param.c
+++ b/compute/pzunmqr_param.c
@@ -391,7 +391,7 @@ void chameleon_pzunmqr_param( int genD, const libhqr_tree_t *qrtree,
for (k = 0; k < K; k++) {
RUNTIME_iteration_push(chamctxt, k);
- tempkn = k == B->nt-1 ? B->n-k*B->nb : B->nb;
+ tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
T = TS;
for (i = 0; i < qrtree->getnbgeqrf(qrtree, k); i++) {
--
GitLab