And once more.

hjjvandam · hjjvandam · commit 97c78455111b · 2024-11-28T12:23:28.000+01:00
diff --git a/SRC/DEPRECATED/cgelsx.f b/SRC/DEPRECATED/cgelsx.f
@@ -294,13 +294,15 @@ SUBROUTINE CGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND,
 *
 *        Scale matrix norm up to SMLNUM
 *
-         CALL CLASCL( 'G', 0, 0, BNRM, SMLNUM, M, NRHS, B, LDB, INFO )
+         CALL CLASCL( 'G', 0, 0, BNRM, SMLNUM, M, NRHS, B, LDB,
+     $                INFO )
          IBSCL = 1
       ELSE IF( BNRM.GT.BIGNUM ) THEN
 *
 *        Scale matrix norm down to BIGNUM
 *
-         CALL CLASCL( 'G', 0, 0, BNRM, BIGNUM, M, NRHS, B, LDB, INFO )
+         CALL CLASCL( 'G', 0, 0, BNRM, BIGNUM, M, NRHS, B, LDB,
+     $                INFO )
          IBSCL = 2
       END IF
 *

Original file line number	Diff line number	Diff line change
`@@ -294,13 +294,15 @@ SUBROUTINE CGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND,`
`294`	`294`	`*`
`295`	`295`	`* Scale matrix norm up to SMLNUM`
`296`	`296`	`*`
`297`		`- CALL CLASCL( 'G', 0, 0, BNRM, SMLNUM, M, NRHS, B, LDB, INFO )`
	`297`	`+ CALL CLASCL( 'G', 0, 0, BNRM, SMLNUM, M, NRHS, B, LDB,`
	`298`	`+ $ INFO )`
`298`	`299`	`IBSCL = 1`
`299`	`300`	`ELSE IF( BNRM.GT.BIGNUM ) THEN`
`300`	`301`	`*`
`301`	`302`	`* Scale matrix norm down to BIGNUM`
`302`	`303`	`*`
`303`		`- CALL CLASCL( 'G', 0, 0, BNRM, BIGNUM, M, NRHS, B, LDB, INFO )`
	`304`	`+ CALL CLASCL( 'G', 0, 0, BNRM, BIGNUM, M, NRHS, B, LDB,`
	`305`	`+ $ INFO )`
`304`	`306`	`IBSCL = 2`
`305`	`307`	`END IF`
`306`	`308`	`*`