From b9fb63c05e06684653b5e44e8a6a3d5037bbbd89 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Mon, 26 Jun 2023 16:25:08 +0200 Subject: [PATCH 1/4] Remove OMP-private variable outside OMP context (LAPACK PR860) --- lapack-netlib/SRC/chetrd_hb2st.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/SRC/chetrd_hb2st.F b/lapack-netlib/SRC/chetrd_hb2st.F index e047ab7208..30b01ed83a 100644 --- a/lapack-netlib/SRC/chetrd_hb2st.F +++ b/lapack-netlib/SRC/chetrd_hb2st.F @@ -537,7 +537,7 @@ SUBROUTINE CHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB, $ STIND, EDIND, SWEEPID, N, KD, IB, $ WORK ( INDA ), LDA, $ HOUS( INDV ), HOUS( INDTAU ), LDV, - $ WORK( INDW + TID*KD ) ) + $ WORK( INDW ) ) #endif IF ( BLKLASTIND.GE.(N-1) ) THEN STT = STT + 1 From 5b6921780868806c14a9a8123c649f31216a9a9c Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Mon, 26 Jun 2023 16:26:21 +0200 Subject: [PATCH 2/4] Update zhetrd_hb2st.FRemove OMP-private variable outside OMP context (LAPACK PR860) --- lapack-netlib/SRC/zhetrd_hb2st.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/SRC/zhetrd_hb2st.F b/lapack-netlib/SRC/zhetrd_hb2st.F index e839271a47..1d39ac9428 100644 --- a/lapack-netlib/SRC/zhetrd_hb2st.F +++ b/lapack-netlib/SRC/zhetrd_hb2st.F @@ -538,7 +538,7 @@ SUBROUTINE ZHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB, $ STIND, EDIND, SWEEPID, N, KD, IB, $ WORK ( INDA ), LDA, $ HOUS( INDV ), HOUS( INDTAU ), LDV, - $ WORK( INDW + TID*KD ) ) + $ WORK( INDW ) ) #endif IF ( BLKLASTIND.GE.(N-1) ) THEN STT = STT + 1 From a0e413ef054993a79cc7909cbc147e22ec2d60c9 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Mon, 26 Jun 2023 16:28:15 +0200 Subject: [PATCH 3/4] Update ssytrd_sb2st.FRemove OMP-private variable outside OMP context (LAPACK PR860) --- lapack-netlib/SRC/ssytrd_sb2st.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/SRC/ssytrd_sb2st.F b/lapack-netlib/SRC/ssytrd_sb2st.F index faeeff5f48..b8386670a4 100644 --- a/lapack-netlib/SRC/ssytrd_sb2st.F +++ b/lapack-netlib/SRC/ssytrd_sb2st.F @@ -506,7 +506,7 @@ SUBROUTINE SSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB, $ STIND, EDIND, SWEEPID, N, KD, IB, $ WORK ( INDA ), LDA, $ HOUS( INDV ), HOUS( INDTAU ), LDV, - $ WORK( INDW + TID*KD ) ) + $ WORK( INDW ) ) #endif IF ( BLKLASTIND.GE.(N-1) ) THEN STT = STT + 1 From 49202228d75b806c6e1ac7fe63e61b3b6493b856 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Mon, 26 Jun 2023 16:29:04 +0200 Subject: [PATCH 4/4] Remove OMP-private variable outside OMP context (LAPACK PR860) --- lapack-netlib/SRC/dsytrd_sb2st.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/SRC/dsytrd_sb2st.F b/lapack-netlib/SRC/dsytrd_sb2st.F index fabc107560..bb74dd4914 100644 --- a/lapack-netlib/SRC/dsytrd_sb2st.F +++ b/lapack-netlib/SRC/dsytrd_sb2st.F @@ -506,7 +506,7 @@ SUBROUTINE DSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB, $ STIND, EDIND, SWEEPID, N, KD, IB, $ WORK ( INDA ), LDA, $ HOUS( INDV ), HOUS( INDTAU ), LDV, - $ WORK( INDW + TID*KD ) ) + $ WORK( INDW ) ) #endif IF ( BLKLASTIND.GE.(N-1) ) THEN STT = STT + 1