Fix typo in comments.

diff --git a/SRC/cgges.f b/SRC/cgges.f
index 6f977b4..cf44d9e 100644 (file)
--- a/SRC/cgges.f
+++ b/SRC/cgges.f
@@ -250,7 +250,7 @@
 *>                      eigenvalues in the Generalized Schur form no
 *>                      longer satisfy SELCTG=.TRUE.  This could also
 *>                      be caused due to scaling.
-*>                =N+3: reordering falied in CTGSEN.
+*>                =N+3: reordering failed in CTGSEN.
 *> \endverbatim
 *
 *  Authors:

diff --git a/SRC/cgghrd.f b/SRC/cgghrd.f
index c86c748..8d62650 100644 (file)
--- a/SRC/cgghrd.f
+++ b/SRC/cgghrd.f
@@ -79,11 +79,11 @@
 *> \param[in] COMPZ
 *> \verbatim
 *>          COMPZ is CHARACTER*1
-*>          = 'N': do not compute Q;
-*>          = 'I': Q is initialized to the unit matrix, and the
-*>                 unitary matrix Q is returned;
-*>          = 'V': Q must contain a unitary matrix Q1 on entry,
-*>                 and the product Q1*Q is returned.
+*>          = 'N': do not compute Z;
+*>          = 'I': Z is initialized to the unit matrix, and the
+*>                 unitary matrix Z is returned;
+*>          = 'V': Z must contain a unitary matrix Z1 on entry,
+*>                 and the product Z1*Z is returned.
 *> \endverbatim
 *>
 *> \param[in] N

diff --git a/SRC/zgges.f b/SRC/zgges.f
index b630570..4dd81fe 100644 (file)
--- a/SRC/zgges.f
+++ b/SRC/zgges.f
@@ -250,7 +250,7 @@
 *>                      eigenvalues in the Generalized Schur form no
 *>                      longer satisfy SELCTG=.TRUE.  This could also
 *>                      be caused due to scaling.
-*>                =N+3: reordering falied in ZTGSEN.
+*>                =N+3: reordering failed in ZTGSEN.
 *> \endverbatim
 *
 *  Authors:

diff --git a/SRC/zgghrd.f b/SRC/zgghrd.f
index 2a42865..a3f9693 100644 (file)
--- a/SRC/zgghrd.f
+++ b/SRC/zgghrd.f
@@ -79,11 +79,11 @@
 *> \param[in] COMPZ
 *> \verbatim
 *>          COMPZ is CHARACTER*1
-*>          = 'N': do not compute Q;
-*>          = 'I': Q is initialized to the unit matrix, and the
-*>                 unitary matrix Q is returned;
-*>          = 'V': Q must contain a unitary matrix Q1 on entry,
-*>                 and the product Q1*Q is returned.
+*>          = 'N': do not compute Z;
+*>          = 'I': Z is initialized to the unit matrix, and the
+*>                 unitary matrix Z is returned;
+*>          = 'V': Z must contain a unitary matrix Z1 on entry,
+*>                 and the product Z1*Z is returned.
 *> \endverbatim
 *>
 *> \param[in] N