Correct typos. See email from Berend Hasselman.

diff --git a/SRC/cgels.f b/SRC/cgels.f
index 05447cb..17a8c34 100644 (file)
--- a/SRC/cgels.f
+++ b/SRC/cgels.f
@@ -49,7 +49,7 @@
 *>    an underdetermined system A * X = B.
 *>
 *> 3. If TRANS = 'C' and m >= n:  find the minimum norm solution of
-*>    an undetermined system A**H * X = B.
+*>    an underdetermined system A**H * X = B.
 *>
 *> 4. If TRANS = 'C' and m < n:  find the least squares solution of
 *>    an overdetermined system, i.e., solve the least squares problem
@@ -380,7 +380,7 @@
 *
          ELSE
 *
-*           Overdetermined system of equations A**H * X = B
+*           Underdetermined system of equations A**T * X = B
 *
 *           B(1:N,1:NRHS) := inv(R**H) * B(1:N,1:NRHS)
 *

diff --git a/SRC/dgels.f b/SRC/dgels.f
index e3206f1..d5c9287 100644 (file)
--- a/SRC/dgels.f
+++ b/SRC/dgels.f
@@ -49,7 +49,7 @@
 *>    an underdetermined system A * X = B.
 *>
 *> 3. If TRANS = 'T' and m >= n:  find the minimum norm solution of
-*>    an undetermined system A**T * X = B.
+*>    an underdetermined system A**T * X = B.
 *>
 *> 4. If TRANS = 'T' and m < n:  find the least squares solution of
 *>    an overdetermined system, i.e., solve the least squares problem
@@ -379,7 +379,7 @@
 *
          ELSE
 *
-*           Overdetermined system of equations A**T * X = B
+*           Underdetermined system of equations A**T * X = B
 *
 *           B(1:N,1:NRHS) := inv(R**T) * B(1:N,1:NRHS)
 *

diff --git a/SRC/sgels.f b/SRC/sgels.f
index 08881b5..514d3c9 100644 (file)
--- a/SRC/sgels.f
+++ b/SRC/sgels.f
@@ -49,7 +49,7 @@
 *>    an underdetermined system A * X = B.
 *>
 *> 3. If TRANS = 'T' and m >= n:  find the minimum norm solution of
-*>    an undetermined system A**T * X = B.
+*>    an underdetermined system A**T * X = B.
 *>
 *> 4. If TRANS = 'T' and m < n:  find the least squares solution of
 *>    an overdetermined system, i.e., solve the least squares problem
@@ -379,7 +379,7 @@
 *
          ELSE
 *
-*           Overdetermined system of equations A**T * X = B
+*           Underdetermined system of equations A**T * X = B
 *
 *           B(1:N,1:NRHS) := inv(R**T) * B(1:N,1:NRHS)
 *

diff --git a/SRC/zgels.f b/SRC/zgels.f
index 6814f22..2e0ebc9 100644 (file)
--- a/SRC/zgels.f
+++ b/SRC/zgels.f
@@ -49,7 +49,7 @@
 *>    an underdetermined system A * X = B.
 *>
 *> 3. If TRANS = 'C' and m >= n:  find the minimum norm solution of
-*>    an undetermined system A**H * X = B.
+*>    an underdetermined system A**H * X = B.
 *>
 *> 4. If TRANS = 'C' and m < n:  find the least squares solution of
 *>    an overdetermined system, i.e., solve the least squares problem
@@ -380,7 +380,7 @@
 *
          ELSE
 *
-*           Overdetermined system of equations A**H * X = B
+*           Underdetermined system of equations A**T * X = B
 *
 *           B(1:N,1:NRHS) := inv(R**H) * B(1:N,1:NRHS)
 *