Browse Source

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

tags/v0.3.24
Martin Kroeker GitHub 2 years ago
parent
commit
a0e413ef05
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
  1. +1
    -1
      lapack-netlib/SRC/ssytrd_sb2st.F

+ 1
- 1
lapack-netlib/SRC/ssytrd_sb2st.F View File

@@ -506,7 +506,7 @@
$ STIND, EDIND, SWEEPID, N, KD, IB, $ STIND, EDIND, SWEEPID, N, KD, IB,
$ WORK ( INDA ), LDA, $ WORK ( INDA ), LDA,
$ HOUS( INDV ), HOUS( INDTAU ), LDV, $ HOUS( INDV ), HOUS( INDTAU ), LDV,
$ WORK( INDW + TID*KD ) )
$ WORK( INDW ) )
#endif #endif
IF ( BLKLASTIND.GE.(N-1) ) THEN IF ( BLKLASTIND.GE.(N-1) ) THEN
STT = STT + 1 STT = STT + 1


Loading…
Cancel
Save