projects / platform / upstream / lapack.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 5eee138)
removed confusing comments about JMAX, resolves bug0034
authorjames <james@8a072113-8704-0410-8d35-dd094bca7971>
Thu, 17 Feb 2011 20:14:14 +0000 (20:14 +0000)
committerjames <james@8a072113-8704-0410-8d35-dd094bca7971>
Thu, 17 Feb 2011 20:14:14 +0000 (20:14 +0000)
SRC/csptrf.f patch | blob | history
SRC/zsptrf.f patch | blob | history

diff --git a/SRC/csptrf.f b/SRC/csptrf.f
index 3006476..bdd2857 100644 (file)
--- a/SRC/csptrf.f
+++ b/SRC/csptrf.f
@@ -208,9 +208,6 @@
                KP = K
             ELSE
 *
-*              JMAX is the column-index of the largest off-diagonal
-*              element in row IMAX, and ROWMAX is its absolute value
-*
                ROWMAX = ZERO
                JMAX = IMAX
                KX = IMAX*( IMAX+1 ) / 2 + IMAX
diff --git a/SRC/zsptrf.f b/SRC/zsptrf.f
index d539de5..408de26 100644 (file)
--- a/SRC/zsptrf.f
+++ b/SRC/zsptrf.f
@@ -208,9 +208,6 @@
                KP = K
             ELSE
 *
-*              JMAX is the column-index of the largest off-diagonal
-*              element in row IMAX, and ROWMAX is its absolute value
-*
                ROWMAX = ZERO
                JMAX = IMAX
                KX = IMAX*( IMAX+1 ) / 2 + IMAX
Domain: System / Base;