diff options
Diffstat (limited to 'math/lapack/files/patch-SRC_DEPRECATED_sgeqpf.f')
| -rw-r--r-- | math/lapack/files/patch-SRC_DEPRECATED_sgeqpf.f | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/math/lapack/files/patch-SRC_DEPRECATED_sgeqpf.f b/math/lapack/files/patch-SRC_DEPRECATED_sgeqpf.f new file mode 100644 index 000000000000..b8c568852a78 --- /dev/null +++ b/math/lapack/files/patch-SRC_DEPRECATED_sgeqpf.f @@ -0,0 +1,13 @@ +--- SRC/DEPRECATED/sgeqpf.f.orig 2024-12-03 11:39:11 UTC ++++ SRC/DEPRECATED/sgeqpf.f +@@ -218,8 +218,8 @@ + MA = MIN( ITEMP, M ) + CALL SGEQR2( M, MA, A, LDA, TAU, WORK, INFO ) + IF( MA.LT.N ) THEN +- CALL SORM2R( 'Left', 'Transpose', M, N-MA, MA, A, LDA, TAU, +- $ A( 1, MA+1 ), LDA, WORK, INFO ) ++ CALL SORM2R( 'Left', 'Transpose', M, N-MA, MA, A, LDA, ++ $ TAU, A( 1, MA+1 ), LDA, WORK, INFO ) + END IF + END IF + * |