diff --git a/SRC/cbdsqr.f b/SRC/cbdsqr.f
index e3b11a5cb4..66f8065c4a 100644
--- a/SRC/cbdsqr.f
+++ b/SRC/cbdsqr.f
@@ -166,7 +166,9 @@
 *>
 *> \param[out] RWORK
 *> \verbatim
-*>          RWORK is REAL array, dimension (4*(N-1))
+*>          RWORK is REAL array, dimension (LRWORK)
+*>          LRWORK = 4*N, if NCVT = NRU = NCC = 0, and
+*>          LRWORK = 4*(N-1), otherwise
 *> \endverbatim
 *>
 *> \param[out] INFO
diff --git a/SRC/dbdsqr.f b/SRC/dbdsqr.f
index 4b6fe20417..a9673cadc6 100644
--- a/SRC/dbdsqr.f
+++ b/SRC/dbdsqr.f
@@ -166,7 +166,9 @@
 *>
 *> \param[out] WORK
 *> \verbatim
-*>          WORK is DOUBLE PRECISION array, dimension (4*(N-1))
+*>          WORK is DOUBLE PRECISION array, dimension (LWORK)
+*>          LWORK = 4*N, if NCVT = NRU = NCC = 0, and
+*>          LWORK = 4*(N-1), otherwise
 *> \endverbatim
 *>
 *> \param[out] INFO
diff --git a/SRC/sbdsqr.f b/SRC/sbdsqr.f
index 27b434363e..1270e78f8e 100644
--- a/SRC/sbdsqr.f
+++ b/SRC/sbdsqr.f
@@ -166,7 +166,9 @@
 *>
 *> \param[out] WORK
 *> \verbatim
-*>          WORK is REAL array, dimension (4*(N-1))
+*>          WORK is REAL array, dimension (LWORK)
+*>          LWORK = 4*N, if NCVT = NRU = NCC = 0, and
+*>          LWORK = 4*(N-1), otherwise
 *> \endverbatim
 *>
 *> \param[out] INFO
diff --git a/SRC/zbdsqr.f b/SRC/zbdsqr.f
index c8ba35fa68..890180be28 100644
--- a/SRC/zbdsqr.f
+++ b/SRC/zbdsqr.f
@@ -166,7 +166,9 @@
 *>
 *> \param[out] RWORK
 *> \verbatim
-*>          RWORK is DOUBLE PRECISION array, dimension (4*(N-1))
+*>          RWORK is DOUBLE PRECISION array, dimension (LRWORK)
+*>          LRWORK = 4*N, if NCVT = NRU = NCC = 0, and
+*>          LRWORK = 4*(N-1), otherwise
 *> \endverbatim
 *>
 *> \param[out] INFO