Mercurial > octave-nkf
diff src/DLD-FUNCTIONS/chol.cc @ 7924:4976f66d469b
miscellaneous cleanup
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Fri, 11 Jul 2008 17:59:28 -0400 |
| parents | 87865ed7405f |
| children | 366821c0c01c |
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/chol.cc Fri Jul 11 15:43:10 2008 -0400 +++ b/src/DLD-FUNCTIONS/chol.cc Fri Jul 11 17:59:28 2008 -0400 @@ -181,10 +181,12 @@ octave_idx_type info; SparseCHOL fact (m, info, natural); if (nargout == 3) - if (vecout) - retval(2) = fact.perm (); - else - retval(2) = fact.Q(); + { + if (vecout) + retval(2) = fact.perm (); + else + retval(2) = fact.Q(); + } if (nargout > 1 || info == 0) { @@ -208,10 +210,12 @@ SparseComplexCHOL fact (m, info, natural); if (nargout == 3) - if (vecout) - retval(2) = fact.perm (); - else - retval(2) = fact.Q(); + { + if (vecout) + retval(2) = fact.perm (); + else + retval(2) = fact.Q(); + } if (nargout > 1 || info == 0) { @@ -984,7 +988,7 @@ %! */ -DEFUN_DLD (choldelete, args, nargout, +DEFUN_DLD (choldelete, args, , "-*- texinfo -*-\n\ @deftypefn {Loadable Function} {@var{R1} =} choldelete (@var{R}, @var{j})\n\ Given a Cholesky@tie{}factorization of a real symmetric or complex hermitian\n\ @@ -1116,7 +1120,7 @@ %! assert(norm(R1'*R1 - single(Ac(p,p)),Inf) < 1e1*eps('single')) */ -DEFUN_DLD (cholshift, args, nargout, +DEFUN_DLD (cholshift, args, , "-*- texinfo -*-\n\ @deftypefn {Loadable Function} {@var{R1} =} cholshift (@var{R}, @var{i}, @var{j})\n\ Given a Cholesky@tie{}factorization of a real symmetric or complex hermitian\n\