Mercurial > hg > octave-nkf

diff liboctave/base-lu.cc @ 4811:198f3712c692

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-03-03 19:24:33 by jwe]
author jwe
date Wed, 03 Mar 2004 19:24:33 +0000
parents d53c33d93440
children e35b034d3523
line wrap: on
line diff
--- a/liboctave/base-lu.cc
+++ b/liboctave/base-lu.cc
@@ -42,7 +42,9 @@
 
   for (int i = 0; i < a_nr; i++)
     {
-      l.xelem (i, i) = 1.0;
+      if (i < a_nc)
+	l.xelem (i, i) = 1.0;
+
       for (int j = 0; j < (i < a_nc ? i : a_nc); j++)
 	l.xelem (i, j) = a_fact.xelem (i, j);
     }