From ea65bb77babe04765b3a868440861241c5071903 Mon Sep 17 00:00:00 2001 From: Julien Langou Date: Thu, 26 Mar 2026 08:05:24 -0600 Subject: [PATCH 1/2] As suggested by Angelika,see PR#1035, use MINMN.EQ.0 instead of M.EQ.0 --- SRC/cgeqp3.f | 2 +- SRC/dgeqp3.f | 2 +- SRC/sgeqp3.f | 2 +- SRC/zgeqp3.f | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/SRC/cgeqp3.f b/SRC/cgeqp3.f index e27b97549..5d21cd5a5 100644 --- a/SRC/cgeqp3.f +++ b/SRC/cgeqp3.f @@ -251,7 +251,7 @@ SUBROUTINE CGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, RWORK, * * Quick return if possible. * - IF( M.EQ.0 ) RETURN + IF( MINMN.EQ.0 ) RETURN * NFXD = NFXD - 1 * diff --git a/SRC/dgeqp3.f b/SRC/dgeqp3.f index 256cd7806..ff3b8e788 100644 --- a/SRC/dgeqp3.f +++ b/SRC/dgeqp3.f @@ -242,7 +242,7 @@ SUBROUTINE DGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO ) * * Quick return if possible * - IF( M.EQ.0 ) RETURN + IF( MINMN.EQ.0 ) RETURN * NFXD = NFXD - 1 * diff --git a/SRC/sgeqp3.f b/SRC/sgeqp3.f index e9105486e..a6ff14f06 100644 --- a/SRC/sgeqp3.f +++ b/SRC/sgeqp3.f @@ -239,7 +239,7 @@ SUBROUTINE SGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO ) * * Quick return if possible. * - IF( M.EQ.0 ) RETURN + IF( MINMNM.EQ.0 ) RETURN * NFXD = NFXD - 1 * diff --git a/SRC/zgeqp3.f b/SRC/zgeqp3.f index fb50162fc..ee806aba7 100644 --- a/SRC/zgeqp3.f +++ b/SRC/zgeqp3.f @@ -251,7 +251,7 @@ SUBROUTINE ZGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, RWORK, * * Quick return if possible. * - IF( M.EQ.0 ) RETURN + IF( MINMN.EQ.0 ) RETURN * NFXD = NFXD - 1 * From d6bf599fd74291212f76ff9aa5990eb430e3ed37 Mon Sep 17 00:00:00 2001 From: langou Date: Thu, 26 Mar 2026 08:30:15 -0600 Subject: [PATCH 2/2] (typo) Fix variable name --- SRC/sgeqp3.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SRC/sgeqp3.f b/SRC/sgeqp3.f index a6ff14f06..a40a54430 100644 --- a/SRC/sgeqp3.f +++ b/SRC/sgeqp3.f @@ -239,7 +239,7 @@ SUBROUTINE SGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO ) * * Quick return if possible. * - IF( MINMNM.EQ.0 ) RETURN + IF( MINMN.EQ.0 ) RETURN * NFXD = NFXD - 1 *