Mercurial > octave-nkf
diff liboctave/base-lu.cc @ 4811:198f3712c692
[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 Wed Mar 03 18:49:39 2004 +0000 +++ b/liboctave/base-lu.cc Wed Mar 03 19:24:33 2004 +0000 @@ -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); }