Merge pull request #1265 from kyungminlee/master

Fix typo in ?orbdb3/?unbdb3
2026-05-07 05:39:30 -06:00
parent 8cd9026676 eed4e74fcb
commit d6b82864ed
4 changed files with 4 additions and 4 deletions
@@ -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
 *
@@ -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
 *
@@ -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
 *
@@ -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
 *