Fix typos found by Jeremy Du Croz

diff --git a/SRC/sbbcsd.f b/SRC/sbbcsd.f
index 759d331f69a75d4a2ce5fb14b02d0336f33b0ff8..26e6a9ff90fe53d8936a4eb59cff15b565fcef42 100644 (file)
--- a/SRC/sbbcsd.f
+++ b/SRC/sbbcsd.f
@@ -240,8 +240,8 @@
 *> \param[out] B21D
 *> \verbatim
 *>          B21D is REAL array, dimension (Q)
-*>          When CBBCSD converges, B21D contains the negative sines of
-*>          THETA(1), ..., THETA(Q). If CBBCSD fails to converge, then
+*>          When SBBCSD converges, B21D contains the negative sines of
+*>          THETA(1), ..., THETA(Q). If SBBCSD fails to converge, then
 *>          B21D contains the diagonal of the partially reduced bottom-left
 *>          block.
 *> \endverbatim
@@ -249,7 +249,7 @@
 *> \param[out] B21E
 *> \verbatim
 *>          B21E is REAL array, dimension (Q-1)
-*>          When CBBCSD converges, B21E contains zeros. If CBBCSD fails
+*>          When SBBCSD converges, B21E contains zeros. If SBBCSD fails
 *>          to converge, then B21E contains the subdiagonal of the
 *>          partially reduced bottom-left block.
 *> \endverbatim
@@ -257,8 +257,8 @@
 *> \param[out] B22D
 *> \verbatim
 *>          B22D is REAL array, dimension (Q)
-*>          When CBBCSD converges, B22D contains the negative sines of
-*>          THETA(1), ..., THETA(Q). If CBBCSD fails to converge, then
+*>          When SBBCSD converges, B22D contains the negative sines of
+*>          THETA(1), ..., THETA(Q). If SBBCSD fails to converge, then
 *>          B22D contains the diagonal of the partially reduced bottom-right
 *>          block.
 *> \endverbatim
@@ -266,7 +266,7 @@
 *> \param[out] B22E
 *> \verbatim
 *>          B22E is REAL array, dimension (Q-1)
-*>          When CBBCSD converges, B22E contains zeros. If CBBCSD fails
+*>          When SBBCSD converges, B22E contains zeros. If SBBCSD fails
 *>          to converge, then B22E contains the subdiagonal of the
 *>          partially reduced bottom-right block.
 *> \endverbatim

diff --git a/SRC/sgegs.f b/SRC/sgegs.f
index 7eac0f45388dbe05ca9f7e0e1e9c0e3d37d17ac9..c4e5bdc943756161e37bb343a6e3dbbc352ce06e 100644 (file)
--- a/SRC/sgegs.f
+++ b/SRC/sgegs.f
@@ -1,4 +1,4 @@
-*> \brief <b> SGEEVX computes the eigenvalues and, optionally, the left and/or right eigenvectors for GE matrices</b>
+*> \brief <b> SGEGS computes the eigenvalues and, optionally, the left and/or right eigenvectors for GE matrices</b>
 *
 *  =========== DOCUMENTATION ===========
 *