Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Removed unused variables #935

Merged
merged 7 commits into from
Feb 10, 2025
Merged

Removed unused variables #935

Changes from all commits
Commits
Show all changes
7 commits
Select commit Hold shift + click to select a range
b11b721
Clean stdlib_lapack_auxiliary
jvdp1 Feb 9, 2025
929fdf5
Removed unused parameters in stdlib_lapack_blas_like_base
jvdp1 Feb 9, 2025
37de276
Remove unused variables in test_distribution_*
jvdp1 Feb 9, 2025
e163224
Remove unused variables in test_linalg_*
jvdp1 Feb 9, 2025
f96a139
Remove unused variables in test_npy_*
jvdp1 Feb 9, 2025
d1dc276
Remove unused variables in test_hash_*
jvdp1 Feb 9, 2025
17d70b5
Remove unused variables in example_pseudoinverse
jvdp1 Feb 9, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 0 additions & 2 deletions example/linalg/example_pseudoinverse.f90
View file
Original file line number Diff line number Diff line change
@@ -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)
39 changes: 15 additions & 24 deletions src/lapack/stdlib_lapack_auxiliary.fypp
View file
Original file line number Diff line number Diff line change
@@ -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
Loading
Loading