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