From 1804ff58d7967c528f6006fe2f10ea3f3c2d3d06 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Sun, 15 Jun 2025 19:35:34 +0200
Subject: [PATCH] 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 )
 *
 *     ==================================================================.
 *