Silent more warnigs

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 );

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 );

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;
 }

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;
 }