Bug report 1/2 from Lawrence Mulholland (NAG)
authorJulien Langou <julien.langou@ucdenver.edu>
Thu, 26 May 2016 00:55:24 +0000 (18:55 -0600)
committerJulien Langou <julien.langou@ucdenver.edu>
Thu, 26 May 2016 00:55:24 +0000 (18:55 -0600)
commitcba25462db85435150ccb2be2b1a372f47c5e217
tree81787d43a905a92f0ac63cc5a1a0965e077df04a
parent765ec982cc6bd6940744b02e08b81bae71065f40
Bug report 1/2 from Lawrence Mulholland (NAG)
See: http://icl.cs.utk.edu/lapack-forum/viewtopic.php?f=13&t=4970
Posted on Wed May 25th

From Lawrence
=============
In dsbgvd.f (ssbgvd.f)

with the case WANTZ = .False.
LWMIN = 2*N (line 282)

But, (line 140)

Call dsbgst(.....,work(INDWRK), iinfo)

where INDWRK = N+1 and dsbgst requires a workspace of 2*N

Therefore either
i. line 282 should be LWMIN = 3*N; or,
ii. line 140 should use WORK(INDE)

From Julien
===========

Let us go with fix (ii) then.
Note: I simply used "WORK", not "WORK(INDE)"
SRC/dsbgvd.f
SRC/ssbgvd.f