diff options
| -rw-r--r-- | SRC/dgesdd.f | 2 | ||||
| -rw-r--r-- | SRC/sgesdd.f | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/SRC/dgesdd.f b/SRC/dgesdd.f index 6fc75332..886d9b70 100644 --- a/SRC/dgesdd.f +++ b/SRC/dgesdd.f @@ -175,7 +175,7 @@ *> LWORK >= 3*min(M,N) + *> max(max(M,N),5*min(M,N)*min(M,N)+4*min(M,N)). *> If JOBZ = 'S' or 'A' -*> LWORK >= min(M,N)*(6+4*min(M,N))+max(M,N) +*> LWORK >= min(M,N)*(7+4*min(M,N)) *> For good performance, LWORK should generally be larger. *> If LWORK = -1 but other input arguments are legal, WORK(1) *> returns the optimal LWORK. diff --git a/SRC/sgesdd.f b/SRC/sgesdd.f index 746fd3ba..6dccb368 100644 --- a/SRC/sgesdd.f +++ b/SRC/sgesdd.f @@ -175,7 +175,7 @@ *> LWORK >= 3*min(M,N) + *> max(max(M,N),5*min(M,N)*min(M,N)+4*min(M,N)). *> If JOBZ = 'S' or 'A' -*> LWORK >= min(M,N)*(6+4*min(M,N))+max(M,N) +*> LWORK >= min(M,N)*(7+4*min(M,N)) *> For good performance, LWORK should generally be larger. *> If LWORK = -1 but other input arguments are legal, WORK(1) *> returns the optimal LWORK. |