diff --git a/example/linalg/example_pseudoinverse.f90 b/example/linalg/example_pseudoinverse.f90 index 0fc80ac53..33ed60aee 100644 --- a/example/linalg/example_pseudoinverse.f90 +++ b/example/linalg/example_pseudoinverse.f90 @@ -5,8 +5,6 @@ program example_pseudoinverse real :: A(15,5), Am1(5,15) type(linalg_state_type) :: state - integer :: i, j - real, parameter :: tol = sqrt(epsilon(0.0)) ! Generate random matrix A (15x15) call random_number(A) diff --git a/src/lapack/stdlib_lapack_auxiliary.fypp b/src/lapack/stdlib_lapack_auxiliary.fypp index 79bcf0214..0143343e6 100644 --- a/src/lapack/stdlib_lapack_auxiliary.fypp +++ b/src/lapack/stdlib_lapack_auxiliary.fypp @@ -163,7 +163,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary pure real(sp) module function stdlib${ii}$_slamc3( a, b ) ! -- lapack auxiliary routine -- ! univ. of tennessee, univ. of california berkeley and nag ltd.. - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments real(sp), intent(in) :: a, b ! ===================================================================== @@ -175,7 +174,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary pure real(dp) module function stdlib${ii}$_dlamc3( a, b ) ! -- lapack auxiliary routine -- ! univ. of tennessee, univ. of california berkeley and nag ltd.. - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments real(dp), intent(in) :: a, b ! ===================================================================== @@ -189,7 +187,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary pure real(${rk}$) module function stdlib${ii}$_${ri}$lamc3( a, b ) ! -- lapack auxiliary routine -- ! univ. of tennessee, univ. of california berkeley and nag ltd.. - use stdlib_blas_constants_${rk}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments real(${rk}$), intent(in) :: a, b ! ===================================================================== @@ -215,7 +212,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments real(sp), intent(inout) :: large, small ! ===================================================================== @@ -242,7 +238,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments real(dp), intent(inout) :: large, small ! ===================================================================== @@ -271,7 +266,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${rk}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments real(${rk}$), intent(inout) :: large, small ! ===================================================================== @@ -299,7 +293,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_sp, only: zero ! Scalar Arguments integer(${ik}$), intent(in) :: incx, n ! Array Arguments @@ -342,7 +336,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_dp, only: zero ! Scalar Arguments integer(${ik}$), intent(in) :: incx, n ! Array Arguments @@ -385,7 +379,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${rk}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_${rk}$, only: zero ! Scalar Arguments integer(${ik}$), intent(in) :: incx, n ! Array Arguments @@ -429,7 +423,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_sp, only: one ! Scalar Arguments character, intent(out) :: equed character, intent(in) :: uplo @@ -488,7 +482,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_dp, only: one ! Scalar Arguments character, intent(out) :: equed character, intent(in) :: uplo @@ -549,7 +543,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${rk}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_${rk}$, only: one ! Scalar Arguments character, intent(out) :: equed character, intent(in) :: uplo @@ -611,7 +605,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_sp, only: one ! Scalar Arguments character, intent(out) :: equed character, intent(in) :: uplo @@ -670,7 +664,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_dp, only: one ! Scalar Arguments character, intent(out) :: equed character, intent(in) :: uplo @@ -731,7 +725,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${ck}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_${ck}$, only: one ! Scalar Arguments character, intent(out) :: equed character, intent(in) :: uplo @@ -793,7 +787,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_sp, only: one ! Scalar Arguments real(sp), intent(inout) :: a real(sp), intent(in) :: b, c, d @@ -815,7 +809,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_dp, only: one ! Scalar Arguments real(dp), intent(inout) :: a real(dp), intent(in) :: b, c, d @@ -839,7 +833,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${rk}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_${rk}$, only: one ! Scalar Arguments real(${rk}$), intent(inout) :: a real(${rk}$), intent(in) :: b, c, d @@ -866,7 +860,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_sp, only: zero ! Scalar Arguments real(sp), intent(in) :: a, b, c, d, r, t ! ===================================================================== @@ -891,7 +885,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_dp, only: zero ! Scalar Arguments real(dp), intent(in) :: a, b, c, d, r, t ! ===================================================================== @@ -918,7 +912,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${rk}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_${rk}$, only: zero ! Scalar Arguments real(${rk}$), intent(in) :: a, b, c, d, r, t ! ===================================================================== @@ -950,7 +944,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments integer(${ik}$), intent(in) :: incx, incy, n real(sp), intent(in) :: c @@ -994,7 +987,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments integer(${ik}$), intent(in) :: incx, incy, n real(dp), intent(in) :: c @@ -1040,7 +1032,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_auxiliary ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${ck}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments integer(${ik}$), intent(in) :: incx, incy, n real(${ck}$), intent(in) :: c diff --git a/src/lapack/stdlib_lapack_blas_like_base.fypp b/src/lapack/stdlib_lapack_blas_like_base.fypp index 9ed689178..2306ba25d 100644 --- a/src/lapack/stdlib_lapack_blas_like_base.fypp +++ b/src/lapack/stdlib_lapack_blas_like_base.fypp @@ -12,7 +12,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(in) :: lda, m, n @@ -61,7 +60,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(in) :: lda, m, n @@ -112,7 +110,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${rk}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(in) :: lda, m, n @@ -164,7 +161,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(in) :: lda, m, n @@ -219,7 +215,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(in) :: lda, m, n @@ -276,7 +271,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${ck}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(in) :: lda, m, n @@ -336,7 +330,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_sp, only: one, two ! Scalar Arguments integer(${ik}$), intent(in) :: idist, n ! Array Arguments @@ -391,7 +385,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_dp, only: one, two ! Scalar Arguments integer(${ik}$), intent(in) :: idist, n ! Array Arguments @@ -448,7 +442,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${rk}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_${rk}$, only: one, two ! Scalar Arguments integer(${ik}$), intent(in) :: idist, n ! Array Arguments @@ -506,7 +500,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_sp, only: zero, one, two ! Scalar Arguments integer(${ik}$), intent(in) :: idist, n ! Array Arguments @@ -570,7 +564,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_dp, only: zero, one, two ! Scalar Arguments integer(${ik}$), intent(in) :: idist, n ! Array Arguments @@ -636,7 +630,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${ck}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_${ck}$, only: zero, one, two ! Scalar Arguments integer(${ik}$), intent(in) :: idist, n ! Array Arguments @@ -706,7 +700,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_sp, only: one ! Scalar Arguments integer(${ik}$), intent(in) :: n ! Array Arguments @@ -908,7 +902,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_dp, only: one ! Scalar Arguments integer(${ik}$), intent(in) :: n ! Array Arguments @@ -1111,7 +1105,7 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${rk}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone + use stdlib_blas_constants_${rk}$, only: one ! Scalar Arguments integer(${ik}$), intent(in) :: n ! Array Arguments @@ -1316,7 +1310,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(in) :: lda, ldb, m, n @@ -1356,7 +1349,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(in) :: lda, ldb, m, n @@ -1398,7 +1390,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${rk}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(in) :: lda, ldb, m, n @@ -1441,7 +1432,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(in) :: lda, ldb, m, n @@ -1481,7 +1471,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(in) :: lda, ldb, m, n @@ -1523,7 +1512,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${ck}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(in) :: lda, ldb, m, n @@ -1568,7 +1556,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(in) :: lda, ldb, m, n @@ -1608,7 +1595,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(in) :: lda, ldb, m, n @@ -1650,7 +1636,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${ck}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(in) :: lda, ldb, m, n @@ -1695,7 +1680,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -1951,7 +1935,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -2209,7 +2192,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${rk}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -2468,7 +2450,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -2726,7 +2707,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -2986,7 +2966,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${ck}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -3249,7 +3228,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -3477,7 +3455,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -3707,7 +3684,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${rk}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -3938,7 +3914,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -4187,7 +4162,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -4438,7 +4412,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${ck}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -4692,7 +4665,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -4933,7 +4905,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -5176,7 +5147,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${rk}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -5420,7 +5390,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -5677,7 +5646,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -5936,7 +5904,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${ck}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -6198,7 +6165,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(out) :: info @@ -6252,7 +6218,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(out) :: info @@ -6308,7 +6273,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${rk}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(out) :: info @@ -6365,7 +6329,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(out) :: info @@ -6419,7 +6382,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(out) :: info @@ -6475,7 +6437,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${ck}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(out) :: info @@ -6534,7 +6495,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -6761,7 +6721,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -6990,7 +6949,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${rk}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -7220,7 +7178,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -7468,7 +7425,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -7718,7 +7674,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${ck}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: transr, uplo integer(${ik}$), intent(out) :: info @@ -7971,7 +7926,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(out) :: info @@ -8025,7 +7979,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(out) :: info @@ -8081,7 +8034,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${rk}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(out) :: info @@ -8138,7 +8090,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(out) :: info @@ -8192,7 +8143,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(out) :: info @@ -8248,7 +8198,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack computational routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${ck}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(out) :: info @@ -8311,7 +8260,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments integer(${ik}$), intent(out) :: info integer(${ik}$), intent(in) :: lda, ldsa, m, n @@ -8350,7 +8298,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${rk}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments integer(${ik}$), intent(out) :: info integer(${ik}$), intent(in) :: lda, ldsa, m, n @@ -8392,7 +8339,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_dp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(out) :: info @@ -8445,7 +8391,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_${rk}$, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments character, intent(in) :: uplo integer(${ik}$), intent(out) :: info @@ -8501,7 +8446,6 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_base ! -- lapack auxiliary routine -- ! -- lapack is a software package provided by univ. of tennessee, -- ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..-- - use stdlib_blas_constants_sp, only: negone, zero, half, one, two, three, four, eight, ten, czero, chalf, cone, cnegone ! Scalar Arguments integer(${ik}$), intent(out) :: info integer(${ik}$), intent(in) :: lda, ldsa, m, n diff --git a/test/hash_functions_perf/test_32_bit_hash_performance.f90 b/test/hash_functions_perf/test_32_bit_hash_performance.f90 index 42fa5e5f9..916d00586 100755 --- a/test/hash_functions_perf/test_32_bit_hash_performance.f90 +++ b/test/hash_functions_perf/test_32_bit_hash_performance.f90 @@ -19,7 +19,6 @@ program test_32_bit_hash_performance integer, parameter :: rand_power = 16 integer, parameter :: rand_size = 2**rand_power integer, parameter :: test_size = rand_size * 4 - integer, parameter :: test_block = 2**10 integer, parameter :: repeat = 4 integer :: index, k integer :: lun diff --git a/test/io/test_npy.f90 b/test/io/test_npy.f90 index c56637030..ab432f666 100644 --- a/test/io/test_npy.f90 +++ b/test/io/test_npy.f90 @@ -628,7 +628,7 @@ subroutine test_iomsg_deallocated(error) character(len=:), allocatable :: msg character(len=*), parameter :: filename = ".test-iomsg-deallocated.npy" - real(sp), allocatable :: input(:, :), output(:, :) + real(sp), allocatable :: input(:, :) msg = "This message should be deallocated." diff --git a/test/linalg/test_linalg_determinant.fypp b/test/linalg/test_linalg_determinant.fypp index c80d0f7bc..6b5c954bc 100644 --- a/test/linalg/test_linalg_determinant.fypp +++ b/test/linalg/test_linalg_determinant.fypp @@ -43,7 +43,6 @@ module test_linalg_determinant type(linalg_state_type) :: state - integer(ilp) :: i integer(ilp), parameter :: n = 128_ilp ${rt}$ :: a(n,n),deta @@ -79,7 +78,7 @@ module test_linalg_determinant integer(ilp), parameter :: n = 4_ilp real(${rk}$), parameter :: coef = 0.01_${rk}$ - integer(ilp) :: i,j + integer(ilp) :: i ${rt}$ :: a(n,n),deta !> Multiply eye by a very small number @@ -108,7 +107,7 @@ module test_linalg_determinant type(linalg_state_type) :: state - integer(ilp) :: i,j,n + integer(ilp) :: i,n integer(ilp), parameter :: nmax = 10_ilp ${ct}$, parameter :: res(nmax) = [${ct}$::(1,1),(0,2),(-2,2),(-4,0),(-4,-4), & diff --git a/test/linalg/test_linalg_inverse.fypp b/test/linalg/test_linalg_inverse.fypp index 679a586c5..e59b03b7f 100644 --- a/test/linalg/test_linalg_inverse.fypp +++ b/test/linalg/test_linalg_inverse.fypp @@ -95,7 +95,6 @@ module test_linalg_inverse integer(ilp), intent(in) :: n ${rt}$ :: A(n,n) - ${rt}$, parameter :: one = 1.0_${rk}$ ${rt}$, parameter :: half = 0.5_${rk}$ !> Initialize with randoms diff --git a/test/linalg/test_linalg_mnorm.fypp b/test/linalg/test_linalg_mnorm.fypp index 890ca1885..ecfe2810a 100644 --- a/test/linalg/test_linalg_mnorm.fypp +++ b/test/linalg/test_linalg_mnorm.fypp @@ -31,12 +31,11 @@ module test_linalg_mnorm subroutine test_matrix_norms_${ri}$(error) type(error_type), allocatable, intent(out) :: error - integer(ilp) :: i,j,m,n + integer(ilp) :: i integer(ilp), parameter :: mtx_dim = 5 real(${rk}$), parameter :: tol = 10*sqrt(epsilon(0.0_${rk}$)) ${rt}$, allocatable :: A(:,:) type(linalg_state_type) :: err - character(64) :: msg allocate(A(mtx_dim,mtx_dim)) diff --git a/test/linalg/test_linalg_schur.fypp b/test/linalg/test_linalg_schur.fypp index 139fdf360..066077beb 100644 --- a/test/linalg/test_linalg_schur.fypp +++ b/test/linalg/test_linalg_schur.fypp @@ -36,7 +36,6 @@ module test_linalg_schur integer(ilp), parameter :: n = 15_ilp integer(ilp) :: lwork - real(${rk}$), parameter :: tol = 10*sqrt(epsilon(0.0_${rk}$)) complex(${rk}$) :: eigs(n) ${rt}$, dimension(n,n) :: a,t,z ${rt}$, allocatable :: storage(:) diff --git a/test/linalg/test_linalg_solve.fypp b/test/linalg/test_linalg_solve.fypp index 957c8b0d6..49d10abb4 100644 --- a/test/linalg/test_linalg_solve.fypp +++ b/test/linalg/test_linalg_solve.fypp @@ -95,7 +95,6 @@ module test_linalg_solve type(linalg_state_type) :: state ${rt}$ :: A(5,5), b(5), res(5), x(5) - integer(ilp) :: i ! Fill in linear system A = (0.0_${rk}$,0.0_${rk}$) diff --git a/test/linalg/test_linalg_sparse.fypp b/test/linalg/test_linalg_sparse.fypp index 969f84dd4..21237f862 100644 --- a/test/linalg/test_linalg_sparse.fypp +++ b/test/linalg/test_linalg_sparse.fypp @@ -305,7 +305,6 @@ contains type(COO_${s1}$_type) :: COO type(CSR_${s1}$_type) :: CSR type(CSC_${s1}$_type) :: CSC - type(ELL_${s1}$_type) :: ELL ${t1}$, allocatable :: diagonal(:) allocate( dense(4,4) , source = & diff --git a/test/stats/test_distribution_exponential.fypp b/test/stats/test_distribution_exponential.fypp index 95dc998c1..01d3f5bb5 100644 --- a/test/stats/test_distribution_exponential.fypp +++ b/test/stats/test_distribution_exponential.fypp @@ -74,7 +74,7 @@ contains subroutine test_expon_rvs_${t1[0]}$${k1}$ ${t1}$ :: res(10), scale integer, parameter :: k = 5 - integer :: i, n + integer :: i integer :: seed, get #:if t1[0] == "r" #! for real type @@ -143,7 +143,6 @@ contains subroutine test_expon_pdf_${t1[0]}$${k1}$ ${t1}$ :: x1, x2(3,4), scale - integer :: i, n integer :: seed, get real(${k1}$) :: res(3,5) #:if t1[0] == "r" @@ -212,7 +211,6 @@ contains subroutine test_expon_cdf_${t1[0]}$${k1}$ ${t1}$ :: x1, x2(3,4), scale - integer :: i, n integer :: seed, get real(${k1}$) :: res(3,5) #:if t1[0] == "r" diff --git a/test/stats/test_distribution_normal.fypp b/test/stats/test_distribution_normal.fypp index 72e2746a4..82e6faca7 100644 --- a/test/stats/test_distribution_normal.fypp +++ b/test/stats/test_distribution_normal.fypp @@ -76,7 +76,7 @@ contains subroutine test_nor_rvs_${t1[0]}$${k1}$ ${t1}$ :: res(10), loc, scale integer, parameter :: k = 5 - integer :: i, n + integer :: i integer :: seed, get #:if t1[0] == "r" #! for real type @@ -145,7 +145,7 @@ contains ${t1}$ :: x1, x2(3,4), loc, scale integer, parameter :: k = 5 - integer :: i, n, seed, get + integer :: seed, get real(${k1}$) :: res(3,5) #:if t1[0] == "r" #! for real type @@ -213,7 +213,6 @@ contains subroutine test_nor_cdf_${t1[0]}$${k1}$ ${t1}$ :: x1, x2(3,4), loc, scale - integer :: i, n integer :: seed, get real(${k1}$) :: res(3,5) #:if t1[0] == "r" diff --git a/test/stats/test_distribution_uniform.fypp b/test/stats/test_distribution_uniform.fypp index 4975d9003..654a850f1 100644 --- a/test/stats/test_distribution_uniform.fypp +++ b/test/stats/test_distribution_uniform.fypp @@ -13,7 +13,7 @@ program test_distribution_uniform #:for k1, t1 in REAL_KINDS_TYPES ${t1}$, parameter :: ${k1}$tol = 1000 * epsilon(1.0_${k1}$) #:endfor - integer :: put, get + integer :: put put = 135792468 @@ -101,7 +101,7 @@ contains #:for k1, t1 in ALL_KINDS_TYPES subroutine test_uni_rvs_${t1[0]}$${k1}$ ${t1}$ :: res(15), scale, loc - integer :: i, n, seed, get, k + integer :: i, seed, get, k #:if k1 == "int8" ${t1}$, parameter :: ans(15) = [47, 99, 43, 37, 48, 30, 27, 100, 30, &