diff --git a/765.patch b/765.patch deleted file mode 100644 index 0276091..0000000 --- a/765.patch +++ /dev/null @@ -1,148 +0,0 @@ -From 5d8a3a804befd179a28c5e4c7845e982b8d1922e Mon Sep 17 00:00:00 2001 -From: Weslley S Pereira -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 diff --git a/lapack.spec b/lapack.spec index bccac6a..22827f6 100644 --- a/lapack.spec +++ b/lapack.spec @@ -1,5 +1,5 @@ %global shortver 3 -%global mediumver %{shortver}.11 +%global mediumver %{shortver}.12 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 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 Provides: blas = %{version}-%{release} @@ -208,6 +206,9 @@ sed -i 's|@LAPACK_VERSION@|%{version}|g' %{buildroot}%{_libdir}/pkgconfig/lapack %endif %changelog +* Sun Feb 18 2024 liyanan - 3.12.0-1 +- Update to 3.12.0 + * Wed Jun 14 2023 wangkai <13474090681@163.com> - 3.11.0-1 - Update to 3.11.0 diff --git a/v3.11.0.tar.gz b/v3.11.0.tar.gz deleted file mode 100644 index 315d0aa..0000000 Binary files a/v3.11.0.tar.gz and /dev/null differ diff --git a/v3.12.0.tar.gz b/v3.12.0.tar.gz new file mode 100644 index 0000000..71cdc7c Binary files /dev/null and b/v3.12.0.tar.gz differ