Cleaned up some unused variables

MintonGroup · May 19, 2023 · 22bad3d · 22bad3d
1 parent 4d52767
commit 22bad3d
Show file tree

Hide file tree

Showing 3 changed files with 1 addition and 6 deletions.
diff --git 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
@@ -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
@@ -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