Mentions légales du service

Skip to content
Snippets Groups Projects

Fix initialization of qrtree iin timings

Merged BOUCHERIE Raphael requested to merge rboucher/chameleon:fix_options into master
2 files
+ 13
5
Compare changes
  • Side-by-side
  • Inline
Files
2
+ 7
3
@@ -37,7 +37,7 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
@@ -37,7 +37,7 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
MORSE_desc_t *TT;
MORSE_desc_t *TT;
libhqr_tree_t qrtree;
libhqr_tree_t qrtree;
libhqr_tiledesc_t matrix;
libhqr_tiledesc_t matrix;
int hlvl, llvl, qr_a, domino;
PASTE_CODE_IPARAM_LOCALS( iparam );
PASTE_CODE_IPARAM_LOCALS( iparam );
if ( M != N && check ) {
if ( M != N && check ) {
@@ -67,9 +67,13 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
@@ -67,9 +67,13 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
matrix.p = 1;
matrix.p = 1;
/* Initialize qrtree */
/* 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,
libhqr_hqr_init( &qrtree,
( matrix.mt >= matrix.nt ) ? LIBHQR_QR : LIBHQR_LQ,
( M >= N ) ? LIBHQR_QR : LIBHQR_LQ,
&matrix, -1, -1, -1, P, 0, 0);
&matrix, llvl, hlvl, qr_a, P, domino, 0);
START_TIMING();
START_TIMING();
MORSE_zgeqrf_param(&qrtree, M, N, A, LDA, TS, TT );
MORSE_zgeqrf_param(&qrtree, M, N, A, LDA, TS, TT );
Loading