Mercurial > hg > octave-nkf

diff liboctave/dMatrix.cc @ 3075:a6a00badcc12
[project @ 1997-07-25 22:39:56 by jwe]
author: jwe
date: Fri, 25 Jul 1997 22:40:00 +0000
parents: 0a2551ec7004
children: 02766207b74c
--- 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 ();