Mercurial > octave
diff src/DLD-FUNCTIONS/luinc.cc @ 11586:12df7854fa7c
strip trailing whitespace from source files
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Thu, 20 Jan 2011 17:24:59 -0500 |
| parents | 01f703952eff |
| children | 1577c6f80926 |
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/luinc.cc Thu Jan 20 17:21:27 2011 -0500 +++ b/src/DLD-FUNCTIONS/luinc.cc Thu Jan 20 17:24:59 2011 -0500 @@ -192,7 +192,7 @@ if (!error_state) { - if (args(0).type_name () == "sparse matrix") + if (args(0).type_name () == "sparse matrix") { SparseMatrix sm = args(0).sparse_matrix_value (); octave_idx_type sm_nr = sm.rows (); @@ -219,8 +219,8 @@ SparseMatrix L = P.transpose () * fact.L (); retval(1) = octave_value (fact.U (), MatrixType (MatrixType::Upper)); - retval(0) = octave_value (L, MatrixType - (MatrixType::Permuted_Lower, + retval(0) = octave_value (L, MatrixType + (MatrixType::Permuted_Lower, sm_nr, fact.row_perm ())); } } @@ -273,9 +273,9 @@ } } } - else if (args(0).type_name () == "sparse complex matrix") + else if (args(0).type_name () == "sparse complex matrix") { - SparseComplexMatrix sm = + SparseComplexMatrix sm = args(0).sparse_complex_matrix_value (); octave_idx_type sm_nr = sm.rows (); octave_idx_type sm_nc = sm.cols (); @@ -292,7 +292,7 @@ case 1: case 2: { - SparseComplexLU fact (sm, Qinit, thresh, false, true, + SparseComplexLU fact (sm, Qinit, thresh, false, true, droptol, milu, udiag); @@ -302,8 +302,8 @@ SparseComplexMatrix L = P.transpose () * fact.L (); retval(1) = octave_value (fact.U (), MatrixType (MatrixType::Upper)); - retval(0) = octave_value (L, MatrixType - (MatrixType::Permuted_Lower, + retval(0) = octave_value (L, MatrixType + (MatrixType::Permuted_Lower, sm_nr, fact.row_perm ())); } }