From bdf05d08fae4b234ff79a635a0bdba51f7203f7a Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Fri, 13 Dec 2024 18:34:37 +0100
Subject: [PATCH] testing/add: take into account the alpha/beta values in the
validation threshold
---
testing/testing_zcheck_aux.c | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/testing/testing_zcheck_aux.c b/testing/testing_zcheck_aux.c
index 9ea85852e..98ec027e8 100644
--- a/testing/testing_zcheck_aux.c
+++ b/testing/testing_zcheck_aux.c
@@ -453,6 +453,15 @@ int check_zsum_std( run_arg_list_t *args, cham_uplo_t uplo, cham_trans_t trans,
run_arg_add_double( args, "||B||", Binitnorm );
run_arg_add_double( args, "||R||", Rnorm );
+ if ( alpha != 0. ) {
+ Anorm = Anorm * cabs(alpha);
+ }
+ if ( beta != 0. ) {
+ Binitnorm = Binitnorm * cabs(beta);
+ }
+
+ result = Rnorm / (max(Anorm, Binitnorm) * eps);
+
/* Verifies if the result is inside a threshold */
if ( isnan(Rnorm) || isinf(Rnorm) || isnan(result) || isinf(result) || (result > 10.0) ) {
info_solution = 1;
--
GitLab