diff options
| author | langou <langou@users.noreply.github.com> | 2014-06-27 11:46:34 +0000 |
|---|---|---|
| committer | langou <langou@users.noreply.github.com> | 2014-06-27 11:46:34 +0000 |
| commit | 93617f591ffa3d8954fc32a2718600f8ea7ea738 (patch) | |
| tree | 90c854e94f1106128b1b17b5f0366dd22f504f72 /SRC | |
| parent | c911488e784d7373d5fd32f760755f22b4c2f72a (diff) | |
| download | lapack-93617f591ffa3d8954fc32a2718600f8ea7ea738.tar.gz lapack-93617f591ffa3d8954fc32a2718600f8ea7ea738.tar.bz2 lapack-93617f591ffa3d8954fc32a2718600f8ea7ea738.zip | |
Bug in comments on array size reported by a Sergey Kuznetsov from Intel.
The size of array RWORK in {c,z}dbsqr was given incorrectly.
Previous version for cbdsqr.f read
RWORK is REAL array, dimension (2*N)
if NCVT = NRU = NCC = 0, (max(1, 4*N-4)) otherwise
Now reads
RWORK is REAL array, dimension (4*N)
Diffstat (limited to 'SRC')
| -rw-r--r-- | SRC/cbdsqr.f | 3 | ||||
| -rw-r--r-- | SRC/zbdsqr.f | 3 |
2 files changed, 2 insertions, 4 deletions
diff --git a/SRC/cbdsqr.f b/SRC/cbdsqr.f index e3c1c37d..a1377eab 100644 --- a/SRC/cbdsqr.f +++ b/SRC/cbdsqr.f @@ -166,8 +166,7 @@ *> *> \param[out] RWORK *> \verbatim -*> RWORK is REAL array, dimension (2*N) -*> if NCVT = NRU = NCC = 0, (max(1, 4*N-4)) otherwise +*> RWORK is REAL array, dimension (4*N) *> \endverbatim *> *> \param[out] INFO diff --git a/SRC/zbdsqr.f b/SRC/zbdsqr.f index 5ccf8900..8c5c5d9b 100644 --- a/SRC/zbdsqr.f +++ b/SRC/zbdsqr.f @@ -166,8 +166,7 @@ *> *> \param[out] RWORK *> \verbatim -*> RWORK is DOUBLE PRECISION array, dimension (2*N) -*> if NCVT = NRU = NCC = 0, (max(1, 4*N-4)) otherwise +*> RWORK is DOUBLE PRECISION array, dimension (4*N) *> \endverbatim *> *> \param[out] INFO |