Commit d1f291f0 authored by Mathieu Faverge's avatar Mathieu Faverge

Silent more warnigs

parent 75c85b49
...@@ -35,8 +35,8 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_) ...@@ -35,8 +35,8 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
{ {
MORSE_desc_t *TS; MORSE_desc_t *TS;
MORSE_desc_t *TT; MORSE_desc_t *TT;
libhqr_tree_t qrtree; libhqr_tree_t qrtree;
libhqr_tiledesc_t matrix; libhqr_matrix_t matrix;
int hlvl, llvl, qr_a, domino; int hlvl, llvl, qr_a, domino;
PASTE_CODE_IPARAM_LOCALS( iparam ); PASTE_CODE_IPARAM_LOCALS( iparam );
...@@ -71,7 +71,8 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_) ...@@ -71,7 +71,8 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
llvl = iparam[IPARAM_LOWLVL_TREE]; llvl = iparam[IPARAM_LOWLVL_TREE];
qr_a = iparam[IPARAM_RHBLK]; qr_a = iparam[IPARAM_RHBLK];
domino = iparam[IPARAM_QR_DOMINO]; domino = iparam[IPARAM_QR_DOMINO];
libhqr_hqr_init( &qrtree,
libhqr_init_hqr( &qrtree,
( M >= N ) ? LIBHQR_QR : LIBHQR_LQ, ( M >= N ) ? LIBHQR_QR : LIBHQR_LQ,
&matrix, llvl, hlvl, qr_a, P, domino, 0); &matrix, llvl, hlvl, qr_a, P, domino, 0);
...@@ -96,9 +97,10 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_) ...@@ -96,9 +97,10 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
free( Acpy ); free( Acpy );
free( B ); free( B );
free( X ); free( X );
} }
/* Free Workspace */ /* Free Workspace */
libhqr_finalize( &qrtree );
MORSE_Dealloc_Workspace( &TS ); MORSE_Dealloc_Workspace( &TS );
MORSE_Dealloc_Workspace( &TT ); MORSE_Dealloc_Workspace( &TT );
free( A ); free( A );
......
...@@ -35,8 +35,8 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_) ...@@ -35,8 +35,8 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
{ {
MORSE_desc_t *TS; MORSE_desc_t *TS;
MORSE_desc_t *TT; MORSE_desc_t *TT;
libhqr_tree_t qrtree; libhqr_tree_t qrtree;
libhqr_tiledesc_t matrix; libhqr_matrix_t matrix;
int hlvl, llvl, qr_a, domino; int hlvl, llvl, qr_a, domino;
PASTE_CODE_IPARAM_LOCALS( iparam ); PASTE_CODE_IPARAM_LOCALS( iparam );
...@@ -75,7 +75,8 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_) ...@@ -75,7 +75,8 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
llvl = iparam[IPARAM_LOWLVL_TREE]; llvl = iparam[IPARAM_LOWLVL_TREE];
qr_a = iparam[IPARAM_RHBLK]; qr_a = iparam[IPARAM_RHBLK];
domino = iparam[IPARAM_QR_DOMINO]; domino = iparam[IPARAM_QR_DOMINO];
libhqr_hqr_init( &qrtree,
libhqr_init_hqr( &qrtree,
( M >= N ) ? LIBHQR_QR : LIBHQR_LQ, ( M >= N ) ? LIBHQR_QR : LIBHQR_LQ,
&matrix, llvl, hlvl, qr_a, P, domino, 0); &matrix, llvl, hlvl, qr_a, P, domino, 0);
...@@ -105,6 +106,7 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_) ...@@ -105,6 +106,7 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
} }
/* Free Workspace */ /* Free Workspace */
libhqr_finalize( &qrtree );
MORSE_Dealloc_Workspace( &TS ); MORSE_Dealloc_Workspace( &TS );
MORSE_Dealloc_Workspace( &TT ); MORSE_Dealloc_Workspace( &TT );
free( descA ); free( descA );
......
...@@ -71,5 +71,7 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_) ...@@ -71,5 +71,7 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
} }
PASTE_CODE_FREE_MATRIX( descA ); PASTE_CODE_FREE_MATRIX( descA );
free( S ); free( S );
(void)dparam;
return 0; return 0;
} }
...@@ -56,5 +56,6 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_) ...@@ -56,5 +56,6 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
MORSE_Dealloc_Workspace(&descT); MORSE_Dealloc_Workspace(&descT);
free( A ); free( A );
(void)dparam;
return 0; return 0;
} }
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