[Octave-bug-tracker] [bug #34953] Bug with qrdelete

[marco atzeri]

Follow-up Comment #3, bug #34953 (project octave):

I built a test arpack package adding the proposed 
change from John

--- origsrc/qrupdate-1.1.1/src/dqrder.f 2009-01-09 12:21:34.000000000 +0100
+++ src/qrupdate-1.1.1/src/dqrder.f     2012-01-05 23:26:01.043758100 +0100
@@ -49,7 +49,7 @@ c check arguments
       info = 0
       if (m < 1) then
         info = 1
-      else if (j < 1 .or. j > n) then
+      else if (j < 1 .or. j > m) then
         info = 7
       end if
       if (info /= 0) then

with that the 
[Q1,R1] = qrdelete(Q,R,7,'row')

succeeded as expected.

Adding Jaroslav on copy as there is no bug tracker for qrupdate 


    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/bugs/?34953>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.gnu.org/