(typo) Fix variable name

langou · web-flow · commit d6bf599fd742 · 2026-03-26T08:30:15.000-06:00
diff --git 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
 *

Original file line number	Diff line number	Diff line change
`@@ -239,7 +239,7 @@ SUBROUTINE SGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO )`
`239`	`239`	`*`
`240`	`240`	`* Quick return if possible.`
`241`	`241`	`*`
`242`		`- IF( MINMNM.EQ.0 ) RETURN`
	`242`	`+ IF( MINMN.EQ.0 ) RETURN`
`243`	`243`	`*`
`244`	`244`	`NFXD = NFXD - 1`
`245`	`245`	`*`