small fix in routines to use larf1f and larf1l, #1011

Author: EduardFedorenkov

SRC/cunbdb.f

@@ -544,8 +544,9 @@ SUBROUTINE CUNBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12,
             CALL CLACGV( M-P-Q-I+1, X22(Q+I,P+I), LDX22 )
             CALL CLARFGP( M-P-Q-I+1, X22(Q+I,P+I), X22(Q+I,P+I+1),
      $                    LDX22, TAUQ2(P+I) )
-            CALL CLARF1F( 'R', M-P-Q-I, M-P-Q-I+1, X22(Q+I,P+I), LDX22,
-     $                    TAUQ2(P+I), X22(Q+I+1,P+I), LDX22, WORK )
+            CALL CLARF1F( 'R', M-P-Q-I, M-P-Q-I+1, X22(Q+I,P+I),
+     $                    LDX22, TAUQ2(P+I), X22(Q+I+1,P+I), LDX22,
+     $                    WORK )
 *
             CALL CLACGV( M-P-Q-I+1, X22(Q+I,P+I), LDX22 )
 *

SRC/sorbdb.f

@@ -639,8 +639,8 @@ SUBROUTINE SORBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12,
             IF( I .LT. Q ) THEN
                CALL SLARF1F( 'L', Q-I, P-I, X11(I+1,I), 1, TAUQ1(I),
      $                       X11(I+1,I+1), LDX11, WORK )
-               CALL SLARF1F( 'L', Q-I, M-P-I, X11(I+1,I), 1, TAUQ1(I),
-     $                       X21(I+1,I+1), LDX21, WORK )
+               CALL SLARF1F( 'L', Q-I, M-P-I, X11(I+1,I), 1,
+     $                       TAUQ1(I), X21(I+1,I+1), LDX21, WORK )
             END IF
             CALL SLARF1F( 'L', M-Q-I+1, P-I, X12(I,I), 1, TAUQ2(I),
      $                    X12(I,I+1), LDX12, WORK )