Mercurial > octave
diff liboctave/dbleCHOL.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 | 57632dea2446 |
children | 72c96de7a403 |
line wrap: on
line diff
--- a/liboctave/dbleCHOL.cc Thu Jan 20 17:21:27 2011 -0500 +++ b/liboctave/dbleCHOL.cc Thu Jan 20 17:24:59 2011 -0500 @@ -55,7 +55,7 @@ F77_FUNC (dpocon, DPOCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, double*, const octave_idx_type&, const double&, - double&, double*, octave_idx_type*, + double&, double*, octave_idx_type*, octave_idx_type& F77_CHAR_ARG_LEN_DECL); #ifdef HAVE_QRUPDATE @@ -113,7 +113,7 @@ // Calculate the norm of the matrix, for later use. double anorm = 0; - if (calc_cond) + if (calc_cond) anorm = xnorm (a, 1); F77_XFCN (dpotrf, DPOTRF, (F77_CONST_CHAR_ARG2 ("U", 1), @@ -123,7 +123,7 @@ xrcond = 0.0; if (info > 0) chol_mat.resize (info - 1, info - 1); - else if (calc_cond) + else if (calc_cond) { octave_idx_type dpocon_info = 0; @@ -136,7 +136,7 @@ n, anorm, xrcond, pz, piz, dpocon_info F77_CHAR_ARG_LEN (1))); - if (dpocon_info != 0) + if (dpocon_info != 0) info = -1; } @@ -192,7 +192,7 @@ void CHOL::set (const Matrix& R) { - if (R.is_square ()) + if (R.is_square ()) chol_mat = R; else (*current_liboctave_error_handler) ("CHOL requires square matrix"); @@ -246,7 +246,7 @@ octave_idx_type info = -1; octave_idx_type n = chol_mat.rows (); - + if (u.length () != n + 1) (*current_liboctave_error_handler) ("cholinsert: dimension mismatch"); else if (j < 0 || j > n) @@ -270,14 +270,14 @@ CHOL::delete_sym (octave_idx_type j) { octave_idx_type n = chol_mat.rows (); - + if (j < 0 || j > n-1) (*current_liboctave_error_handler) ("choldelete: index out of range"); else { OCTAVE_LOCAL_BUFFER (double, w, n); - F77_XFCN (dchdex, DCHDEX, (n, chol_mat.fortran_vec (), chol_mat.rows (), + F77_XFCN (dchdex, DCHDEX, (n, chol_mat.fortran_vec (), chol_mat.rows (), j + 1, w)); chol_mat.resize (n-1, n-1); @@ -288,8 +288,8 @@ CHOL::shift_sym (octave_idx_type i, octave_idx_type j) { octave_idx_type n = chol_mat.rows (); - - if (i < 0 || i > n-1 || j < 0 || j > n-1) + + if (i < 0 || i > n-1 || j < 0 || j > n-1) (*current_liboctave_error_handler) ("cholshift: index out of range"); else { @@ -311,7 +311,7 @@ if (u.length () == n) { - init (chol_mat.transpose () * chol_mat + init (chol_mat.transpose () * chol_mat + Matrix (u) * Matrix (u).transpose (), false); } else @@ -341,7 +341,7 @@ info = 2; else { - info = init (chol_mat.transpose () * chol_mat + info = init (chol_mat.transpose () * chol_mat - Matrix (u) * Matrix (u).transpose (), false); if (info) info = 1; } @@ -416,7 +416,7 @@ octave_idx_type n = chol_mat.rows (); - if (i < 0 || i > n-1 || j < 0 || j > n-1) + if (i < 0 || i > n-1 || j < 0 || j > n-1) (*current_liboctave_error_handler) ("cholshift: index out of range"); else {