From a9a238157b1d48fa8f7d6dfa9c56c5dcfe51c174 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sat, 8 Aug 2026 18:04:28 +0200 Subject: [PATCH 1/2] Add missing ABS to the error metric (Reference-LAPACK PR 1338) --- lapack-netlib/TESTING/EIG/dchkbl.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/TESTING/EIG/dchkbl.f b/lapack-netlib/TESTING/EIG/dchkbl.f index 7237dacf29..56f22b2fc9 100644 --- a/lapack-netlib/TESTING/EIG/dchkbl.f +++ b/lapack-netlib/TESTING/EIG/dchkbl.f @@ -132,7 +132,7 @@ SUBROUTINE DCHKBL( NIN, NOUT ) * DO 50 I = 1, N DO 40 J = 1, N - TEMP = MAX( A( I, J ), AIN( I, J ) ) + TEMP = MAX( ABS( A( I, J ) ), ABS( AIN( I, J ) ) ) TEMP = MAX( TEMP, SFMIN ) VMAX = MAX( VMAX, ABS( A( I, J )-AIN( I, J ) ) / TEMP ) 40 CONTINUE From 4d35c9140442ca6441dd634843a7bdce252d876e Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sat, 8 Aug 2026 18:06:18 +0200 Subject: [PATCH 2/2] Add missing ABS to the error metric (Reference-LAPACK PR 1338) --- lapack-netlib/TESTING/EIG/schkbl.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/TESTING/EIG/schkbl.f b/lapack-netlib/TESTING/EIG/schkbl.f index e0634603b6..491080d9e0 100644 --- a/lapack-netlib/TESTING/EIG/schkbl.f +++ b/lapack-netlib/TESTING/EIG/schkbl.f @@ -132,7 +132,7 @@ SUBROUTINE SCHKBL( NIN, NOUT ) * DO 50 I = 1, N DO 40 J = 1, N - TEMP = MAX( A( I, J ), AIN( I, J ) ) + TEMP = MAX( ABS( A( I, J ) ), ABS( AIN( I, J ) ) ) TEMP = MAX( TEMP, SFMIN ) VMAX = MAX( VMAX, ABS( A( I, J )-AIN( I, J ) ) / TEMP ) 40 CONTINUE