Mercurial > octave-nkf

diff liboctave/floatLU.cc @ 9694:50db3c5175b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
allow unpacked form of LU
author Jaroslav Hajek <highegg@gmail.com>
date Mon, 05 Oct 2009 15:39:44 +0200
parents eb63fbe60fab
children 6f3ffe11d926
line wrap: on
line diff
--- a/liboctave/floatLU.cc	Mon Oct 05 11:53:41 2009 +0200
+++ b/liboctave/floatLU.cc	Mon Oct 05 15:39:44 2009 +0200
@@ -61,7 +61,8 @@
 
   F77_XFCN (sgetrf, SGETRF, (a_nr, a_nc, tmp_data, a_nr, pipvt, info));
 
-  ipvt -= static_cast<octave_idx_type> (1);
+  for (octave_idx_type i = 0; i < mn; i++)
+    pipvt[i] -= 1;
 }
 
 /*