From a659f40fe116f237f624dd309ea1cfaac3015227 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Mon, 14 Oct 2024 18:53:30 +0200 Subject: [PATCH 1/4] Fix leading dimension for B (Reference-LAPACK PR 1064) --- lapack-netlib/TESTING/EIG/cget52.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/TESTING/EIG/cget52.f b/lapack-netlib/TESTING/EIG/cget52.f index 30bf6ba39..558ec60ba 100644 --- a/lapack-netlib/TESTING/EIG/cget52.f +++ b/lapack-netlib/TESTING/EIG/cget52.f @@ -256,7 +256,7 @@ END IF CALL CGEMV( TRANS, N, N, ACOEFF, A, LDA, E( 1, JVEC ), 1, $ CZERO, WORK( N*( JVEC-1 )+1 ), 1 ) - CALL CGEMV( TRANS, N, N, -BCOEFF, B, LDA, E( 1, JVEC ), 1, + CALL CGEMV( TRANS, N, N, -BCOEFF, B, LDB, E( 1, JVEC ), 1, $ CONE, WORK( N*( JVEC-1 )+1 ), 1 ) 10 CONTINUE * From 7018c1b001bd79dff9d7af842b7f48c66ec03dcb Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Mon, 14 Oct 2024 18:56:44 +0200 Subject: [PATCH 2/4] Fix leading dimension for B (Reference-LAPACK PR 1064) --- lapack-netlib/TESTING/EIG/dget52.f | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lapack-netlib/TESTING/EIG/dget52.f b/lapack-netlib/TESTING/EIG/dget52.f index 68196f5f3..b662bb694 100644 --- a/lapack-netlib/TESTING/EIG/dget52.f +++ b/lapack-netlib/TESTING/EIG/dget52.f @@ -293,7 +293,7 @@ BCOEFR = SCALE*SALFR CALL DGEMV( TRANS, N, N, ACOEF, A, LDA, E( 1, JVEC ), 1, $ ZERO, WORK( N*( JVEC-1 )+1 ), 1 ) - CALL DGEMV( TRANS, N, N, -BCOEFR, B, LDA, E( 1, JVEC ), + CALL DGEMV( TRANS, N, N, -BCOEFR, B, LDB, E( 1, JVEC ), $ 1, ONE, WORK( N*( JVEC-1 )+1 ), 1 ) ELSE * @@ -323,16 +323,16 @@ * CALL DGEMV( TRANS, N, N, ACOEF, A, LDA, E( 1, JVEC ), 1, $ ZERO, WORK( N*( JVEC-1 )+1 ), 1 ) - CALL DGEMV( TRANS, N, N, -BCOEFR, B, LDA, E( 1, JVEC ), + CALL DGEMV( TRANS, N, N, -BCOEFR, B, LDB, E( 1, JVEC ), $ 1, ONE, WORK( N*( JVEC-1 )+1 ), 1 ) - CALL DGEMV( TRANS, N, N, BCOEFI, B, LDA, E( 1, JVEC+1 ), + CALL DGEMV( TRANS, N, N, BCOEFI, B, LDB, E( 1, JVEC+1 ), $ 1, ONE, WORK( N*( JVEC-1 )+1 ), 1 ) * CALL DGEMV( TRANS, N, N, ACOEF, A, LDA, E( 1, JVEC+1 ), $ 1, ZERO, WORK( N*JVEC+1 ), 1 ) - CALL DGEMV( TRANS, N, N, -BCOEFI, B, LDA, E( 1, JVEC ), + CALL DGEMV( TRANS, N, N, -BCOEFI, B, LDB, E( 1, JVEC ), $ 1, ONE, WORK( N*JVEC+1 ), 1 ) - CALL DGEMV( TRANS, N, N, -BCOEFR, B, LDA, E( 1, JVEC+1 ), + CALL DGEMV( TRANS, N, N, -BCOEFR, B, LDB, E( 1, JVEC+1 ), $ 1, ONE, WORK( N*JVEC+1 ), 1 ) END IF END IF From 27ed6da33133b3e866a0dc744739a5d12c1862bc Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Mon, 14 Oct 2024 18:57:50 +0200 Subject: [PATCH 3/4] Fix leading dimension for B (Reference-LAPACK PR 1064) --- lapack-netlib/TESTING/EIG/sget52.f | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lapack-netlib/TESTING/EIG/sget52.f b/lapack-netlib/TESTING/EIG/sget52.f index 9f5412602..5bd5e414c 100644 --- a/lapack-netlib/TESTING/EIG/sget52.f +++ b/lapack-netlib/TESTING/EIG/sget52.f @@ -293,7 +293,7 @@ BCOEFR = SCALE*SALFR CALL SGEMV( TRANS, N, N, ACOEF, A, LDA, E( 1, JVEC ), 1, $ ZERO, WORK( N*( JVEC-1 )+1 ), 1 ) - CALL SGEMV( TRANS, N, N, -BCOEFR, B, LDA, E( 1, JVEC ), + CALL SGEMV( TRANS, N, N, -BCOEFR, B, LDB, E( 1, JVEC ), $ 1, ONE, WORK( N*( JVEC-1 )+1 ), 1 ) ELSE * @@ -323,16 +323,16 @@ * CALL SGEMV( TRANS, N, N, ACOEF, A, LDA, E( 1, JVEC ), 1, $ ZERO, WORK( N*( JVEC-1 )+1 ), 1 ) - CALL SGEMV( TRANS, N, N, -BCOEFR, B, LDA, E( 1, JVEC ), + CALL SGEMV( TRANS, N, N, -BCOEFR, B, LDB, E( 1, JVEC ), $ 1, ONE, WORK( N*( JVEC-1 )+1 ), 1 ) - CALL SGEMV( TRANS, N, N, BCOEFI, B, LDA, E( 1, JVEC+1 ), + CALL SGEMV( TRANS, N, N, BCOEFI, B, LDB, E( 1, JVEC+1 ), $ 1, ONE, WORK( N*( JVEC-1 )+1 ), 1 ) * CALL SGEMV( TRANS, N, N, ACOEF, A, LDA, E( 1, JVEC+1 ), $ 1, ZERO, WORK( N*JVEC+1 ), 1 ) - CALL SGEMV( TRANS, N, N, -BCOEFI, B, LDA, E( 1, JVEC ), + CALL SGEMV( TRANS, N, N, -BCOEFI, B, LDB, E( 1, JVEC ), $ 1, ONE, WORK( N*JVEC+1 ), 1 ) - CALL SGEMV( TRANS, N, N, -BCOEFR, B, LDA, E( 1, JVEC+1 ), + CALL SGEMV( TRANS, N, N, -BCOEFR, B, LDB, E( 1, JVEC+1 ), $ 1, ONE, WORK( N*JVEC+1 ), 1 ) END IF END IF From 22628f1a6943263bee10dad5fe6a1f12ea572e41 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Mon, 14 Oct 2024 18:59:03 +0200 Subject: [PATCH 4/4] Fix leading dimension for B (Reference-LAPACK PR 1064) --- lapack-netlib/TESTING/EIG/zget52.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/TESTING/EIG/zget52.f b/lapack-netlib/TESTING/EIG/zget52.f index e22939a6c..1e9ebafe5 100644 --- a/lapack-netlib/TESTING/EIG/zget52.f +++ b/lapack-netlib/TESTING/EIG/zget52.f @@ -257,7 +257,7 @@ END IF CALL ZGEMV( TRANS, N, N, ACOEFF, A, LDA, E( 1, JVEC ), 1, $ CZERO, WORK( N*( JVEC-1 )+1 ), 1 ) - CALL ZGEMV( TRANS, N, N, -BCOEFF, B, LDA, E( 1, JVEC ), 1, + CALL ZGEMV( TRANS, N, N, -BCOEFF, B, LDB, E( 1, JVEC ), 1, $ CONE, WORK( N*( JVEC-1 )+1 ), 1 ) 10 CONTINUE *