Mercurial > hg > octave-lyh

diff liboctave/CMatrix.cc @ 2563:8b0911d576bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-12-05 19:06:58 by jwe]
author jwe
date Thu, 05 Dec 1996 19:06:59 +0000
parents 4d941ba99862
children a5a300c61159
line wrap: on
line diff
--- a/liboctave/CMatrix.cc
+++ b/liboctave/CMatrix.cc
@@ -1416,7 +1416,9 @@
       int len_s = m < n ? m : n;
       Array<double> s (len_s);
       double *ps = s.fortran_vec ();
+
       double rcond = -1.0;
+
       int lwork;
       if (m < n)
 	lwork = 2*m + (nrhs > n ? nrhs : n);
@@ -1439,7 +1441,7 @@
 	(*current_liboctave_error_handler) ("unrecoverable error in zgelss");
       else
 	{
-	  ComplexMatrix retval (n, nrhs);
+	  retval.resize (n, nrhs);
 	  for (int j = 0; j < nrhs; j++)
 	    for (int i = 0; i < n; i++)
 	      retval.elem (i, j) = result.elem (i, j);
@@ -1519,7 +1521,7 @@
 	(*current_liboctave_error_handler) ("unrecoverable error in zgelss");
       else
 	{
-	  ComplexColumnVector retval (n);
+	  retval.resize (n);
 	  for (int i = 0; i < n; i++)
 	    retval.elem (i) = result.elem (i);
 	}