Mercurial > hg > octave-lyh

diff liboctave/base-aepbal.h @ 9821:84199c9fc69c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix bug in balance
author Jaroslav Hajek <highegg@gmail.com>
date Tue, 17 Nov 2009 04:08:23 +0100
parents 11844593875a
children 9a308e96194e
line wrap: on
line diff
--- a/liboctave/base-aepbal.h
+++ b/liboctave/base-aepbal.h
@@ -62,16 +62,12 @@
       for (octave_idx_type i = n-1; i >= ihi; i--)
         {
           octave_idx_type j = scale(i) - 1;
-          octave_idx_type k = pv(j);
-          pv(j) = pv(i);
-          pv(i) = k;
+          std::swap (pv(i), pv(j));
         }
-      for (octave_idx_type i = ilo-2; i >= 0; i--)
+      for (octave_idx_type i = 0; i < ilo-1; i++)
         {
           octave_idx_type j = scale(i) - 1;
-          octave_idx_type k = pv(j);
-          pv(j) = pv(i);
-          pv(i) = k;
+          std::swap (pv(i), pv(j));
         }
       
       return pv;