Mercurial > octave

comparison src/DLD-FUNCTIONS/quadcc.cc @ 13219:cf5ebc0e47e4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix warnings for unused but set variables and shadowed variables * quadcc.cc (Fquadcc): Delete unused variable err_excess. * find.cc (find_nonzero_elem_idx (const PermMatrix&, int, octave_idx_type, int)): Delete unused variable end_nc. * eigs.cc (Feigs): Delete unused variable bmat. * conv2.cc (Fconvn): Delete unused variable separable. * colamd.cc (Fetree, Fsymamd): Delete unused variable nnz. * ccolamd.cc (Fcsymamd): Delete unused variable nnz. * pt-pr-code.cc (tree_print_code::visit_index_expression): Delete unused variable expr_has_parens. * pt-mat.cc (tree_matrix::rvalue1): Delete unused variables all_complex_p and all_strings_p (tm_const::init): Eliminate shadowed variables. * gl-render.cc (opengl_renderer::draw_image): Delete unused variable ok.
author John W. Eaton <jwe@octave.org>
date Sun, 25 Sep 2011 16:52:23 -0400
parents e81ddf9cacd5
children 72c96de7a403
comparison
equal deleted inserted replaced
13218:01b7a60e2ff0 13219:cf5ebc0e47e4
1567 /* Stuff we will need to call the integrand. */ 1567 /* Stuff we will need to call the integrand. */
1568 octave_value_list fargs, fvals; 1568 octave_value_list fargs, fvals;
1569 1569
1570 /* Actual variables (as opposed to constants above). */ 1570 /* Actual variables (as opposed to constants above). */
1571 double m, h, ml, hl, mr, hr, temp; 1571 double m, h, ml, hl, mr, hr, temp;
1572 double igral, err, igral_final, err_final, err_excess; 1572 double igral, err, igral_final, err_final;
1573 int nivals, neval = 0; 1573 int nivals, neval = 0;
1574 int i, j, d, split, t; 1574 int i, j, d, split, t;
1575 int nnans, nans[33]; 1575 int nnans, nans[33];
1576 cquad_ival *iv, *ivl, *ivr; 1576 cquad_ival *iv, *ivl, *ivr;
1577 double nc, ncdiff; 1577 double nc, ncdiff;
1764 1764
1765 1765
1766 /* Initialize some global values. */ 1766 /* Initialize some global values. */
1767 igral_final = 0.0; 1767 igral_final = 0.0;
1768 err_final = 0.0; 1768 err_final = 0.0;
1769 err_excess = 0.0;
1770 1769
1771 1770
1772 /* Main loop. */ 1771 /* Main loop. */
1773 while (nivals > 0 && err > 0.0 && err > fabs (igral) * tol 1772 while (nivals > 0 && err > 0.0 && err > fabs (igral) * tol
1774 && !(err_final > fabs (igral) * tol 1773 && !(err_final > fabs (igral) * tol