Mercurial > octave-nkf
comparison src/DLD-FUNCTIONS/quadcc.cc @ 13219:cf5ebc0e47e4
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 |