Merge pull request #4107 from martin-frbg/lapack860
Remove OMP-private variable outside OpenMP context (Reference-LAPACK PR 860)
This commit is contained in:
commit
dc2439108d
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -538,7 +538,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