WORK needs to be at least of size 6

diff --git a/SRC/dgetsls.f b/SRC/dgetsls.f
index eb7bc33..7564b4e 100644 (file)
--- a/SRC/dgetsls.f
+++ b/SRC/dgetsls.f
@@ -111,7 +111,7 @@
 *>
 *> \param[out] WORK
 *> \verbatim
-*>          WORK is DOUBLE PRECISION array, dimension (MAX(1,LWORK))
+*>          WORK is DOUBLE PRECISION array, dimension (MAX(6,LWORK))
 *>          On exit, if INFO = 0, WORK(1) returns the optimal LWORK,
 *>          and WORK(2) returns the minimum LWORK.
 *> \endverbatim