Remove OMP-private variable outside OMP context (LAPACK PR860)
This commit is contained in:
parent
4ecb68554a
commit
b9fb63c05e
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue