From bed71eb1253a56cb4ee0db443d378fbe691938f1 Mon Sep 17 00:00:00 2001
From: Chris Armstrong <christopher.armstrong@arm.com>
Date: Thu, 22 Jun 2023 17:39:12 +0100
Subject: [PATCH] [cz]hetrd_hb2st.F, [sd]sytrd_sb2st.F OpenMP fixes

TID is an unmodified OpenMP private variable,
whose value is undefined in this code path. Since
it's within 'OMP MASTER', safe to assume its
value should be zero.
---
 SRC/chetrd_hb2st.F | 2 +-
 SRC/dsytrd_sb2st.F | 2 +-
 SRC/ssytrd_sb2st.F | 2 +-
 SRC/zhetrd_hb2st.F | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/SRC/chetrd_hb2st.F b/SRC/chetrd_hb2st.F
index e047ab7208..30b01ed83a 100644
--- a/SRC/chetrd_hb2st.F
+++ b/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
diff --git a/SRC/dsytrd_sb2st.F b/SRC/dsytrd_sb2st.F
index fabc107560..bb74dd4914 100644
--- a/SRC/dsytrd_sb2st.F
+++ b/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
diff --git a/SRC/ssytrd_sb2st.F b/SRC/ssytrd_sb2st.F
index faeeff5f48..b8386670a4 100644
--- a/SRC/ssytrd_sb2st.F
+++ b/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
diff --git a/SRC/zhetrd_hb2st.F b/SRC/zhetrd_hb2st.F
index e839271a47..1d39ac9428 100644
--- a/SRC/zhetrd_hb2st.F
+++ b/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