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
13 lines
518 B
Forth
13 lines
518 B
Forth
--- 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
|
|
*
|