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

EduardFedorenkov · EduardFedorenkov · commit 05f087f029e6 · 2024-06-07T16:45:55.000+07:00
diff --git a/SRC/cunbdb.f b/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 )
 *

Original file line number	Diff line number	Diff line change
`@@ -544,8 +544,9 @@ SUBROUTINE CUNBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12,`
`544`	`544`	`CALL CLACGV( M-P-Q-I+1, X22(Q+I,P+I), LDX22 )`
`545`	`545`	`CALL CLARFGP( M-P-Q-I+1, X22(Q+I,P+I), X22(Q+I,P+I+1),`
`546`	`546`	`$ LDX22, TAUQ2(P+I) )`
`547`		`- CALL CLARF1F( 'R', M-P-Q-I, M-P-Q-I+1, X22(Q+I,P+I), LDX22,`
`548`		`- $ TAUQ2(P+I), X22(Q+I+1,P+I), LDX22, WORK )`
	`547`	`+ CALL CLARF1F( 'R', M-P-Q-I, M-P-Q-I+1, X22(Q+I,P+I),`
	`548`	`+ $ LDX22, TAUQ2(P+I), X22(Q+I+1,P+I), LDX22,`
	`549`	`+ $ WORK )`
`549`	`550`	`*`
`550`	`551`	`CALL CLACGV( M-P-Q-I+1, X22(Q+I,P+I), LDX22 )`
`551`	`552`	`*`