diff --git a/SRC/cunbdb3.f b/SRC/cunbdb3.f
index c03de6825..65da95615 100644
--- a/SRC/cunbdb3.f
+++ b/SRC/cunbdb3.f
@@ -277,7 +277,7 @@
       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/SRC/dorbdb3.f b/SRC/dorbdb3.f
index 2bf96d21a..7c6cf62a1 100644
--- a/SRC/dorbdb3.f
+++ b/SRC/dorbdb3.f
@@ -276,7 +276,7 @@
       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/SRC/sorbdb3.f b/SRC/sorbdb3.f
index 3cf8f9735..97ed2fb3d 100644
--- a/SRC/sorbdb3.f
+++ b/SRC/sorbdb3.f
@@ -277,7 +277,7 @@
       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/SRC/zunbdb3.f b/SRC/zunbdb3.f
index 057fe4677..41ea376f1 100644
--- a/SRC/zunbdb3.f
+++ b/SRC/zunbdb3.f
@@ -276,7 +276,7 @@
       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
 *