# HG changeset patch
# User Rik <rik@octave.org>
# Date 1416593375 28800
# Node ID 3a2a0b72b91b28fae49c44e2429f1e46752b833e
# Parent  16cdbe882ff52eb83da15c290df4d43fc79b60f7
Swap row vector for column vector in cset d47e50953abc.

* CmplxQR.cc (shift_cols): Use column vector in Array constructor.

* dbleQR.cc (shift_cols): Use column vector in Array constructor.

* fCmplxQR.cc: (shift_cols): Use column vector in Array constructor.

* floatQR.cc: (shift_cols): Use column vector in Array constructor.

diff -r 16cdbe882ff5 -r 3a2a0b72b91b liboctave/numeric/CmplxQR.cc
--- a/liboctave/numeric/CmplxQR.cc	Fri Nov 21 09:49:35 2014 -0800
+++ b/liboctave/numeric/CmplxQR.cc	Fri Nov 21 10:09:35 2014 -0800
@@ -549,7 +549,7 @@
                           octave_idx_type i, octave_idx_type j)
 {
   octave_idx_type n = a.columns ();
-  Array<octave_idx_type> p (dim_vector (1, n));
+  Array<octave_idx_type> p (dim_vector (n, 1));
   for (octave_idx_type k = 0; k < n; k++) p(k) = k;
   if (i < j)
     {
diff -r 16cdbe882ff5 -r 3a2a0b72b91b liboctave/numeric/dbleQR.cc
--- a/liboctave/numeric/dbleQR.cc	Fri Nov 21 09:49:35 2014 -0800
+++ b/liboctave/numeric/dbleQR.cc	Fri Nov 21 10:09:35 2014 -0800
@@ -544,7 +544,7 @@
                    octave_idx_type i, octave_idx_type j)
 {
   octave_idx_type n = a.columns ();
-  Array<octave_idx_type> p (dim_vector (1, n));
+  Array<octave_idx_type> p (dim_vector (n, 1));
   for (octave_idx_type k = 0; k < n; k++) p(k) = k;
   if (i < j)
     {
diff -r 16cdbe882ff5 -r 3a2a0b72b91b liboctave/numeric/fCmplxQR.cc
--- a/liboctave/numeric/fCmplxQR.cc	Fri Nov 21 09:49:35 2014 -0800
+++ b/liboctave/numeric/fCmplxQR.cc	Fri Nov 21 10:09:35 2014 -0800
@@ -557,7 +557,7 @@
                                octave_idx_type i, octave_idx_type j)
 {
   octave_idx_type n = a.columns ();
-  Array<octave_idx_type> p (dim_vector (1, n));
+  Array<octave_idx_type> p (dim_vector (n, 1));
   for (octave_idx_type k = 0; k < n; k++) p(k) = k;
   if (i < j)
     {
diff -r 16cdbe882ff5 -r 3a2a0b72b91b liboctave/numeric/floatQR.cc
--- a/liboctave/numeric/floatQR.cc	Fri Nov 21 09:49:35 2014 -0800
+++ b/liboctave/numeric/floatQR.cc	Fri Nov 21 10:09:35 2014 -0800
@@ -542,7 +542,7 @@
                         octave_idx_type i, octave_idx_type j)
 {
   octave_idx_type n = a.columns ();
-  Array<octave_idx_type> p (dim_vector (1, n));
+  Array<octave_idx_type> p (dim_vector (n, 1));
   for (octave_idx_type k = 0; k < n; k++) p(k) = k;
   if (i < j)
     {