Typo in the comment on complex xHSEQR.

The formula:
	(QZ)*H*(QZ)**H.
should read:
	(QZ)*T*(QZ)**H.

diff --git a/SRC/chseqr.f b/SRC/chseqr.f
index 7f4f977..9bf84e8 100644 (file)
--- 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 e9fe204..4f1acdf 100644 (file)
--- 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: