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