Remove OMP-private variable outside OMP context (LAPACK PR860)

2023-06-26 16:25:08 +02:00
parent 4ecb68554a
commit b9fb63c05e
1 changed files with 1 additions and 1 deletions
--- a/lapack-netlib/SRC/chetrd_hb2st.F
+++ b/lapack-netlib/SRC/chetrd_hb2st.F
@@ -537,7 +537,7 @@ C                 END IF
     $                         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