diff options
| author | Thierry Thomas <thierry@FreeBSD.org> | 2025-01-23 18:44:11 +0100 |
|---|---|---|
| committer | Thierry Thomas <thierry@FreeBSD.org> | 2025-01-24 13:12:23 +0100 |
| commit | c2c034b9f891334184f5dbdb1c63a0c44cf8b49d (patch) | |
| tree | e72da4141573eae0f3ff8688e0e671fc3816a8c0 /math/lapack/files/patch-SRC_DEPRECATED_dlahrd.f | |
| parent | x11-wm/korgwm: Update 4.0 → 5.0 (diff) | |
math/blas, math/cblas, math/lapack, math/lapacke: upgrade to 3.12.1
Release notes at https://github.com/Reference-LAPACK/lapack/releases/tag/v3.12.1
Remark: many patches are needed, see
https://github.com/Reference-LAPACK/lapack/pull/1093
Diffstat (limited to 'math/lapack/files/patch-SRC_DEPRECATED_dlahrd.f')
| -rw-r--r-- | math/lapack/files/patch-SRC_DEPRECATED_dlahrd.f | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/math/lapack/files/patch-SRC_DEPRECATED_dlahrd.f b/math/lapack/files/patch-SRC_DEPRECATED_dlahrd.f new file mode 100644 index 000000000000..291efc2ead01 --- /dev/null +++ b/math/lapack/files/patch-SRC_DEPRECATED_dlahrd.f @@ -0,0 +1,26 @@ +--- SRC/DEPRECATED/dlahrd.f.orig 2024-12-03 11:39:11 UTC ++++ SRC/DEPRECATED/dlahrd.f +@@ -231,8 +231,9 @@ + * + * w := T**T *w + * +- CALL DTRMV( 'Upper', 'Transpose', 'Non-unit', I-1, T, LDT, +- $ T( 1, NB ), 1 ) ++* Patch from https://github.com/Reference-LAPACK/lapack/pull/1093 ++ CALL DTRMV( 'Upper', 'Transpose', 'Non-unit', I-1, ++ $ T, LDT, T( 1, NB ), 1 ) + * + * b2 := b2 - V2*w + * +@@ -270,8 +271,9 @@ + * Compute T(1:i,i) + * + CALL DSCAL( I-1, -TAU( I ), T( 1, I ), 1 ) +- CALL DTRMV( 'Upper', 'No transpose', 'Non-unit', I-1, T, LDT, +- $ T( 1, I ), 1 ) ++* Patch from https://github.com/Reference-LAPACK/lapack/pull/1093 ++ CALL DTRMV( 'Upper', 'No transpose', 'Non-unit', I-1, ++ $ T, LDT, T( 1, I ), 1 ) + T( I, I ) = TAU( I ) + * + 10 CONTINUE |