Commit 49b058fd authored by BOUCHERIE Raphael's avatar BOUCHERIE Raphael

init qrtree

parent f248d3ad
......@@ -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 );
......
......@@ -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 );
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment