Skip to content
This repository was archived by the owner on Aug 28, 2024. It is now read-only.

Commit

Permalink
Cleaned up formatting and corrected comment typos
Browse files Browse the repository at this point in the history
  • Loading branch information
daminton committed Jul 28, 2021
1 parent 1bd12ac commit 2536428
Showing 1 changed file with 10 additions and 10 deletions.
20 changes: 10 additions & 10 deletions src/rmvs/rmvs_util.f90
Original file line number Diff line number Diff line change
Expand Up @@ -13,7 +13,7 @@ module subroutine rmvs_util_fill_pl(self, inserts, lfill_list)
class(swiftest_body), intent(inout) :: inserts !! Inserted object
logical, dimension(:), intent(in) :: lfill_list !! Logical array of bodies to merge into the keeps
! Internals
integer(I4B) :: i
integer(I4B) :: i

associate(keeps => self)
select type(inserts)
Expand All @@ -39,9 +39,9 @@ module subroutine rmvs_util_fill_tp(self, inserts, lfill_list)
!!
implicit none
! Arguments
class(rmvs_tp), intent(inout) :: self !! RMVS massive body object
class(swiftest_body), intent(inout) :: inserts !! Inserted object
logical, dimension(:), intent(in) :: lfill_list !! Logical array of bodies to merge into the keeps
class(rmvs_tp), intent(inout) :: self !! RMVS test particle object
class(swiftest_body), intent(inout) :: inserts !! Inserted object
logical, dimension(:), intent(in) :: lfill_list !! Logical array of bodies to merge into the keeps

associate(keeps => self)
select type(inserts)
Expand Down Expand Up @@ -73,11 +73,11 @@ module subroutine rmvs_util_spill_pl(self, discards, lspill_list)
!! Adapted from David E. Kaufmann's Swifter routine discard_discard_spill.f90
implicit none
! Arguments
class(rmvs_pl), intent(inout) :: self !! Swiftest massive body body object
class(rmvs_pl), intent(inout) :: self !! RMVS massive body body object
class(swiftest_body), intent(inout) :: discards !! Discarded object
logical, dimension(:), intent(in) :: lspill_list !! Logical array of bodies to spill into the discards
! Internals
integer(I4B) :: i
integer(I4B) :: i

associate(keeps => self)
select type(discards)
Expand All @@ -104,11 +104,11 @@ module subroutine rmvs_util_spill_tp(self, discards, lspill_list)
!! Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90
implicit none
! Arguments
class(rmvs_tp), intent(inout) :: self !! RMVS test particle object
class(swiftest_body), intent(inout) :: discards !! Discarded object
logical, dimension(:), intent(in) :: lspill_list !! Logical array of bodies to spill into the discards
class(rmvs_tp), intent(inout) :: self !! RMVS test particle object
class(swiftest_body), intent(inout) :: discards !! Discarded object
logical, dimension(:), intent(in) :: lspill_list !! Logical array of bodies to spill into the discards
! Internals
integer(I4B) :: i
integer(I4B) :: i

associate(keeps => self)
select type(discards)
Expand Down

0 comments on commit 2536428

Please sign in to comment.