From d1f291f03378f6fcbcb8206c3dbb46f0ffb48744 Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Fri, 28 Jul 2017 16:57:19 +0200
Subject: [PATCH] Silent more warnigs
---
timing/time_zgeqrf_hqr.c | 10 ++++++----
timing/time_zgeqrf_hqr_tile.c | 8 +++++---
timing/time_zgesvd_tile.c | 2 ++
timing/time_zheevd_tile.c | 1 +
4 files changed, 14 insertions(+), 7 deletions(-)
diff --git a/timing/time_zgeqrf_hqr.c b/timing/time_zgeqrf_hqr.c
index 60c7f0da6..ab5d8f9bc 100644
--- a/timing/time_zgeqrf_hqr.c
+++ b/timing/time_zgeqrf_hqr.c
@@ -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 );
diff --git a/timing/time_zgeqrf_hqr_tile.c b/timing/time_zgeqrf_hqr_tile.c
index d86d97a13..302a8a78d 100644
--- a/timing/time_zgeqrf_hqr_tile.c
+++ b/timing/time_zgeqrf_hqr_tile.c
@@ -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 );
diff --git a/timing/time_zgesvd_tile.c b/timing/time_zgesvd_tile.c
index e4cb71a7e..af8c7a6d6 100644
--- a/timing/time_zgesvd_tile.c
+++ b/timing/time_zgesvd_tile.c
@@ -71,5 +71,7 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
}
PASTE_CODE_FREE_MATRIX( descA );
free( S );
+
+ (void)dparam;
return 0;
}
diff --git a/timing/time_zheevd_tile.c b/timing/time_zheevd_tile.c
index 56b08fa76..706346fe9 100644
--- a/timing/time_zheevd_tile.c
+++ b/timing/time_zheevd_tile.c
@@ -56,5 +56,6 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
MORSE_Dealloc_Workspace(&descT);
free( A );
+ (void)dparam;
return 0;
}
--
GitLab