1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
https://bugs.gentoo.org/961788
https://github.com/Reference-LAPACK/lapack/pull/1099
From 304fa305e85190c934e78eae75c7b092fcfd54c1 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Sun, 19 Jan 2025 22:55:52 +0100
Subject: [PATCH 1/3] Fix line reflow on addition of _64 symbol suffixes
---
SRC/DEPRECATED/cgelsx.f | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/SRC/DEPRECATED/cgelsx.f b/SRC/DEPRECATED/cgelsx.f
index b55fe1565..7281a0668 100644
--- a/SRC/DEPRECATED/cgelsx.f
+++ b/SRC/DEPRECATED/cgelsx.f
@@ -364,8 +364,8 @@ SUBROUTINE CGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND,
*
* B(1:M,1:NRHS) := Q**H * B(1:M,1:NRHS)
*
- CALL CUNM2R( 'Left', 'Conjugate transpose', M, NRHS, MN, A, LDA,
- $ WORK( 1 ), B, LDB, WORK( 2*MN+1 ), INFO )
+ CALL CUNM2R( 'Left', 'Conjugate transpose', M, NRHS, MN, A,
+ $ LDA, WORK( 1 ), B, LDB, WORK( 2*MN+1 ), INFO )
*
* workspace NRHS
*
From bc0c38f247f90f815a93f6ca0829004120745da4 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Sun, 19 Jan 2025 22:58:19 +0100
Subject: [PATCH 2/3] Fix line reflow on addition of _64 symbol suffix
---
SRC/DEPRECATED/dgeqpf.f | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/SRC/DEPRECATED/dgeqpf.f b/SRC/DEPRECATED/dgeqpf.f
index 36f6fb50e..067da29d0 100644
--- a/SRC/DEPRECATED/dgeqpf.f
+++ b/SRC/DEPRECATED/dgeqpf.f
@@ -218,8 +218,8 @@ SUBROUTINE DGEQPF( M, N, A, LDA, JPVT, TAU, WORK, INFO )
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
*
From 3c209c6bdf524869d18d00119aeae4962740c3b3 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Sun, 19 Jan 2025 22:59:21 +0100
Subject: [PATCH 3/3] Fix line reflow on addition of _64 symbol suffix
---
SRC/DEPRECATED/sgeqpf.f | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/SRC/DEPRECATED/sgeqpf.f b/SRC/DEPRECATED/sgeqpf.f
index 7963bd8e7..f74a084a0 100644
--- a/SRC/DEPRECATED/sgeqpf.f
+++ b/SRC/DEPRECATED/sgeqpf.f
@@ -218,8 +218,8 @@ SUBROUTINE SGEQPF( M, N, A, LDA, JPVT, TAU, WORK, INFO )
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
*
|
