Mercurial > octave
diff src/DLD-FUNCTIONS/qz.cc @ 3550:bc492f4a94cb
[project @ 2000-02-03 01:36:30 by jwe]
| author | jwe |
|---|---|
| date | Thu, 03 Feb 2000 01:36:31 +0000 |
| parents | 0ff7323dab8b |
| children | b11f9c33558f |
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/qz.cc Thu Feb 03 01:30:02 2000 +0000 +++ b/src/DLD-FUNCTIONS/qz.cc Thu Feb 03 01:36:31 2000 +0000 @@ -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;