Mercurial > hg > octave-lyh

diff liboctave/CmplxQR.cc @ 3069:db6d57d718f7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-07-10 23:34:03 by jwe]
author jwe
date Thu, 10 Jul 1997 23:34:07 +0000
parents 17e2f90e0d3b
children 69b6bd271277
line wrap: on
line diff
--- a/liboctave/CmplxQR.cc
+++ b/liboctave/CmplxQR.cc
@@ -99,7 +99,10 @@
 		A_fact.elem (i, j) *= tau.elem (j);
 	    }
 
-	  q = A_fact;
+	  r = A_fact;
+
+	  if (m > n)
+	    r.resize (m, n);
 	}
       else
 	{