diff --git a/lapack-netlib/SRC/cunbdb3.f b/lapack-netlib/SRC/cunbdb3.f
index c03de68257..65da956151 100644
--- a/lapack-netlib/SRC/cunbdb3.f
+++ b/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
 *
diff --git a/lapack-netlib/SRC/dorbdb3.f b/lapack-netlib/SRC/dorbdb3.f
index 2bf96d21a2..7c6cf62a10 100644
--- a/lapack-netlib/SRC/dorbdb3.f
+++ b/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
 *
diff --git a/lapack-netlib/SRC/sorbdb3.f b/lapack-netlib/SRC/sorbdb3.f
index 3cf8f97355..97ed2fb3d8 100644
--- a/lapack-netlib/SRC/sorbdb3.f
+++ b/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
 *
diff --git a/lapack-netlib/SRC/zunbdb3.f b/lapack-netlib/SRC/zunbdb3.f
index 057fe46772..41ea376f1c 100644
--- a/lapack-netlib/SRC/zunbdb3.f
+++ b/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
 *