diff options
| author | Julien Langou <julien.langou@ucdenver.edu> | 2016-12-04 11:07:50 +0100 |
|---|---|---|
| committer | Julien Langou <julien.langou@ucdenver.edu> | 2016-12-04 11:07:50 +0100 |
| commit | e88a27d7e5b148a7b783d604aa61458a0ba13b83 (patch) | |
| tree | f3f369aa5805cca83e7e0d104044cd78bd887c81 | |
| parent | 6ead7cb32fd6edb658bc5d1460d60671fa993a47 (diff) | |
WORK needs to be at least of size 6
| -rw-r--r-- | SRC/dgetsls.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/dgetsls.f b/SRC/dgetsls.f index eb7bc33e..7564b4e5 100644 --- 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 |