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

This commit is contained in:
Martin Kroeker 2023-06-26 16:29:04 +02:00 committed by GitHub
parent a0e413ef05
commit 49202228d7
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions

View File

@ -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