From 7718f22b4621794dbf9b9c0ba9f0a1e28f933ff2 Mon Sep 17 00:00:00 2001
From: Raphael Boucherie <raphael.boucherie@inria.fr>
Date: Tue, 13 Jun 2017 16:29:15 +0200
Subject: [PATCH] Fixed default values for hqr_init
---
timing/time_zgeqrf_hqr.c | 3 +--
timing/time_zgeqrf_hqr_tile.c | 3 +--
2 files changed, 2 insertions(+), 4 deletions(-)
diff --git a/timing/time_zgeqrf_hqr.c b/timing/time_zgeqrf_hqr.c
index d77173c3a..2b7eca987 100644
--- a/timing/time_zgeqrf_hqr.c
+++ b/timing/time_zgeqrf_hqr.c
@@ -51,7 +51,6 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
/* Initialize Data */
MORSE_zplrnt(M, N, A, LDA, 3456);
-
/* Allocate Workspace */
MORSE_Alloc_Workspace_zgels(M, N, &TS, P, Q);
memset(TS->mat, 0, (TS->llm*TS->lln)*sizeof(MorseComplexDouble));
@@ -70,7 +69,7 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
/* Initialize qrtree */
libhqr_hqr_init( &qrtree,
( matrix.mt >= matrix.nt ) ? LIBHQR_QR : LIBHQR_LQ,
- &matrix, -1, -1, 1, -1, 0, 0);
+ &matrix, -1, -1, -1, P, 0, 0);
START_TIMING();
MORSE_zgeqrf_param(&qrtree, M, N, A, LDA, TS, TT );
diff --git a/timing/time_zgeqrf_hqr_tile.c b/timing/time_zgeqrf_hqr_tile.c
index 0cf391ce7..87418d8d3 100644
--- a/timing/time_zgeqrf_hqr_tile.c
+++ b/timing/time_zgeqrf_hqr_tile.c
@@ -64,7 +64,6 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
MORSE_Alloc_Workspace_zgels(M, N, &TT, P, Q);
memset(TT->mat, 0, (TT->llm*TT->lln)*sizeof(MorseComplexDouble));
-
/* Initialize matrix */
matrix.mt = TS->mt;
matrix.nt = TS->nt;
@@ -74,7 +73,7 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
/* Initialize qrtree */
libhqr_hqr_init( &qrtree,
( M >= N ) ? LIBHQR_QR : LIBHQR_LQ,
- &matrix, -1, -1, -1, 0, 0, 0);
+ &matrix, -1, -1, -1, P, 0, 0);
START_TIMING();
MORSE_zgeqrf_param_Tile(&qrtree, descA, TS, TT );
--
GitLab