Mercurial > octave

changeset 24353:b153e3a70cfd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
avoid shadowed variable warnings from GCC * eigs-base.cc (EigsRealNonSymmetricMatrix, EigsRealNonSymmetricMatrixShift, EigsRealNonSymmetricFunc): Use ii and jj as loop counters to avoid shadowed variable warnings.
author John W. Eaton <jwe@octave.org>
date Thu, 30 Nov 2017 16:31:55 -0500
parents bff8e3884a88
children 11d3603dd880
files liboctave/numeric/eigs-base.cc
diffstat 1 files changed, 18 insertions(+), 18 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/numeric/eigs-base.cc	Thu Nov 30 15:10:12 2017 -0500
+++ b/liboctave/numeric/eigs-base.cc	Thu Nov 30 16:31:55 2017 -0500
@@ -1816,17 +1816,17 @@
             }
           if (have_cplx_eig)
             {
-              for (F77_INT i = ip(4); i < k; i++)
-                for (F77_INT j = 0; j < n; j++)
-                  eig_vec(j,i) =
+              for (F77_INT ii = ip(4); ii < k; ii++)
+                for (F77_INT jj = 0; jj < n; jj++)
+                  eig_vec(jj,ii) =
                     Complex (octave::numeric_limits<double>::NaN (),
                              octave::numeric_limits<double>::NaN ());
             }
           else
             {
-              for (F77_INT i = ip(4); i < k; i++)
-                for (F77_INT j = 0; j < n; j++)
-                  eig_vec(j,i) =
+              for (F77_INT ii = ip(4); ii < k; ii++)
+                for (F77_INT jj = 0; jj < n; jj++)
+                  eig_vec(jj,ii) =
                     Complex (octave::numeric_limits<double>::NaN (), 0.);
             }
           if (note3)
@@ -2198,17 +2198,17 @@
             }
           if (have_cplx_eig)
             {
-              for (F77_INT i = ip(4); i < k; i++)
-                for (F77_INT j = 0; j < n; j++)
-                  eig_vec(j,i) =
+              for (F77_INT ii = ip(4); ii < k; ii++)
+                for (F77_INT jj = 0; jj < n; jj++)
+                  eig_vec(jj,ii) =
                     Complex (octave::numeric_limits<double>::NaN (),
                              octave::numeric_limits<double>::NaN ());
             }
           else
             {
-              for (F77_INT i = ip(4); i < k; i++)
-                for (F77_INT j = 0; j < n; j++)
-                  eig_vec(j,i) =
+              for (F77_INT ii = ip(4); ii < k; ii++)
+                for (F77_INT jj = 0; jj < n; jj++)
+                  eig_vec(jj,ii) =
                     Complex (octave::numeric_limits<double>::NaN (), 0.);
             }
         }
@@ -2525,17 +2525,17 @@
             }
           if (have_cplx_eig)
             {
-              for (F77_INT i = ip(4); i < k; i++)
-                for (F77_INT j = 0; j < n; j++)
-                  eig_vec(j,i) =
+              for (F77_INT ii = ip(4); ii < k; ii++)
+                for (F77_INT jj = 0; jj < n; jj++)
+                  eig_vec(jj,ii) =
                     Complex (octave::numeric_limits<double>::NaN (),
                              octave::numeric_limits<double>::NaN ());
             }
           else
             {
-              for (F77_INT i = ip(4); i < k; i++)
-                for (F77_INT j = 0; j < n; j++)
-                  eig_vec(j,i) =
+              for (F77_INT ii = ip(4); ii < k; ii++)
+                for (F77_INT jj = 0; jj < n; jj++)
+                  eig_vec(jj,ii) =
                     Complex (octave::numeric_limits<double>::NaN (), 0.);
             }
         }