OK. So I got upset and did a

  grep "an singular value" *f
in our SRC files to fix them all.
Here we go.

diff --git a/SRC/clalsd.f b/SRC/clalsd.f
index c67bf5e..2bd9878 100644 (file)
--- a/SRC/clalsd.f
+++ b/SRC/clalsd.f
@@ -97,7 +97,7 @@
 *  INFO   (output) INTEGER
 *         = 0:  successful exit.
 *         < 0:  if INFO = -i, the i-th argument had an illegal value.
-*         > 0:  The algorithm failed to compute an singular value while
+*         > 0:  The algorithm failed to compute a singular value while
 *               working on the submatrix lying in rows and columns
 *               INFO/(N+1) through MOD(INFO,N+1).
 *

diff --git a/SRC/dlalsd.f b/SRC/dlalsd.f
index 3c60147..e7486ad 100644 (file)
--- a/SRC/dlalsd.f
+++ b/SRC/dlalsd.f
@@ -94,7 +94,7 @@
 *  INFO   (output) INTEGER
 *         = 0:  successful exit.
 *         < 0:  if INFO = -i, the i-th argument had an illegal value.
-*         > 0:  The algorithm failed to compute an singular value while
+*         > 0:  The algorithm failed to compute a singular value while
 *               working on the submatrix lying in rows and columns
 *               INFO/(N+1) through MOD(INFO,N+1).
 *

diff --git a/SRC/dlasd1.f b/SRC/dlasd1.f
index 62b4310..0ed0ab6 100644 (file)
--- a/SRC/dlasd1.f
+++ b/SRC/dlasd1.f
@@ -119,7 +119,7 @@
 *  INFO   (output) INTEGER
 *          = 0:  successful exit.
 *          < 0:  if INFO = -i, the i-th argument had an illegal value.
-*          > 0:  if INFO = 1, an singular value did not converge
+*          > 0:  if INFO = 1, a singular value did not converge
 *
 *  Further Details
 *  ===============

diff --git a/SRC/dlasd3.f b/SRC/dlasd3.f
index 75800d8..c1c45a8 100644 (file)
--- a/SRC/dlasd3.f
+++ b/SRC/dlasd3.f
@@ -121,7 +121,7 @@
 *  INFO   (output) INTEGER
 *         = 0:  successful exit.
 *         < 0:  if INFO = -i, the i-th argument had an illegal value.
-*         > 0:  if INFO = 1, an singular value did not converge
+*         > 0:  if INFO = 1, a singular value did not converge
 *
 *  Further Details
 *  ===============

diff --git a/SRC/dlasd6.f b/SRC/dlasd6.f
index 13c0aa8..96fba71 100644 (file)
--- a/SRC/dlasd6.f
+++ b/SRC/dlasd6.f
@@ -191,7 +191,7 @@
 *  INFO   (output) INTEGER
 *          = 0:  successful exit.
 *          < 0:  if INFO = -i, the i-th argument had an illegal value.
-*          > 0:  if INFO = 1, an singular value did not converge
+*          > 0:  if INFO = 1, a singular value did not converge
 *
 *  Further Details
 *  ===============

diff --git a/SRC/dlasd8.f b/SRC/dlasd8.f
index b28a4f0..02f24cc 100644 (file)
--- a/SRC/dlasd8.f
+++ b/SRC/dlasd8.f
@@ -87,7 +87,7 @@
 *  INFO    (output) INTEGER
 *          = 0:  successful exit.
 *          < 0:  if INFO = -i, the i-th argument had an illegal value.
-*          > 0:  if INFO = 1, an singular value did not converge
+*          > 0:  if INFO = 1, a singular value did not converge
 *
 *  Further Details
 *  ===============

diff --git a/SRC/dlasda.f b/SRC/dlasda.f
index 9ae2b6a..c457021 100644 (file)
--- a/SRC/dlasda.f
+++ b/SRC/dlasda.f
@@ -158,7 +158,7 @@
 *  INFO   (output) INTEGER
 *          = 0:  successful exit.
 *          < 0:  if INFO = -i, the i-th argument had an illegal value.
-*          > 0:  if INFO = 1, an singular value did not converge
+*          > 0:  if INFO = 1, a singular value did not converge
 *
 *  Further Details
 *  ===============

diff --git a/SRC/slalsd.f b/SRC/slalsd.f
index c19271a..50cc5d2 100644 (file)
--- a/SRC/slalsd.f
+++ b/SRC/slalsd.f
@@ -94,7 +94,7 @@
 *  INFO   (output) INTEGER
 *         = 0:  successful exit.
 *         < 0:  if INFO = -i, the i-th argument had an illegal value.
-*         > 0:  The algorithm failed to compute an singular value while
+*         > 0:  The algorithm failed to compute a singular value while
 *               working on the submatrix lying in rows and columns
 *               INFO/(N+1) through MOD(INFO,N+1).
 *

diff --git a/SRC/slasd1.f b/SRC/slasd1.f
index d22e51d..9d06275 100644 (file)
--- a/SRC/slasd1.f
+++ b/SRC/slasd1.f
@@ -119,7 +119,7 @@
 *  INFO   (output) INTEGER
 *          = 0:  successful exit.
 *          < 0:  if INFO = -i, the i-th argument had an illegal value.
-*          > 0:  if INFO = 1, an singular value did not converge
+*          > 0:  if INFO = 1, a singular value did not converge
 *
 *  Further Details
 *  ===============

diff --git a/SRC/slasd3.f b/SRC/slasd3.f
index d84f6a7..d17fcf8 100644 (file)
--- a/SRC/slasd3.f
+++ b/SRC/slasd3.f
@@ -121,7 +121,7 @@
 *  INFO   (output) INTEGER
 *         = 0:  successful exit.
 *         < 0:  if INFO = -i, the i-th argument had an illegal value.
-*         > 0:  if INFO = 1, an singular value did not converge
+*         > 0:  if INFO = 1, a singular value did not converge
 *
 *  Further Details
 *  ===============

diff --git a/SRC/slasd6.f b/SRC/slasd6.f
index ad88977..e2bac8b 100644 (file)
--- a/SRC/slasd6.f
+++ b/SRC/slasd6.f
@@ -191,7 +191,7 @@
 *  INFO   (output) INTEGER
 *          = 0:  successful exit.
 *          < 0:  if INFO = -i, the i-th argument had an illegal value.
-*          > 0:  if INFO = 1, an singular value did not converge
+*          > 0:  if INFO = 1, a singular value did not converge
 *
 *  Further Details
 *  ===============

diff --git a/SRC/slasd8.f b/SRC/slasd8.f
index 3b9b9e2..11ed6ff 100644 (file)
--- a/SRC/slasd8.f
+++ b/SRC/slasd8.f
@@ -87,7 +87,7 @@
 *  INFO    (output) INTEGER
 *          = 0:  successful exit.
 *          < 0:  if INFO = -i, the i-th argument had an illegal value.
-*          > 0:  if INFO = 1, an singular value did not converge
+*          > 0:  if INFO = 1, a singular value did not converge
 *
 *  Further Details
 *  ===============

diff --git a/SRC/slasda.f b/SRC/slasda.f
index 23a2503..b7409de 100644 (file)
--- a/SRC/slasda.f
+++ b/SRC/slasda.f
@@ -157,7 +157,7 @@
 *  INFO   (output) INTEGER
 *          = 0:  successful exit.
 *          < 0:  if INFO = -i, the i-th argument had an illegal value.
-*          > 0:  if INFO = 1, an singular value did not converge
+*          > 0:  if INFO = 1, a singular value did not converge
 *
 *  Further Details
 *  ===============

diff --git a/SRC/zlalsd.f b/SRC/zlalsd.f
index b75fe2f..12d541f 100644 (file)
--- a/SRC/zlalsd.f
+++ b/SRC/zlalsd.f
@@ -99,7 +99,7 @@
 *  INFO   (output) INTEGER
 *         = 0:  successful exit.
 *         < 0:  if INFO = -i, the i-th argument had an illegal value.
-*         > 0:  The algorithm failed to compute an singular value while
+*         > 0:  The algorithm failed to compute a singular value while
 *               working on the submatrix lying in rows and columns
 *               INFO/(N+1) through MOD(INFO,N+1).
 *