diff src/DLD-FUNCTIONS/qr.cc @ 3069:db6d57d718f7

[project @ 1997-07-10 23:34:03 by jwe]
author jwe
date Thu, 10 Jul 1997 23:34:07 +0000 (1997-07-10)
parents 17e2f90e0d3b
children f16c2ce14886
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/qr.cc
+++ b/src/DLD-FUNCTIONS/qr.cc
@@ -87,7 +87,7 @@
 	    case 1:
 	      {
 		QR fact (m, type);
-		retval(0) = fact.Q ();
+		retval(0) = fact.R ();
 	      }
 	      break;
 
@@ -122,7 +122,7 @@
 	    case 1:
 	      {
 		ComplexQR fact (m, type);
-		retval(0) = fact.Q ();
+		retval(0) = fact.R ();
 	      }
 	      break;