From 1a92dcac7ccc6693160a4d25008b6301aeec6ec2 Mon Sep 17 00:00:00 2001 From: Angelika Schwarz Date: Tue, 3 Jun 2025 12:18:29 +0200 Subject: [PATCH] Remove hardcoded "version 3.X" --- BLAS/SRC/dnrm2.f90 | 2 +- BLAS/SRC/dznrm2.f90 | 2 +- BLAS/SRC/scnrm2.f90 | 2 +- BLAS/SRC/snrm2.f90 | 2 +- SRC/VARIANTS/lu/REC/cgetrf.f | 2 +- SRC/VARIANTS/lu/REC/dgetrf.f | 2 +- SRC/VARIANTS/lu/REC/sgetrf.f | 2 +- SRC/VARIANTS/lu/REC/zgetrf.f | 2 +- 8 files changed, 8 insertions(+), 8 deletions(-) diff --git a/BLAS/SRC/dnrm2.f90 b/BLAS/SRC/dnrm2.f90 index fac9e21b7c..ef5cee78af 100644 --- a/BLAS/SRC/dnrm2.f90 +++ b/BLAS/SRC/dnrm2.f90 @@ -89,7 +89,7 @@ function DNRM2( n, x, incx ) integer, parameter :: wp = kind(1.d0) real(wp) :: DNRM2 ! -! -- Reference BLAS level1 routine (version 3.9.1) -- +! -- Reference BLAS level1 routine -- ! -- Reference BLAS is a software package provided by Univ. of Tennessee, -- ! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- ! March 2021 diff --git a/BLAS/SRC/dznrm2.f90 b/BLAS/SRC/dznrm2.f90 index 513cbdb18b..3055f02a0c 100644 --- a/BLAS/SRC/dznrm2.f90 +++ b/BLAS/SRC/dznrm2.f90 @@ -90,7 +90,7 @@ function DZNRM2( n, x, incx ) integer, parameter :: wp = kind(1.d0) real(wp) :: DZNRM2 ! -! -- Reference BLAS level1 routine (version 3.9.1) -- +! -- Reference BLAS level1 routine -- ! -- Reference BLAS is a software package provided by Univ. of Tennessee, -- ! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- ! March 2021 diff --git a/BLAS/SRC/scnrm2.f90 b/BLAS/SRC/scnrm2.f90 index 6729933487..e8a7b72332 100644 --- a/BLAS/SRC/scnrm2.f90 +++ b/BLAS/SRC/scnrm2.f90 @@ -90,7 +90,7 @@ function SCNRM2( n, x, incx ) integer, parameter :: wp = kind(1.e0) real(wp) :: SCNRM2 ! -! -- Reference BLAS level1 routine (version 3.9.1) -- +! -- Reference BLAS level1 routine -- ! -- Reference BLAS is a software package provided by Univ. of Tennessee, -- ! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- ! March 2021 diff --git a/BLAS/SRC/snrm2.f90 b/BLAS/SRC/snrm2.f90 index 70dc48b248..83526c3b37 100644 --- a/BLAS/SRC/snrm2.f90 +++ b/BLAS/SRC/snrm2.f90 @@ -89,7 +89,7 @@ function SNRM2( n, x, incx ) integer, parameter :: wp = kind(1.e0) real(wp) :: SNRM2 ! -! -- Reference BLAS level1 routine (version 3.9.1) -- +! -- Reference BLAS level1 routine -- ! -- Reference BLAS is a software package provided by Univ. of Tennessee, -- ! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- ! March 2021 diff --git a/SRC/VARIANTS/lu/REC/cgetrf.f b/SRC/VARIANTS/lu/REC/cgetrf.f index a8fe3fb28f..c9916dd017 100644 --- a/SRC/VARIANTS/lu/REC/cgetrf.f +++ b/SRC/VARIANTS/lu/REC/cgetrf.f @@ -134,7 +134,7 @@ * ===================================================================== SUBROUTINE CGETRF( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.X) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * diff --git a/SRC/VARIANTS/lu/REC/dgetrf.f b/SRC/VARIANTS/lu/REC/dgetrf.f index 5c79747d22..d5057b3245 100644 --- a/SRC/VARIANTS/lu/REC/dgetrf.f +++ b/SRC/VARIANTS/lu/REC/dgetrf.f @@ -134,7 +134,7 @@ * ===================================================================== SUBROUTINE DGETRF( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.X) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * diff --git a/SRC/VARIANTS/lu/REC/sgetrf.f b/SRC/VARIANTS/lu/REC/sgetrf.f index 3c045e576a..15e0809435 100644 --- a/SRC/VARIANTS/lu/REC/sgetrf.f +++ b/SRC/VARIANTS/lu/REC/sgetrf.f @@ -134,7 +134,7 @@ * ===================================================================== SUBROUTINE SGETRF( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.X) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * diff --git a/SRC/VARIANTS/lu/REC/zgetrf.f b/SRC/VARIANTS/lu/REC/zgetrf.f index 0484eb89aa..3b7055626d 100644 --- a/SRC/VARIANTS/lu/REC/zgetrf.f +++ b/SRC/VARIANTS/lu/REC/zgetrf.f @@ -134,7 +134,7 @@ * ===================================================================== SUBROUTINE ZGETRF( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.X) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- *