diff options
| author | Julie <julie@cs.utk.edu> | 2016-11-02 18:18:22 -0700 |
|---|---|---|
| committer | Julie <julie@cs.utk.edu> | 2016-11-02 18:18:22 -0700 |
| commit | bd47060bcb3a470520622de69ac1426ca4186f5e (patch) | |
| tree | 1c12ce28ddea50d42ccf8cd86dd262b26f552a91 /SRC | |
| parent | 1b84e31ac722588f8f801973d0c539bda0733bab (diff) | |
| download | lapack-bd47060bcb3a470520622de69ac1426ca4186f5e.tar.gz lapack-bd47060bcb3a470520622de69ac1426ca4186f5e.tar.bz2 lapack-bd47060bcb3a470520622de69ac1426ca4186f5e.zip | |
Fix #81 reported by @reeuwijk-altium
The documentation of 'work' in sgesvj states that it should be of size
max(4,M+N), whereas de documentation of 'lwork' in sgesvj states that
it should be 'length of WORK, WORK >= MAX(6,M+N)'.
Diffstat (limited to 'SRC')
| -rw-r--r-- | SRC/dgesvj.f | 2 | ||||
| -rw-r--r-- | SRC/sgesvj.f | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/SRC/dgesvj.f b/SRC/dgesvj.f index 2286b7b7..3e5387e6 100644 --- a/SRC/dgesvj.f +++ b/SRC/dgesvj.f @@ -208,7 +208,7 @@ *> *> \param[in,out] WORK *> \verbatim -*> WORK is DOUBLE PRECISION array, dimension max(4,M+N). +*> WORK is DOUBLE PRECISION array, dimension MAX(6,M+N). *> On entry : *> If JOBU .EQ. 'C' : *> WORK(1) = CTOL, where CTOL defines the threshold for convergence. diff --git a/SRC/sgesvj.f b/SRC/sgesvj.f index e45af020..51270d02 100644 --- a/SRC/sgesvj.f +++ b/SRC/sgesvj.f @@ -208,7 +208,7 @@ *> *> \param[in,out] WORK *> \verbatim -*> WORK is REAL array, dimension max(4,M+N). +*> WORK is REAL array, dimension MAX(6,M+N). *> On entry, *> If JOBU .EQ. 'C' : *> WORK(1) = CTOL, where CTOL defines the threshold for convergence. |