Mercurial > hg > octave-lyh
changeset 3550:bc492f4a94cb
[project @ 2000-02-03 01:36:30 by jwe]
| author | jwe |
|---|---|
| date | Thu, 03 Feb 2000 01:36:31 +0000 |
| parents | 03025e79d8b9 |
| children | 4833e231e05b |
| files | src/ChangeLog src/DLD-FUNCTIONS/qz.cc |
| diffstat | 2 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,8 @@ 2000-02-02 John W. Eaton <jwe@bevo.che.wisc.edu> + * DLD-FUNCTIONS/qz.cc (Fqz): Use Array<int> class instead of + trying to create automatic int array with variable size. + * variables.cc (F__dump_symbol_info__): Fix continuation char. * DLD-FUNCTIONS/besselj.cc (Fairy, Fbesselj): Likewise. * DLD-FUNCTIONS/chol.cc (Fchol): Likewise.
--- a/src/DLD-FUNCTIONS/qz.cc +++ b/src/DLD-FUNCTIONS/qz.cc @@ -604,9 +604,9 @@ // checked the options at the top). panic_impossible (); break; - } + } - int ndim, fail, ind[nn]; + int ndim, fail; double inf_norm; F77_XFCN (xdlange, XDLANGE, @@ -635,9 +635,12 @@ std::cout << std::endl; #endif + Array<int> ind (nn); + F77_XFCN (dsubsp, DSUBSP, (nn, nn, aa.fortran_vec(), bb.fortran_vec(), - ZZ.fortran_vec(), sort_test, eps, ndim, fail, ind)); + ZZ.fortran_vec(), sort_test, eps, ndim, fail, + ind.fortran_vec ())); #ifdef DEBUG std::cout << "qz: back from dsubsp: aa=" << std::endl;