From 49b058fdd6b790394b95bea8146d4e721c490084 Mon Sep 17 00:00:00 2001
From: Raphael Boucherie <raphael.boucherie@inria.fr>
Date: Mon, 10 Jul 2017 10:55:36 +0200
Subject: [PATCH] init qrtree
---
timing/time_zgeqrf_hqr.c | 10 +++++++---
timing/time_zgeqrf_hqr_tile.c | 8 ++++++--
2 files changed, 13 insertions(+), 5 deletions(-)
diff --git a/timing/time_zgeqrf_hqr.c b/timing/time_zgeqrf_hqr.c
index 2b7eca987..60c7f0da6 100644
--- a/timing/time_zgeqrf_hqr.c
+++ b/timing/time_zgeqrf_hqr.c
@@ -37,7 +37,7 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
MORSE_desc_t *TT;
libhqr_tree_t qrtree;
libhqr_tiledesc_t matrix;
-
+ int hlvl, llvl, qr_a, domino;
PASTE_CODE_IPARAM_LOCALS( iparam );
if ( M != N && check ) {
@@ -67,9 +67,13 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
matrix.p = 1;
/* Initialize qrtree */
+ hlvl = iparam[IPARAM_HIGHLVL_TREE];
+ llvl = iparam[IPARAM_LOWLVL_TREE];
+ qr_a = iparam[IPARAM_RHBLK];
+ domino = iparam[IPARAM_QR_DOMINO];
libhqr_hqr_init( &qrtree,
- ( matrix.mt >= matrix.nt ) ? LIBHQR_QR : LIBHQR_LQ,
- &matrix, -1, -1, -1, P, 0, 0);
+ ( M >= N ) ? LIBHQR_QR : LIBHQR_LQ,
+ &matrix, llvl, hlvl, qr_a, P, domino, 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 87418d8d3..d86d97a13 100644
--- a/timing/time_zgeqrf_hqr_tile.c
+++ b/timing/time_zgeqrf_hqr_tile.c
@@ -37,7 +37,7 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
MORSE_desc_t *TT;
libhqr_tree_t qrtree;
libhqr_tiledesc_t matrix;
-
+ int hlvl, llvl, qr_a, domino;
PASTE_CODE_IPARAM_LOCALS( iparam );
if ( M != N && check ) {
@@ -71,9 +71,13 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
matrix.p = 1;
/* Initialize qrtree */
+ hlvl = iparam[IPARAM_HIGHLVL_TREE];
+ llvl = iparam[IPARAM_LOWLVL_TREE];
+ qr_a = iparam[IPARAM_RHBLK];
+ domino = iparam[IPARAM_QR_DOMINO];
libhqr_hqr_init( &qrtree,
( M >= N ) ? LIBHQR_QR : LIBHQR_LQ,
- &matrix, -1, -1, -1, P, 0, 0);
+ &matrix, llvl, hlvl, qr_a, P, domino, 0);
START_TIMING();
MORSE_zgeqrf_param_Tile(&qrtree, descA, TS, TT );
--
GitLab