From 12f41621e3d6ea19bd2b93ebdf31d24ea6f7cae8 Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Wed, 14 Jun 2017 16:41:05 +0200
Subject: [PATCH] Fix major issue in parameters check of ttmlq
---
coreblas/compute/core_zttmlq.c | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/coreblas/compute/core_zttmlq.c b/coreblas/compute/core_zttmlq.c
index 24d5dfa79..0edbcc62f 100644
--- a/coreblas/compute/core_zttmlq.c
+++ b/coreblas/compute/core_zttmlq.c
@@ -133,7 +133,7 @@ int CORE_zttmlq(MORSE_enum side, MORSE_enum trans,
MORSE_Complex64_t *WORK, int LDWORK)
{
int i, i1, i3, l;
- int NQ, NW;
+ int NW;
int kb;
int ic = 0;
int jc = 0;
@@ -150,11 +150,9 @@ int CORE_zttmlq(MORSE_enum side, MORSE_enum trans,
/* NQ is the order of Q */
if (side == MorseLeft) {
- NQ = N2;
NW = IB;
}
else {
- NQ = M2;
NW = N1;
}
@@ -198,7 +196,7 @@ int CORE_zttmlq(MORSE_enum side, MORSE_enum trans,
coreblas_error(12, "Illegal value of LDA2");
return -12;
}
- if (LDV < chameleon_max(1,NQ)){
+ if (LDV < chameleon_max(1,K)){
coreblas_error(14, "Illegal value of LDV");
return -14;
}
--
GitLab