From c406ad3deefae3a0043720209ca615d31fd1d82c Mon Sep 17 00:00:00 2001
From: Raphael Boucherie <raphael.boucherie@inria.fr>
Date: Mon, 12 Jun 2017 10:34:13 +0200
Subject: [PATCH] minor
---
compute/pzungqrrh.c | 4 ++--
compute/pzunmqrrh.c | 10 +++-------
2 files changed, 5 insertions(+), 9 deletions(-)
diff --git a/compute/pzungqrrh.c b/compute/pzungqrrh.c
index 7217488af..c5d2d9c0a 100644
--- a/compute/pzungqrrh.c
+++ b/compute/pzungqrrh.c
@@ -118,7 +118,7 @@ void morse_pzungqrrh(MORSE_desc_t *A, MORSE_desc_t *Q,
MORSE_TASK_zttmqr(
&options,
MorseLeft, MorseNoTrans,
- A->nb, tempnn, tempMRDm, tempnn,
+ Q->mb, tempnn, tempMRDm, tempnn,
tempkn, ib, T->nb,
Q (M, n), ldqM,
Q (M+RD, n), ldqMRD,
@@ -142,7 +142,7 @@ void morse_pzungqrrh(MORSE_desc_t *A, MORSE_desc_t *Q,
MORSE_TASK_ztsmqr(
&options,
MorseLeft, MorseNoTrans,
- A->nb, tempnn, tempmm, tempnn,
+ Q->mb, tempnn, tempmm, tempnn,
tempkn, ib, T->nb,
Q(M, n), ldqM,
Q(m, n), ldqm,
diff --git a/compute/pzunmqrrh.c b/compute/pzunmqrrh.c
index 1c6954f67..777ec71ad 100644
--- a/compute/pzunmqrrh.c
+++ b/compute/pzunmqrrh.c
@@ -134,8 +134,7 @@ void morse_pzunmqrrh(MORSE_enum side, MORSE_enum trans,
MORSE_TASK_zunmqr(
&options,
side, trans,
- tempMm, tempnn,
- tempkmin, ib, T->nb,
+ tempMm, tempnn, tempkmin, ib, T->nb,
DIAG(M, k), ldaM,
T(M, k), T->mb,
B(M, n), ldbM);
@@ -260,7 +259,6 @@ void morse_pzunmqrrh(MORSE_enum side, MORSE_enum trans,
B(M, n), ldbM);
}
}
-
RUNTIME_iteration_pop(morse);
}
}
@@ -337,8 +335,7 @@ void morse_pzunmqrrh(MORSE_enum side, MORSE_enum trans,
MORSE_TASK_zunmqr(
&options,
side, trans,
- tempmm, tempMm,
- tempkmin, ib, T->nb,
+ tempmm, tempMm, tempkmin, ib, T->nb,
DIAG(M, k), ldaM,
T(M, k), T->mb,
B(m, M), ldbm);
@@ -379,8 +376,7 @@ void morse_pzunmqrrh(MORSE_enum side, MORSE_enum trans,
MORSE_TASK_zunmqr(
&options,
side, trans,
- tempmm, tempMm,
- tempkmin, ib, T->nb,
+ tempmm, tempMm, tempkmin, ib, T->nb,
DIAG(M, k), ldaM,
T(M, k), T->mb,
B(m, M), ldbm);
--
GitLab