fix missing initialization

martin-frbg · web-flow · commit 1804ff58d796 · 2025-06-15T19:35:34.000+02:00
diff --git a/lapack-netlib/SRC/zgeqp3rk.f b/lapack-netlib/SRC/zgeqp3rk.f
@@ -760,6 +760,7 @@ SUBROUTINE ZGEQP3RK( M, N, NRHS, KMAX, ABSTOL, RELTOL, A, LDA,
 *     for the whole original matrix stored in A(1:M,1:N).
 *
       KP1 = IDAMAX( N, RWORK( 1 ), 1 )
+      MAXC2NRM = RWORK( KP1 )
 *
 *     ==================================================================.
 *

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