Update ssytrd_sb2st.FRemove OMP-private variable outside OMP context (LAPACK PR860)

2023-06-26 16:28:15 +02:00
parent 5b69217808
commit a0e413ef05
1 changed files with 1 additions and 1 deletions
--- a/lapack-netlib/SRC/ssytrd_sb2st.F
+++ b/lapack-netlib/SRC/ssytrd_sb2st.F
@@ -506,7 +506,7 @@
     $                         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