diff options
| author | langou <langou@users.noreply.github.com> | 2013-10-15 02:57:28 +0000 |
|---|---|---|
| committer | langou <langou@users.noreply.github.com> | 2013-10-15 02:57:28 +0000 |
| commit | 6159678a506a95f2d5442c3876c32c7e12b710b3 (patch) | |
| tree | f67a1eef074828dbd006dc0892543dbe47b60bc0 | |
| parent | e9df21deced8368f1ed5db0fb2255f43def68534 (diff) | |
| download | lapack-6159678a506a95f2d5442c3876c32c7e12b710b3.tar.gz lapack-6159678a506a95f2d5442c3876c32c7e12b710b3.tar.bz2 lapack-6159678a506a95f2d5442c3876c32c7e12b710b3.zip | |
Typo in the comment on complex xHSEQR.
The formula:
(QZ)*H*(QZ)**H.
should read:
(QZ)*T*(QZ)**H.
| -rw-r--r-- | SRC/chseqr.f | 2 | ||||
| -rw-r--r-- | SRC/zhseqr.f | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/SRC/chseqr.f b/SRC/chseqr.f index 7f4f977c..9bf84e82 100644 --- a/SRC/chseqr.f +++ b/SRC/chseqr.f @@ -43,7 +43,7 @@ *> Optionally Z may be postmultiplied into an input unitary *> matrix Q so that this routine can give the Schur factorization *> of a matrix A which has been reduced to the Hessenberg form H -*> by the unitary matrix Q: A = Q*H*Q**H = (QZ)*H*(QZ)**H. +*> by the unitary matrix Q: A = Q*H*Q**H = (QZ)*T*(QZ)**H. *> \endverbatim * * Arguments: diff --git a/SRC/zhseqr.f b/SRC/zhseqr.f index e9fe2040..4f1acdff 100644 --- a/SRC/zhseqr.f +++ b/SRC/zhseqr.f @@ -43,7 +43,7 @@ *> Optionally Z may be postmultiplied into an input unitary *> matrix Q so that this routine can give the Schur factorization *> of a matrix A which has been reduced to the Hessenberg form H -*> by the unitary matrix Q: A = Q*H*Q**H = (QZ)*H*(QZ)**H. +*> by the unitary matrix Q: A = Q*H*Q**H = (QZ)*T*(QZ)**H. *> \endverbatim * * Arguments: |