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 731c44edb..fecf8d85c 100644 --- a/lapack-netlib/SRC/cgeqp3rk.f +++ b/lapack-netlib/SRC/cgeqp3rk.f @@ -761,6 +761,7 @@ * 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 01dcce0de..f637966c8 100644 --- a/lapack-netlib/SRC/zgeqp3rk.f +++ b/lapack-netlib/SRC/zgeqp3rk.f @@ -760,6 +760,7 @@ * for the whole original matrix stored in A(1:M,1:N). * KP1 = IDAMAX( N, RWORK( 1 ), 1 ) + MAXC2NRM = RWORK( KP1 ) * * ==================================================================. *