diff options
| author | Julien Langou <julien.langou@ucdenver.edu> | 2016-12-04 11:15:42 +0100 |
|---|---|---|
| committer | Julien Langou <julien.langou@ucdenver.edu> | 2016-12-04 11:15:42 +0100 |
| commit | 15c3a68b03d58e9da23efe308510124f0f1f9094 (patch) | |
| tree | d666feb104a0d25ee207e514f40f35365291b56a | |
| parent | e88a27d7e5b148a7b783d604aa61458a0ba13b83 (diff) | |
correction of previous commit: WORK needs actuallt to be of size at least 12
| -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 7564b4e5..0de07d22 100644 --- a/SRC/dgetsls.f +++ b/SRC/dgetsls.f @@ -111,7 +111,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is DOUBLE PRECISION array, dimension (MAX(6,LWORK)) +*> WORK is DOUBLE PRECISION array, dimension (MAX(12,LWORK)) *> On exit, if INFO = 0, WORK(1) returns the optimal LWORK, *> and WORK(2) returns the minimum LWORK. *> \endverbatim |