Mercurial > octave-nkf
diff src/DLD-FUNCTIONS/ccolamd.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 | cf5ebc0e47e4 |
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/ccolamd.cc Thu Jan 20 17:21:27 2011 -0500 +++ b/src/DLD-FUNCTIONS/ccolamd.cc Thu Jan 20 17:24:59 2011 -0500 @@ -148,13 +148,13 @@ int nargin = args.length (); int spumoni = 0; - + if (nargout > 2 || nargin < 1 || nargin > 3) usage ("ccolamd: incorrect number of input and/or output arguments"); else { // Get knobs - OCTAVE_LOCAL_BUFFER (double, knobs, CCOLAMD_KNOBS); + OCTAVE_LOCAL_BUFFER (double, knobs, CCOLAMD_KNOBS); CCOLAMD_NAME (_set_defaults) (knobs); // Check for user-passed knobs @@ -163,22 +163,22 @@ NDArray User_knobs = args(1).array_value (); int nel_User_knobs = User_knobs.length (); - if (nel_User_knobs > 0) + if (nel_User_knobs > 0) knobs [CCOLAMD_LU] = (User_knobs (0) != 0); - if (nel_User_knobs > 1) + if (nel_User_knobs > 1) knobs [CCOLAMD_DENSE_ROW] = User_knobs (1); - if (nel_User_knobs > 2) + if (nel_User_knobs > 2) knobs [CCOLAMD_DENSE_COL] = User_knobs (2); - if (nel_User_knobs > 3) + if (nel_User_knobs > 3) knobs [CCOLAMD_AGGRESSIVE] = (User_knobs (3) != 0); - if (nel_User_knobs > 4) + if (nel_User_knobs > 4) spumoni = (User_knobs (4) != 0); // print knob settings if spumoni is set if (spumoni) { octave_stdout << "\nccolamd version " << CCOLAMD_MAIN_VERSION << "." - << CCOLAMD_SUB_VERSION << ", " << CCOLAMD_DATE + << CCOLAMD_SUB_VERSION << ", " << CCOLAMD_DATE << ":\nknobs(1): " << User_knobs (0) << ", order for "; if ( knobs [CCOLAMD_LU] != 0) octave_stdout << "lu(A)\n"; @@ -186,7 +186,7 @@ octave_stdout << "chol(A'*A)\n"; if (knobs [CCOLAMD_DENSE_ROW] >= 0) - octave_stdout << "knobs(2): " << User_knobs (1) + octave_stdout << "knobs(2): " << User_knobs (1) << ", rows with > max(16," << knobs [CCOLAMD_DENSE_ROW] << "*sqrt(size(A,2)))" << " entries removed\n"; @@ -195,7 +195,7 @@ << ", no dense rows removed\n"; if (knobs [CCOLAMD_DENSE_COL] >= 0) - octave_stdout << "knobs(3): " << User_knobs (2) + octave_stdout << "knobs(3): " << User_knobs (2) << ", cols with > max(16," << knobs [CCOLAMD_DENSE_COL] << "*sqrt(size(A)))" << " entries removed\n"; @@ -204,17 +204,17 @@ << ", no dense columns removed\n"; if (knobs [CCOLAMD_AGGRESSIVE] != 0) - octave_stdout << "knobs(4): " << User_knobs(3) + octave_stdout << "knobs(4): " << User_knobs(3) << ", aggressive absorption: yes"; else - octave_stdout << "knobs(4): " << User_knobs(3) + octave_stdout << "knobs(4): " << User_knobs(3) << ", aggressive absorption: no"; - - octave_stdout << "knobs(5): " << User_knobs (4) + + octave_stdout << "knobs(5): " << User_knobs (4) << ", statistics and knobs printed\n"; } } - + octave_idx_type n_row, n_col, nnz; octave_idx_type *ridx, *cidx; SparseComplexMatrix scm; @@ -276,7 +276,7 @@ for (octave_idx_type i = 0; i < cslen; i++) // convert cmember from 1-based to 0-based cmember[i] = static_cast<octave_idx_type>(in_cmember(i) - 1); - + if (cslen != n_col) error ("ccolamd: CMEMBER must be of length equal to #cols of A"); else @@ -318,11 +318,11 @@ out_stats (i) = stats [i] ; retval(1) = out_stats; - // fix stats (5) and (6), for 1-based information on - // jumbled matrix. note that this correction doesn't + // fix stats (5) and (6), for 1-based information on + // jumbled matrix. note that this correction doesn't // occur if symamd returns FALSE - out_stats (CCOLAMD_INFO1) ++ ; - out_stats (CCOLAMD_INFO2) ++ ; + out_stats (CCOLAMD_INFO1) ++ ; + out_stats (CCOLAMD_INFO2) ++ ; } } @@ -403,7 +403,7 @@ int nargin = args.length (); int spumoni = 0; - + if (nargout > 2 || nargin < 1 || nargin > 3) usage ("ccolamd: incorrect number of input and/or output arguments"); else @@ -417,12 +417,12 @@ { NDArray User_knobs = args(1).array_value (); int nel_User_knobs = User_knobs.length (); - - if (nel_User_knobs > 0) + + if (nel_User_knobs > 0) knobs [CCOLAMD_DENSE_ROW] = User_knobs (0); - if (nel_User_knobs > 0) + if (nel_User_knobs > 0) knobs [CCOLAMD_AGGRESSIVE] = User_knobs (1); - if (nel_User_knobs > 1) + if (nel_User_knobs > 1) spumoni = static_cast<int> (User_knobs (2)); // print knob settings if spumoni is set @@ -432,7 +432,7 @@ << CCOLAMD_SUB_VERSION << ", " << CCOLAMD_DATE << "\n"; if (knobs [CCOLAMD_DENSE_ROW] >= 0) - octave_stdout << "knobs(1): " << User_knobs (0) + octave_stdout << "knobs(1): " << User_knobs (0) << ", rows/cols with > max(16," << knobs [CCOLAMD_DENSE_ROW] << "*sqrt(size(A,2)))" << " entries removed\n"; @@ -441,18 +441,18 @@ << ", no dense rows/cols removed\n"; if (knobs [CCOLAMD_AGGRESSIVE] != 0) - octave_stdout << "knobs(2): " << User_knobs(1) + octave_stdout << "knobs(2): " << User_knobs(1) << ", aggressive absorption: yes"; else - octave_stdout << "knobs(2): " << User_knobs(1) + octave_stdout << "knobs(2): " << User_knobs(1) << ", aggressive absorption: no"; - + - octave_stdout << "knobs(3): " << User_knobs (2) + octave_stdout << "knobs(3): " << User_knobs (2) << ", statistics and knobs printed\n"; } } - + octave_idx_type n_row, n_col, nnz; octave_idx_type *ridx, *cidx; SparseMatrix sm; @@ -485,7 +485,7 @@ sm = SparseMatrix (real (args(0).complex_matrix_value ())); else sm = SparseMatrix (args(0).matrix_value ()); - + n_row = sm.rows (); n_col = sm.cols (); nnz = sm.nnz (); @@ -511,11 +511,11 @@ for (octave_idx_type i = 0; i < cslen; i++) // convert cmember from 1-based to 0-based cmember[i] = static_cast<octave_idx_type>(in_cmember(i) - 1); - + if (cslen != n_col) error ("csymamd: CMEMBER must be of length equal to #cols of A"); else - if (!CSYMAMD_NAME () (n_col, ridx, cidx, perm, knobs, stats, + if (!CSYMAMD_NAME () (n_col, ridx, cidx, perm, knobs, stats, &calloc, &free, cmember, -1)) { CSYMAMD_NAME (_report) (stats) ; @@ -525,7 +525,7 @@ } else { - if (!CSYMAMD_NAME () (n_col, ridx, cidx, perm, knobs, stats, + if (!CSYMAMD_NAME () (n_col, ridx, cidx, perm, knobs, stats, &calloc, &free, 0, -1)) { CSYMAMD_NAME (_report) (stats) ; @@ -549,11 +549,11 @@ out_stats (i) = stats [i] ; retval(1) = out_stats; - // fix stats (5) and (6), for 1-based information on - // jumbled matrix. note that this correction doesn't + // fix stats (5) and (6), for 1-based information on + // jumbled matrix. note that this correction doesn't // occur if symamd returns FALSE - out_stats (CCOLAMD_INFO1) ++ ; - out_stats (CCOLAMD_INFO2) ++ ; + out_stats (CCOLAMD_INFO1) ++ ; + out_stats (CCOLAMD_INFO2) ++ ; } // print stats if spumoni > 0 @@ -568,11 +568,11 @@ out_stats (i) = stats [i] ; retval(1) = out_stats; - // fix stats (5) and (6), for 1-based information on - // jumbled matrix. note that this correction doesn't + // fix stats (5) and (6), for 1-based information on + // jumbled matrix. note that this correction doesn't // occur if symamd returns FALSE - out_stats (CCOLAMD_INFO1) ++ ; - out_stats (CCOLAMD_INFO2) ++ ; + out_stats (CCOLAMD_INFO1) ++ ; + out_stats (CCOLAMD_INFO2) ++ ; } }