fix missing initialization

martin-frbg · web-flow · commit 906b9df31648 · 2025-06-15T19:34:01.000+02:00
diff --git a/lapack-netlib/SRC/cgeqp3rk.f b/lapack-netlib/SRC/cgeqp3rk.f
@@ -761,6 +761,7 @@ SUBROUTINE CGEQP3RK( M, N, NRHS, KMAX, ABSTOL, RELTOL, A, LDA,
 *     for the whole original matrix stored in A(1:M,1:N).
 *
       KP1 = ISAMAX( N, RWORK( 1 ), 1 )
+      MAXC2NRM = RWORK( KP1 )
 *
 *     ==================================================================.
 *

Original file line number	Diff line number	Diff line change
`@@ -761,6 +761,7 @@ SUBROUTINE CGEQP3RK( M, N, NRHS, KMAX, ABSTOL, RELTOL, A, LDA,`
`761`	`761`	`* for the whole original matrix stored in A(1:M,1:N).`
`762`	`762`	`*`
`763`	`763`	`KP1 = ISAMAX( N, RWORK( 1 ), 1 )`
	`764`	`+ MAXC2NRM = RWORK( KP1 )`
`764`	`765`	`*`
`765`	`766`	`* ==================================================================.`
`766`	`767`	`*`