Merge pull request #5846 from martin-frbg/lapack1265

Fix typo in ?ORBDB3/?UNBDB3 use of INCY (Reference-LAPACK PR 1265)

Author: martin-frbg

lapack-netlib/SRC/cunbdb3.f

@@ -277,7 +277,7 @@ SUBROUTINE CUNBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA,
       DO I = 1, M-P
 *
          IF( I .GT. 1 ) THEN
-            CALL CSROT( Q-I+1, X11(I-1,I), LDX11, X21(I,I), LDX11, C,
+            CALL CSROT( Q-I+1, X11(I-1,I), LDX11, X21(I,I), LDX21, C,
      $                  S )
          END IF
 *

lapack-netlib/SRC/dorbdb3.f

@@ -276,7 +276,7 @@ SUBROUTINE DORBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA,
       DO I = 1, M-P
 *
          IF( I .GT. 1 ) THEN
-            CALL DROT( Q-I+1, X11(I-1,I), LDX11, X21(I,I), LDX11, C,
+            CALL DROT( Q-I+1, X11(I-1,I), LDX11, X21(I,I), LDX21, C,
      $                 S )
          END IF
 *

lapack-netlib/SRC/sorbdb3.f

@@ -277,7 +277,7 @@ SUBROUTINE SORBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA,
       DO I = 1, M-P
 *
          IF( I .GT. 1 ) THEN
-            CALL SROT( Q-I+1, X11(I-1,I), LDX11, X21(I,I), LDX11, C,
+            CALL SROT( Q-I+1, X11(I-1,I), LDX11, X21(I,I), LDX21, C,
      $                 S )
          END IF
 *

lapack-netlib/SRC/zunbdb3.f

@@ -276,7 +276,7 @@ SUBROUTINE ZUNBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA,
       DO I = 1, M-P
 *
          IF( I .GT. 1 ) THEN
-            CALL ZDROT( Q-I+1, X11(I-1,I), LDX11, X21(I,I), LDX11, C,
+            CALL ZDROT( Q-I+1, X11(I-1,I), LDX11, X21(I,I), LDX21, C,
      $                  S )
          END IF
 *