Mercurial > hg > octave-lyh
changeset 3075:a6a00badcc12
[project @ 1997-07-25 22:39:56 by jwe]
| author | jwe |
|---|---|
| date | Fri, 25 Jul 1997 22:40:00 +0000 |
| parents | 42975c59d2a0 |
| children | 440a0e1b8c66 |
| files | liboctave/CMatrix.cc liboctave/ChangeLog liboctave/dMatrix.cc |
| diffstat | 3 files changed, 13 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/CMatrix.cc +++ b/liboctave/CMatrix.cc @@ -1454,6 +1454,8 @@ else lwork = 2*n + (nrhs > m ? nrhs : m); + lwork *= 16; + Array<Complex> work (lwork); Complex *pwork = work.fortran_vec (); @@ -1534,6 +1536,8 @@ else lwork = 2*n + (nrhs > m ? nrhs : m); + lwork *= 16; + Array<Complex> work (lwork); Complex *pwork = work.fortran_vec ();
--- a/liboctave/ChangeLog +++ b/liboctave/ChangeLog @@ -1,3 +1,8 @@ +Fri Jul 25 17:31:26 1997 John W. Eaton <jwe@bevo.che.wisc.edu> + + * dMatrix.cc (Matrix::lssolve): Increase lwork by factor of 16. + * CMatrix.cc (ComplexMatrix::lssolve): Ditto. + Thu Jul 24 14:32:48 1997 John W. Eaton <jwe@bevo.che.wisc.edu> * file-ops.cc (tilde_expand_word): Fix off-by-one error.
--- a/liboctave/dMatrix.cc +++ b/liboctave/dMatrix.cc @@ -1166,6 +1166,8 @@ ? (2*n > m ? 2*n : m) : (nrhs > m ? nrhs : m)); + lwork *= 16; + Array<double> work (lwork); double *pwork = work.fortran_vec (); @@ -1267,6 +1269,8 @@ ? (2*n > m ? 2*n : m) : (nrhs > m ? nrhs : m)); + lwork *= 16; + Array<double> work (lwork); double *pwork = work.fortran_vec ();