Fix line reflow on addition of _64 symbol suffixes

martin-frbg · web-flow · commit 304fa305e851 · 2025-01-19T22:55:52.000+01:00
diff --git a/SRC/DEPRECATED/cgelsx.f b/SRC/DEPRECATED/cgelsx.f
@@ -364,8 +364,8 @@ SUBROUTINE CGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND,
 *
 *     B(1:M,1:NRHS) := Q**H * B(1:M,1:NRHS)
 *
-      CALL CUNM2R( 'Left', 'Conjugate transpose', M, NRHS, MN, A, LDA,
-     $             WORK( 1 ), B, LDB, WORK( 2*MN+1 ), INFO )
+      CALL CUNM2R( 'Left', 'Conjugate transpose', M, NRHS, MN, A,
+     $             LDA, WORK( 1 ), B, LDB, WORK( 2*MN+1 ), INFO )
 *
 *     workspace NRHS
 *

Original file line number	Diff line number	Diff line change
`@@ -364,8 +364,8 @@ SUBROUTINE CGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND,`
`364`	`364`	`*`
`365`	`365`	`* B(1:M,1:NRHS) := Q*H B(1:M,1:NRHS)`
`366`	`366`	`*`
`367`		`- CALL CUNM2R( 'Left', 'Conjugate transpose', M, NRHS, MN, A, LDA,`
`368`		`- $ WORK( 1 ), B, LDB, WORK( 2*MN+1 ), INFO )`
	`367`	`+ CALL CUNM2R( 'Left', 'Conjugate transpose', M, NRHS, MN, A,`
	`368`	`+ $ LDA, WORK( 1 ), B, LDB, WORK( 2*MN+1 ), INFO )`
`369`	`369`	`*`
`370`	`370`	`* workspace NRHS`
`371`	`371`	`*`