From f71612678b170e67a7bd9709bb9addc2e3afa587 Mon Sep 17 00:00:00 2001
From: Raphael Boucherie <raphael.boucherie@inria.fr>
Date: Wed, 17 May 2017 15:08:33 +0200
Subject: [PATCH] fixed incoherence
---
compute/pzunmqr_param.c | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/compute/pzunmqr_param.c b/compute/pzunmqr_param.c
index eeddd7a06..678172f7e 100644
--- a/compute/pzunmqr_param.c
+++ b/compute/pzunmqr_param.c
@@ -295,7 +295,7 @@ void morse_pzunmqr_param(const libhqr_tree_t *qrtree,
&options,
side, trans,
tempmm, B->nb, tempmm, tempnn, tempkn, ib, TS->nb,
- B( m, p), ldbp,
+ B( m, p), ldbm,
B( m, n), ldbm,
A( n, k), ldan,
TS(n, k), TS->mb);
@@ -309,7 +309,7 @@ void morse_pzunmqr_param(const libhqr_tree_t *qrtree,
&options,
side, trans,
tempmm, B->nb, tempmm, tempnn, tempkn, ib, TT->nb,
- B( m, p), ldbp,
+ B( m, p), ldbm,
B( m, n), ldbm,
A( n, k), ldan,
TT(n, k), TT->mb);
@@ -397,7 +397,7 @@ void morse_pzunmqr_param(const libhqr_tree_t *qrtree,
/* Setting the order of tiles */
libhqr_treewalk(qrtree, k, tiles);
- for (i = k; i < B->nt-1; n++) {
+ for (i = k; i < B->nt-1; i++) {
n = tiles[i];
p = qrtree->currpiv(qrtree, k, n);
--
GitLab