Commit 65aadc18 authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

Remove debug check

parent 0825038b
......@@ -67,7 +67,7 @@ int testing_zgeqrf_qdwh(int argc, char **argv)
int LDA = 2*M;
double eps;
int info_ortho, info_solution, info_factorization;
int i, j, rc;
int i, j;
/**
* Compute A = QR with
......@@ -109,17 +109,14 @@ int testing_zgeqrf_qdwh(int argc, char **argv)
LAPACKE_zlacpy_work( LAPACK_COL_MAJOR, 'A', M, M, A2, M, A + M, LDA );
/* Factorize A */
rc = MORSE_zgeqrf( M, M, A1, M, T1 );
assert( rc == 0 );
rc = MORSE_ztpqrt( M, M, optid ? M : 0,
A1, M,
A2, M, T2 );
assert( rc == 0 );
MORSE_zgeqrf( M, M, A1, M, T1 );
MORSE_ztpqrt( M, M, optid ? M : 0,
A1, M,
A2, M, T2 );
/* Generate the Q */
rc = MORSE_ztpgqrt( M, M, M, (optid) ? M : 0,
A1, M, T1, A2, M, T2, Q1, M, Q2, M );
assert( rc == 0 );
MORSE_ztpgqrt( M, M, M, (optid) ? M : 0,
A1, M, T1, A2, M, T2, Q1, M, Q2, M );
/* Copy Q in a single matrix */
Q = (MORSE_Complex64_t *)malloc(2*M*M*sizeof(MORSE_Complex64_t));
......
Supports Markdown
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