pool/lapack
SHA256
12
0
Fork 2
Code Issues Pull Requests Activity
Files
devel
lapack/lapack-deprecated-lwork-use.patch

193 lines
6.2 KiB
Diff
Raw Permalink Normal View History

* Update to version 3.12.1. * Drop fix-lapack-testing.patch: upstreamed (commit 5b0687f). * Add upstream commits to fix build when enabling deprecated mods: lapack-deprecated-lwork-use.patch. lapack-depcrecated-consistent-line-reflow-1.patch. lapack-depcrecated-consistent-line-reflow-2.patch. * Add lapack-update-patch-version.patch to update patch version in source files. OBS-URL: https://build.opensuse.org/package/show/science/lapack?expand=0&rev=55
2025-06-07 23:26:43 +00:00
From f5103fc3b42fcff40e70b1fa4b5567df01dae9bc Mon Sep 17 00:00:00 2001
From: Wouter Deconinck <wdconinc@gmail.com>
Date: Fri, 10 Jan 2025 14:32:30 -0600
Subject: [PATCH] ?ge(lq|qr)s.f: WORK( LWORK ) -> WORK( * )
---
SRC/DEPRECATED/cgelqs.f | 4 ++--
SRC/DEPRECATED/cgeqrs.f | 4 ++--
SRC/DEPRECATED/dgelqs.f | 4 ++--
SRC/DEPRECATED/dgeqrs.f | 4 ++--
SRC/DEPRECATED/sgelqs.f | 4 ++--
SRC/DEPRECATED/sgeqrs.f | 4 ++--
SRC/DEPRECATED/zgelqs.f | 4 ++--
SRC/DEPRECATED/zgeqrs.f | 4 ++--
8 files changed, 16 insertions(+), 16 deletions(-)
diff --git a/SRC/DEPRECATED/cgelqs.f b/SRC/DEPRECATED/cgelqs.f
index 47e17a5830..aba3632a74 100644
--- a/SRC/DEPRECATED/cgelqs.f
+++ b/SRC/DEPRECATED/cgelqs.f
@@ -16,7 +16,7 @@
* ..
* .. Array Arguments ..
* COMPLEX A( LDA, * ), B( LDB, * ), TAU( * ),
-* $ WORK( LWORK )
+* $ WORK( * )
* ..
*
*
@@ -128,7 +128,7 @@ SUBROUTINE CGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
* ..
* .. Array Arguments ..
COMPLEX A( LDA, * ), B( LDB, * ), TAU( * ),
- $ WORK( LWORK )
+ $ WORK( * )
* ..
*
* =====================================================================
diff --git a/SRC/DEPRECATED/cgeqrs.f b/SRC/DEPRECATED/cgeqrs.f
index 13ac7f74fd..9d0527283d 100644
--- a/SRC/DEPRECATED/cgeqrs.f
+++ b/SRC/DEPRECATED/cgeqrs.f
@@ -16,7 +16,7 @@
* ..
* .. Array Arguments ..
* COMPLEX A( LDA, * ), B( LDB, * ), TAU( * ),
-* $ WORK( LWORK )
+* $ WORK( * )
* ..
*
*
@@ -128,7 +128,7 @@ SUBROUTINE CGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
* ..
* .. Array Arguments ..
COMPLEX A( LDA, * ), B( LDB, * ), TAU( * ),
- $ WORK( LWORK )
+ $ WORK( * )
* ..
*
* =====================================================================
diff --git a/SRC/DEPRECATED/dgelqs.f b/SRC/DEPRECATED/dgelqs.f
index dc08f2398b..1bab678901 100644
--- a/SRC/DEPRECATED/dgelqs.f
+++ b/SRC/DEPRECATED/dgelqs.f
@@ -16,7 +16,7 @@
* ..
* .. Array Arguments ..
* DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAU( * ),
-* $ WORK( LWORK )
+* $ WORK( * )
* ..
*
*
@@ -128,7 +128,7 @@ SUBROUTINE DGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
* ..
* .. Array Arguments ..
DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAU( * ),
- $ WORK( LWORK )
+ $ WORK( * )
* ..
*
* =====================================================================
diff --git a/SRC/DEPRECATED/dgeqrs.f b/SRC/DEPRECATED/dgeqrs.f
index bfb7bd8bb8..e3e6c4048e 100644
--- a/SRC/DEPRECATED/dgeqrs.f
+++ b/SRC/DEPRECATED/dgeqrs.f
@@ -16,7 +16,7 @@
* ..
* .. Array Arguments ..
* DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAU( * ),
-* $ WORK( LWORK )
+* $ WORK( * )
* ..
*
*
@@ -128,7 +128,7 @@ SUBROUTINE DGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
* ..
* .. Array Arguments ..
DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAU( * ),
- $ WORK( LWORK )
+ $ WORK( * )
* ..
*
* =====================================================================
diff --git a/SRC/DEPRECATED/sgelqs.f b/SRC/DEPRECATED/sgelqs.f
index 330d4d5850..2b1dd44b71 100644
--- a/SRC/DEPRECATED/sgelqs.f
+++ b/SRC/DEPRECATED/sgelqs.f
@@ -16,7 +16,7 @@
* ..
* .. Array Arguments ..
* REAL A( LDA, * ), B( LDB, * ), TAU( * ),
-* $ WORK( LWORK )
+* $ WORK( * )
* ..
*
*
@@ -128,7 +128,7 @@ SUBROUTINE SGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
* ..
* .. Array Arguments ..
REAL A( LDA, * ), B( LDB, * ), TAU( * ),
- $ WORK( LWORK )
+ $ WORK( * )
* ..
*
* =====================================================================
diff --git a/SRC/DEPRECATED/sgeqrs.f b/SRC/DEPRECATED/sgeqrs.f
index ed11489104..bdbad5dcb4 100644
--- a/SRC/DEPRECATED/sgeqrs.f
+++ b/SRC/DEPRECATED/sgeqrs.f
@@ -16,7 +16,7 @@
* ..
* .. Array Arguments ..
* REAL A( LDA, * ), B( LDB, * ), TAU( * ),
-* $ WORK( LWORK )
+* $ WORK( * )
* ..
*
*
@@ -128,7 +128,7 @@ SUBROUTINE SGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
* ..
* .. Array Arguments ..
REAL A( LDA, * ), B( LDB, * ), TAU( * ),
- $ WORK( LWORK )
+ $ WORK( * )
* ..
*
* =====================================================================
diff --git a/SRC/DEPRECATED/zgelqs.f b/SRC/DEPRECATED/zgelqs.f
index 5f629f8c7e..772165dfd9 100644
--- a/SRC/DEPRECATED/zgelqs.f
+++ b/SRC/DEPRECATED/zgelqs.f
@@ -16,7 +16,7 @@
* ..
* .. Array Arguments ..
* COMPLEX*16 A( LDA, * ), B( LDB, * ), TAU( * ),
-* $ WORK( LWORK )
+* $ WORK( * )
* ..
*
*
@@ -128,7 +128,7 @@ SUBROUTINE ZGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
* ..
* .. Array Arguments ..
COMPLEX*16 A( LDA, * ), B( LDB, * ), TAU( * ),
- $ WORK( LWORK )
+ $ WORK( * )
* ..
*
* =====================================================================
diff --git a/SRC/DEPRECATED/zgeqrs.f b/SRC/DEPRECATED/zgeqrs.f
index 6583e38591..cc33a45fc1 100644
--- a/SRC/DEPRECATED/zgeqrs.f
+++ b/SRC/DEPRECATED/zgeqrs.f
@@ -16,7 +16,7 @@
* ..
* .. Array Arguments ..
* COMPLEX*16 A( LDA, * ), B( LDB, * ), TAU( * ),
-* $ WORK( LWORK )
+* $ WORK( * )
* ..
*
*
@@ -128,7 +128,7 @@ SUBROUTINE ZGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
* ..
* .. Array Arguments ..
COMPLEX*16 A( LDA, * ), B( LDB, * ), TAU( * ),
- $ WORK( LWORK )
+ $ WORK( * )
* ..
*
* =====================================================================
Reference in New Issue Copy Permalink