From 181c3c707e14a00c4241ae73f05e1468963fa389 Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Thu, 18 Jul 2024 14:34:44 +0200
Subject: [PATCH] compute/precision_reduction: Fix warnings and indent
---
compute/pzgered.c | 14 ++++++--------
compute/pzhered.c | 15 ++++++---------
2 files changed, 12 insertions(+), 17 deletions(-)
diff --git a/compute/pzgered.c b/compute/pzgered.c
index 1051ee91f..c43e9a0e4 100644
--- a/compute/pzgered.c
+++ b/compute/pzgered.c
@@ -162,7 +162,7 @@ void chameleon_pzgered( cham_uplo_t uplo, double prec, CHAM_desc_t *A,
RUNTIME_option_t options;
CHAM_desc_t Wcol;
CHAM_desc_t Welt;
- double gnorm, lnorm, threshold, eps;
+ double gnorm, threshold, eps;
int workmt, worknt;
int m, n;
@@ -233,16 +233,14 @@ void chameleon_pzgered( cham_uplo_t uplo, double prec, CHAM_desc_t *A,
int nmax = ( uplo == ChamLower ) ? chameleon_min(m+1, A->nt) : A->nt;
for(n = nmin; n < nmax; n++) {
- CHAM_tile_t *tile = A->get_blktile( A, m, n );
-
int tempnn = ( n == (A->nt-1) ) ? A->n - n * A->nb : A->nb;
/*
- * u_{high} = 1e-16 (later should be application accuracy)
- * u_{low} = 1e-8
- * ||A_{i,j}||_F < u_{high} * || A ||_F / (nt * u_{low})
- * ||A_{i,j}||_F < threshold / u_{low}
- */
+ * u_{high} = 1e-16 (later should be application accuracy)
+ * u_{low} = 1e-8
+ * ||A_{i,j}||_F < u_{high} * || A ||_F / (nt * u_{low})
+ * ||A_{i,j}||_F < threshold / u_{low}
+ */
INSERT_TASK_zgered( &options, threshold,
tempmm, tempnn, A( m, n ), W( &Wcol, m, n ) );
}
diff --git a/compute/pzhered.c b/compute/pzhered.c
index 97e171b3f..cc32f4243 100644
--- a/compute/pzhered.c
+++ b/compute/pzhered.c
@@ -187,7 +187,7 @@ void chameleon_pzhered( cham_trans_t trans, cham_uplo_t uplo, double prec, CHAM_
RUNTIME_option_t options;
CHAM_desc_t Wcol;
CHAM_desc_t Welt;
- double gnorm, lnorm, threshold, eps;
+ double gnorm, threshold, eps;
int workmt, worknt;
int m, n;
@@ -263,17 +263,14 @@ void chameleon_pzhered( cham_trans_t trans, cham_uplo_t uplo, double prec, CHAM_
for (n = nmin; n < nmax; n++)
{
- CHAM_tile_t *tile = A->get_blktile(A, m, n);
-
int tempnn = (n == (A->nt - 1)) ? A->n - n * A->nb : A->nb;
/*
- * u_{high} = 1e-16 (later should be application accuracy)
- * u_{low} = 1e-8
- * ||A_{i,j}||_F < u_{high} * || A ||_F / (nt * u_{low})
- * ||A_{i,j}||_F < threshold / u_{low}
- */
-
+ * u_{high} = 1e-16 (later should be application accuracy)
+ * u_{low} = 1e-8
+ * ||A_{i,j}||_F < u_{high} * || A ||_F / (nt * u_{low})
+ * ||A_{i,j}||_F < threshold / u_{low}
+ */
INSERT_TASK_zgered( &options, threshold,
tempmm, tempnn, A( m, n ), W( &Wcol, m, n ) );
}
--
GitLab