From 906b9df31648eb5407bdfd79af407d154ef1b051 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sun, 15 Jun 2025 19:34:01 +0200 Subject: [PATCH 1/2] fix missing initialization --- lapack-netlib/SRC/cgeqp3rk.f | 1 + 1 file changed, 1 insertion(+) diff --git a/lapack-netlib/SRC/cgeqp3rk.f b/lapack-netlib/SRC/cgeqp3rk.f index 731c44edb4..fecf8d85cc 100644 --- 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 ) * * ==================================================================. * From 1804ff58d7967c528f6006fe2f10ea3f3c2d3d06 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sun, 15 Jun 2025 19:35:34 +0200 Subject: [PATCH 2/2] fix missing initialization --- lapack-netlib/SRC/zgeqp3rk.f | 1 + 1 file changed, 1 insertion(+) diff --git a/lapack-netlib/SRC/zgeqp3rk.f b/lapack-netlib/SRC/zgeqp3rk.f index 01dcce0ded..f637966c8d 100644 --- 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 ) * * ==================================================================. *