diff --git a/timing/time_zgeqrf_hqr.c b/timing/time_zgeqrf_hqr.c index d77173c3a72882b563fcfcce5920231ad5dcd390..2b7eca98722fdbc2888bb6475ae4ceebc62b1acb 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 0cf391ce7647661f9d16e4721f43cdd8006011a6..87418d8d36fe64f1b73e7d9fb2f1a242d82d4448 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 );