From b61193219982fab4b55d3128dd56306d61a51afb Mon Sep 17 00:00:00 2001
From: julie <julielangou@users.noreply.github.com>
Date: Thu, 20 Feb 2014 15:58:23 +0000
Subject: [PATCH] Fix typos found by Jeremy Du Croz

---
 SRC/sbbcsd.f | 12 ++++++------
 SRC/sgegs.f  |  2 +-
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/SRC/sbbcsd.f b/SRC/sbbcsd.f
index 759d331f..26e6a9ff 100644
--- 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 7eac0f45..c4e5bdc9 100644
--- 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 ===========
 *
-- 
2.34.1