mirror of
https://git.freebsd.org/ports.git
synced 2025-04-28 01:26:39 -04:00
c2c034b9f8
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
26 lines
903 B
Forth
26 lines
903 B
Forth
--- 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
|