From 22bad3db298ddb0d34548c252ceb7af50dbb7c0c Mon Sep 17 00:00:00 2001 From: David Minton Date: Fri, 19 May 2023 12:03:18 -0400 Subject: [PATCH] Cleaned up some unused variables --- src/collision/collision_generate.f90 | 1 - src/misc/solver_module.f90 | 2 +- src/whm/whm_gr.f90 | 4 ---- 3 files changed, 1 insertion(+), 6 deletions(-) diff --git a/src/collision/collision_generate.f90 b/src/collision/collision_generate.f90 index f0fc6d9e7..6162122cf 100644 --- a/src/collision/collision_generate.f90 +++ b/src/collision/collision_generate.f90 @@ -46,7 +46,6 @@ module subroutine collision_generate_bounce(self, nbody_system, param, t) real(DP), intent(in) :: t !! The time of the collision ! Internals integer(I4B) :: i,j,nimp - real(DP), dimension(NDIM) :: rcom, vcom, rnorm logical, dimension(:), allocatable :: lmask select type(nbody_system) diff --git a/src/misc/solver_module.f90 b/src/misc/solver_module.f90 index 936914561..872db6428 100644 --- a/src/misc/solver_module.f90 +++ b/src/misc/solver_module.f90 @@ -16,7 +16,7 @@ module solver use lambda_function use, intrinsic :: ieee_exceptions private - public :: solve_linear_system, solve_rkf45, solve_roots + public :: solve_linear_system, solve_roots !, solve_rkf45 interface solve_linear_system module procedure solve_linear_system_dp diff --git a/src/whm/whm_gr.f90 b/src/whm/whm_gr.f90 index 8eb69abc6..1b1716800 100644 --- a/src/whm/whm_gr.f90 +++ b/src/whm/whm_gr.f90 @@ -25,8 +25,6 @@ pure module subroutine whm_gr_kick_getacch_pl(self, param) ! Internals integer(I4B) :: i real(DP), dimension(NDIM) :: suma - real(DP), dimension(:, :), allocatable :: aj - real(DP) :: beta, rjmag4 if (self%nbody == 0) return @@ -56,8 +54,6 @@ pure module subroutine whm_gr_kick_getacch_tp(self, param) class(whm_tp), intent(inout) :: self !! WHM massive body particle data structure class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters ! Internals - integer(I4B) :: i - real(DP) :: rjmag4, beta if (self%nbody == 0) return