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 ();