diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-04-05 15:16:30 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-04-05 15:16:30 +0000 |
| commit | b7b9415fcda0ecc22cbfb802f9de69612bbbefd6 (patch) | |
| tree | ab0ceabcc177366d5580110519a4821ceda05145 /SRC/dgesvd.f | |
| parent | d9d50d133bdf00870f37a31faefea58f0926a0a6 (diff) | |
| download | lapack-b7b9415fcda0ecc22cbfb802f9de69612bbbefd6.tar.gz lapack-b7b9415fcda0ecc22cbfb802f9de69612bbbefd6.tar.bz2 lapack-b7b9415fcda0ecc22cbfb802f9de69612bbbefd6.zip | |
Correct bug0077 : [DS]GESVD Minimum Worksize comments need clarification
Depending on the PATH, the minimum workspace is not the same.
Diffstat (limited to 'SRC/dgesvd.f')
| -rw-r--r-- | SRC/dgesvd.f | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/SRC/dgesvd.f b/SRC/dgesvd.f index 0598dca1..79debeeb 100644 --- a/SRC/dgesvd.f +++ b/SRC/dgesvd.f @@ -115,7 +115,10 @@ * * LWORK (input) INTEGER * The dimension of the array WORK. -* LWORK >= MAX(1,3*MIN(M,N)+MAX(M,N),5*MIN(M,N)). +* LWORK >= MAX(1,5*MIN(M,N)) for the paths (see comments inside code): +* - PATH 1 (M much larger than N, JOBU='N') +* - PATH 1t (N much larger than M, JOBVT='N') +* LWORK >= MAX(1,3*MIN(M,N)+MAX(M,N),5*MIN(M,N)) for the other paths * For good performance, LWORK should generally be larger. * * If LWORK = -1, then a workspace query is assumed; the routine |