!59 Update to 3.12.0
From: @lyn1001 Reviewed-by: @caodongxia Signed-off-by: @caodongxia
This commit is contained in:
commit
42dccb0264
148
765.patch
148
765.patch
@ -1,148 +0,0 @@
|
|||||||
From 5d8a3a804befd179a28c5e4c7845e982b8d1922e Mon Sep 17 00:00:00 2001
|
|
||||||
From: Weslley S Pereira <weslley.spereira@gmail.com>
|
|
||||||
Date: Tue, 22 Nov 2022 18:19:33 -0700
|
|
||||||
Subject: [PATCH] Check for NaNs in xGECON
|
|
||||||
|
|
||||||
---
|
|
||||||
SRC/cgecon.f | 7 ++++---
|
|
||||||
SRC/dgecon.f | 7 ++++---
|
|
||||||
SRC/sgecon.f | 7 ++++---
|
|
||||||
SRC/zgecon.f | 7 ++++---
|
|
||||||
4 files changed, 16 insertions(+), 12 deletions(-)
|
|
||||||
|
|
||||||
diff --git a/SRC/cgecon.f b/SRC/cgecon.f
|
|
||||||
index 48f409b68..6f426c2ab 100644
|
|
||||||
--- a/SRC/cgecon.f
|
|
||||||
+++ b/SRC/cgecon.f
|
|
||||||
@@ -106,6 +106,7 @@
|
|
||||||
*> INFO is INTEGER
|
|
||||||
*> = 0: successful exit
|
|
||||||
*> < 0: if INFO = -i, the i-th argument had an illegal value
|
|
||||||
+*> =-5: if ANORM is NAN or negative.
|
|
||||||
*> \endverbatim
|
|
||||||
*
|
|
||||||
* Authors:
|
|
||||||
@@ -153,10 +154,10 @@ SUBROUTINE CGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, RWORK,
|
|
||||||
INTEGER ISAVE( 3 )
|
|
||||||
* ..
|
|
||||||
* .. External Functions ..
|
|
||||||
- LOGICAL LSAME
|
|
||||||
+ LOGICAL LSAME, SISNAN
|
|
||||||
INTEGER ICAMAX
|
|
||||||
REAL SLAMCH
|
|
||||||
- EXTERNAL LSAME, ICAMAX, SLAMCH
|
|
||||||
+ EXTERNAL LSAME, ICAMAX, SLAMCH, SISNAN
|
|
||||||
* ..
|
|
||||||
* .. External Subroutines ..
|
|
||||||
EXTERNAL CLACN2, CLATRS, CSRSCL, XERBLA
|
|
||||||
@@ -182,7 +183,7 @@ SUBROUTINE CGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, RWORK,
|
|
||||||
INFO = -2
|
|
||||||
ELSE IF( LDA.LT.MAX( 1, N ) ) THEN
|
|
||||||
INFO = -4
|
|
||||||
- ELSE IF( ANORM.LT.ZERO ) THEN
|
|
||||||
+ ELSE IF( ANORM.LT.ZERO .OR. SISNAN( ANORM ) ) THEN
|
|
||||||
INFO = -5
|
|
||||||
END IF
|
|
||||||
IF( INFO.NE.0 ) THEN
|
|
||||||
diff --git a/SRC/dgecon.f b/SRC/dgecon.f
|
|
||||||
index aa10dee9a..1ad302ae3 100644
|
|
||||||
--- a/SRC/dgecon.f
|
|
||||||
+++ b/SRC/dgecon.f
|
|
||||||
@@ -106,6 +106,7 @@
|
|
||||||
*> INFO is INTEGER
|
|
||||||
*> = 0: successful exit
|
|
||||||
*> < 0: if INFO = -i, the i-th argument had an illegal value
|
|
||||||
+*> =-5: if ANORM is NAN or negative.
|
|
||||||
*> \endverbatim
|
|
||||||
*
|
|
||||||
* Authors:
|
|
||||||
@@ -152,10 +153,10 @@ SUBROUTINE DGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, IWORK,
|
|
||||||
INTEGER ISAVE( 3 )
|
|
||||||
* ..
|
|
||||||
* .. External Functions ..
|
|
||||||
- LOGICAL LSAME
|
|
||||||
+ LOGICAL LSAME, DISNAN
|
|
||||||
INTEGER IDAMAX
|
|
||||||
DOUBLE PRECISION DLAMCH
|
|
||||||
- EXTERNAL LSAME, IDAMAX, DLAMCH
|
|
||||||
+ EXTERNAL LSAME, IDAMAX, DLAMCH, DISNAN
|
|
||||||
* ..
|
|
||||||
* .. External Subroutines ..
|
|
||||||
EXTERNAL DLACN2, DLATRS, DRSCL, XERBLA
|
|
||||||
@@ -175,7 +176,7 @@ SUBROUTINE DGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, IWORK,
|
|
||||||
INFO = -2
|
|
||||||
ELSE IF( LDA.LT.MAX( 1, N ) ) THEN
|
|
||||||
INFO = -4
|
|
||||||
- ELSE IF( ANORM.LT.ZERO ) THEN
|
|
||||||
+ ELSE IF( ANORM.LT.ZERO .OR. DISNAN( ANORM ) ) THEN
|
|
||||||
INFO = -5
|
|
||||||
END IF
|
|
||||||
IF( INFO.NE.0 ) THEN
|
|
||||||
diff --git a/SRC/sgecon.f b/SRC/sgecon.f
|
|
||||||
index a284b094b..86aeea73b 100644
|
|
||||||
--- a/SRC/sgecon.f
|
|
||||||
+++ b/SRC/sgecon.f
|
|
||||||
@@ -106,6 +106,7 @@
|
|
||||||
*> INFO is INTEGER
|
|
||||||
*> = 0: successful exit
|
|
||||||
*> < 0: if INFO = -i, the i-th argument had an illegal value
|
|
||||||
+*> =-5: if ANORM is NAN or negative.
|
|
||||||
*> \endverbatim
|
|
||||||
*
|
|
||||||
* Authors:
|
|
||||||
@@ -152,10 +153,10 @@ SUBROUTINE SGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, IWORK,
|
|
||||||
INTEGER ISAVE( 3 )
|
|
||||||
* ..
|
|
||||||
* .. External Functions ..
|
|
||||||
- LOGICAL LSAME
|
|
||||||
+ LOGICAL LSAME, SISNAN
|
|
||||||
INTEGER ISAMAX
|
|
||||||
REAL SLAMCH
|
|
||||||
- EXTERNAL LSAME, ISAMAX, SLAMCH
|
|
||||||
+ EXTERNAL LSAME, ISAMAX, SLAMCH, SISNAN
|
|
||||||
* ..
|
|
||||||
* .. External Subroutines ..
|
|
||||||
EXTERNAL SLACN2, SLATRS, SRSCL, XERBLA
|
|
||||||
@@ -175,7 +176,7 @@ SUBROUTINE SGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, IWORK,
|
|
||||||
INFO = -2
|
|
||||||
ELSE IF( LDA.LT.MAX( 1, N ) ) THEN
|
|
||||||
INFO = -4
|
|
||||||
- ELSE IF( ANORM.LT.ZERO ) THEN
|
|
||||||
+ ELSE IF( ANORM.LT.ZERO .OR. SISNAN( ANORM ) ) THEN
|
|
||||||
INFO = -5
|
|
||||||
END IF
|
|
||||||
IF( INFO.NE.0 ) THEN
|
|
||||||
diff --git a/SRC/zgecon.f b/SRC/zgecon.f
|
|
||||||
index 3d3127f9d..9cbfe35bc 100644
|
|
||||||
--- a/SRC/zgecon.f
|
|
||||||
+++ b/SRC/zgecon.f
|
|
||||||
@@ -106,6 +106,7 @@
|
|
||||||
*> INFO is INTEGER
|
|
||||||
*> = 0: successful exit
|
|
||||||
*> < 0: if INFO = -i, the i-th argument had an illegal value
|
|
||||||
+*> =-5: if ANORM is NAN or negative.
|
|
||||||
*> \endverbatim
|
|
||||||
*
|
|
||||||
* Authors:
|
|
||||||
@@ -153,10 +154,10 @@ SUBROUTINE ZGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, RWORK,
|
|
||||||
INTEGER ISAVE( 3 )
|
|
||||||
* ..
|
|
||||||
* .. External Functions ..
|
|
||||||
- LOGICAL LSAME
|
|
||||||
+ LOGICAL LSAME, DISNAN
|
|
||||||
INTEGER IZAMAX
|
|
||||||
DOUBLE PRECISION DLAMCH
|
|
||||||
- EXTERNAL LSAME, IZAMAX, DLAMCH
|
|
||||||
+ EXTERNAL LSAME, IZAMAX, DLAMCH, DISNAN
|
|
||||||
* ..
|
|
||||||
* .. External Subroutines ..
|
|
||||||
EXTERNAL XERBLA, ZDRSCL, ZLACN2, ZLATRS
|
|
||||||
@@ -182,7 +183,7 @@ SUBROUTINE ZGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, RWORK,
|
|
||||||
INFO = -2
|
|
||||||
ELSE IF( LDA.LT.MAX( 1, N ) ) THEN
|
|
||||||
INFO = -4
|
|
||||||
- ELSE IF( ANORM.LT.ZERO ) THEN
|
|
||||||
+ ELSE IF( ANORM.LT.ZERO .OR. DISNAN( ANORM ) ) THEN
|
|
||||||
INFO = -5
|
|
||||||
END IF
|
|
||||||
IF( INFO.NE.0 ) THEN
|
|
||||||
@ -1,5 +1,5 @@
|
|||||||
%global shortver 3
|
%global shortver 3
|
||||||
%global mediumver %{shortver}.11
|
%global mediumver %{shortver}.12
|
||||||
|
|
||||||
|
|
||||||
Name: lapack
|
Name: lapack
|
||||||
@ -12,8 +12,6 @@ Source0: https://github.com/Reference-LAPACK/lapack/archive/v%{version}.tar.gz
|
|||||||
Source1: http://www.netlib.org/lapack/manpages.tgz
|
Source1: http://www.netlib.org/lapack/manpages.tgz
|
||||||
|
|
||||||
Patch1: 0001-fix-lapack-devel-build-error.patch
|
Patch1: 0001-fix-lapack-devel-build-error.patch
|
||||||
# https://github.com/Reference-LAPACK/lapack/issues/763
|
|
||||||
Patch2: https://patch-diff.githubusercontent.com/raw/Reference-LAPACK/lapack/pull/765.patch
|
|
||||||
|
|
||||||
BuildRequires: gcc-gfortran
|
BuildRequires: gcc-gfortran
|
||||||
Provides: blas = %{version}-%{release}
|
Provides: blas = %{version}-%{release}
|
||||||
@ -208,6 +206,9 @@ sed -i 's|@LAPACK_VERSION@|%{version}|g' %{buildroot}%{_libdir}/pkgconfig/lapack
|
|||||||
%endif
|
%endif
|
||||||
|
|
||||||
%changelog
|
%changelog
|
||||||
|
* Sun Feb 18 2024 liyanan <liyanan61@h-partners.com> - 3.12.0-1
|
||||||
|
- Update to 3.12.0
|
||||||
|
|
||||||
* Wed Jun 14 2023 wangkai <13474090681@163.com> - 3.11.0-1
|
* Wed Jun 14 2023 wangkai <13474090681@163.com> - 3.11.0-1
|
||||||
- Update to 3.11.0
|
- Update to 3.11.0
|
||||||
|
|
||||||
|
|||||||
BIN
v3.11.0.tar.gz
BIN
v3.11.0.tar.gz
Binary file not shown.
BIN
v3.12.0.tar.gz
Normal file
BIN
v3.12.0.tar.gz
Normal file
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user