Commit 7718f22b authored by BOUCHERIE Raphael's avatar BOUCHERIE Raphael

Fixed default values for hqr_init

parent 1afb3f85
......@@ -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 );
......
......@@ -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 );
......
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