From: Julien Langou <julien.langou@ucdenver.edu>
Date: Sat, 26 Nov 2016 08:29:22 +0000 (+0100)
Subject: Correct typos. See email from Berend Hasselman.
X-Git-Tag: accepted/tizen/5.0/unified/20181102.024111~93
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=cad7bf5a44d6a69e4708a0f26a9d62c2e882caae;p=platform%2Fupstream%2Flapack.git

Correct typos. See email from Berend Hasselman.
---

diff --git a/SRC/cgels.f b/SRC/cgels.f
index 05447cb..17a8c34 100644
--- 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
--- 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
--- 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
--- 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)
 *