From 19ae0b88353aae83884de39906dd75c1dcdd8d2e Mon Sep 17 00:00:00 2001 From: langou Date: Mon, 21 Jun 2010 21:06:42 +0000 Subject: [PATCH] OK. So I got upset and did a grep "an singular value" *f in our SRC files to fix them all. Here we go. --- SRC/clalsd.f | 2 +- SRC/dlalsd.f | 2 +- SRC/dlasd1.f | 2 +- SRC/dlasd3.f | 2 +- SRC/dlasd6.f | 2 +- SRC/dlasd8.f | 2 +- SRC/dlasda.f | 2 +- SRC/slalsd.f | 2 +- SRC/slasd1.f | 2 +- SRC/slasd3.f | 2 +- SRC/slasd6.f | 2 +- SRC/slasd8.f | 2 +- SRC/slasda.f | 2 +- SRC/zlalsd.f | 2 +- 14 files changed, 14 insertions(+), 14 deletions(-) diff --git a/SRC/clalsd.f b/SRC/clalsd.f index c67bf5e..2bd9878 100644 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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). * -- 2.7.4