Merge pull request #1130 from angsch/rm-version

langou · web-flow · commit 8282ae96885d · 2025-06-13T14:54:49.000-06:00
Remove hardcoded "version 3.X"
diff --git 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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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..--
 *

Original file line number	Diff line number	Diff line change
`@@ -89,7 +89,7 @@ function DNRM2( n, x, incx )`
`89`	`89`	`integer, parameter :: wp = kind(1.d0)`
`90`	`90`	`real(wp) :: DNRM2`
`91`	`91`	`!`
`92`		`-! -- Reference BLAS level1 routine (version 3.9.1) --`
	`92`	`+! -- Reference BLAS level1 routine --`
`93`	`93`	`! -- Reference BLAS is a software package provided by Univ. of Tennessee, --`
`94`	`94`	`! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`
`95`	`95`	`! March 2021`
Original file line number	Diff line number	Diff line change
`@@ -90,7 +90,7 @@ function DZNRM2( n, x, incx )`
`90`	`90`	`integer, parameter :: wp = kind(1.d0)`
`91`	`91`	`real(wp) :: DZNRM2`
`92`	`92`	`!`
`93`		`-! -- Reference BLAS level1 routine (version 3.9.1) --`
	`93`	`+! -- Reference BLAS level1 routine --`
`94`	`94`	`! -- Reference BLAS is a software package provided by Univ. of Tennessee, --`
`95`	`95`	`! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`
`96`	`96`	`! March 2021`
Original file line number	Diff line number	Diff line change
`@@ -90,7 +90,7 @@ function SCNRM2( n, x, incx )`
`90`	`90`	`integer, parameter :: wp = kind(1.e0)`
`91`	`91`	`real(wp) :: SCNRM2`
`92`	`92`	`!`
`93`		`-! -- Reference BLAS level1 routine (version 3.9.1) --`
	`93`	`+! -- Reference BLAS level1 routine --`
`94`	`94`	`! -- Reference BLAS is a software package provided by Univ. of Tennessee, --`
`95`	`95`	`! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`
`96`	`96`	`! March 2021`
Original file line number	Diff line number	Diff line change
`@@ -89,7 +89,7 @@ function SNRM2( n, x, incx )`
`89`	`89`	`integer, parameter :: wp = kind(1.e0)`
`90`	`90`	`real(wp) :: SNRM2`
`91`	`91`	`!`
`92`		`-! -- Reference BLAS level1 routine (version 3.9.1) --`
	`92`	`+! -- Reference BLAS level1 routine --`
`93`	`93`	`! -- Reference BLAS is a software package provided by Univ. of Tennessee, --`
`94`	`94`	`! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`
`95`	`95`	`! March 2021`
Original file line number	Diff line number	Diff line change
`@@ -134,7 +134,7 @@`
`134`	`134`	`* =====================================================================`
`135`	`135`	`SUBROUTINE CGETRF( M, N, A, LDA, IPIV, INFO )`
`136`	`136`	`*`
`137`		`-* -- LAPACK computational routine (version 3.X) --`
	`137`	`+* -- LAPACK computational routine --`
`138`	`138`	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`
`139`	`139`	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`
`140`	`140`	`*`