Typos in comments in /SRC/cbbcsd.f (github issue #49)

See: https://github.com/Reference-LAPACK/lapack/issues/49

diff --git a/SRC/cbbcsd.f b/SRC/cbbcsd.f
index 0e0d89e..35f5b0e 100644 (file)
--- a/SRC/cbbcsd.f
+++ b/SRC/cbbcsd.f
@@ -273,8 +273,8 @@
 *>
 *> \param[out] RWORK
 *> \verbatim
-*>          RWORK is REAL array, dimension (MAX(1,LWORK))
-*>          On exit, if INFO = 0, WORK(1) returns the optimal LWORK.
+*>          RWORK is REAL array, dimension (MAX(1,LRWORK))
+*>          On exit, if INFO = 0, RWORK(1) returns the optimal LRWORK.
 *> \endverbatim
 *>
 *> \param[in] LRWORK

diff --git a/SRC/zbbcsd.f b/SRC/zbbcsd.f
index 0288b13..0c03b9b 100644 (file)
--- a/SRC/zbbcsd.f
+++ b/SRC/zbbcsd.f
@@ -273,8 +273,8 @@
 *>
 *> \param[out] RWORK
 *> \verbatim
-*>          RWORK is DOUBLE PRECISION array, dimension (MAX(1,LWORK))
-*>          On exit, if INFO = 0, WORK(1) returns the optimal LWORK.
+*>          RWORK is DOUBLE PRECISION array, dimension (MAX(1,LRWORK))
+*>          On exit, if INFO = 0, RWORK(1) returns the optimal LRWORK.
 *> \endverbatim
 *>
 *> \param[in] LRWORK