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

Commit

Permalink
Cleaned up a few comments
Browse files Browse the repository at this point in the history
  • Loading branch information
daminton committed Jul 28, 2021
1 parent 720f15e commit 5b5d8e8
Show file tree
Hide file tree
Showing 2 changed files with 9 additions and 9 deletions.
8 changes: 4 additions & 4 deletions src/modules/symba_classes.f90
Original file line number Diff line number Diff line change
Expand Up @@ -390,27 +390,27 @@ end subroutine symba_util_resize_pltpenc

module subroutine symba_util_sort_pl(self, sortby, ascending)
implicit none
class(symba_pl), intent(inout) :: self !! Symba massive body object
class(symba_pl), intent(inout) :: self !! SyMBA massive body object
character(*), intent(in) :: sortby !! Sorting attribute
logical, intent(in) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order
end subroutine symba_util_sort_pl

module subroutine symba_util_sort_tp(self, sortby, ascending)
implicit none
class(symba_tp), intent(inout) :: self !! Swiftest test particle object
class(symba_tp), intent(inout) :: self !! SyMBA test particle object
character(*), intent(in) :: sortby !! Sorting attribute
logical, intent(in) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order
end subroutine symba_util_sort_tp

module subroutine symba_util_sort_rearrange_pl(self, ind)
implicit none
class(symba_pl), intent(inout) :: self !! Symba massive body object
class(symba_pl), intent(inout) :: self !! SyMBA massive body object
integer(I4B), dimension(:), intent(in) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order)
end subroutine symba_util_sort_rearrange_pl

module subroutine symba_util_sort_rearrange_tp(self, ind)
implicit none
class(symba_tp), intent(inout) :: self !! Symba massive body object
class(symba_tp), intent(inout) :: self !! SyMBA massive body object
integer(I4B), dimension(:), intent(in) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order)
end subroutine symba_util_sort_rearrange_tp

Expand Down
10 changes: 5 additions & 5 deletions src/symba/symba_util.f90
Original file line number Diff line number Diff line change
Expand Up @@ -68,11 +68,11 @@ end subroutine symba_util_resize_pltpenc
module subroutine symba_util_sort_pl(self, sortby, ascending)
!! author: David A. Minton
!!
!! Sort a Swiftest test particle object in-place.
!! Sort a SyMBA massive body object in-place.
!! sortby is a string indicating which array component to sort.
implicit none
! Arguments
class(symba_pl), intent(inout) :: self !! Symba massive body object
class(symba_pl), intent(inout) :: self !! SyMBA massive body object
character(*), intent(in) :: sortby !! Sorting attribute
logical, intent(in) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order
! Internals
Expand Down Expand Up @@ -128,11 +128,11 @@ end subroutine symba_util_sort_pl
module subroutine symba_util_sort_tp(self, sortby, ascending)
!! author: David A. Minton
!!
!! Sort a Swiftest test particle object in-place.
!! Sort a SyMBA test particle object in-place.
!! sortby is a string indicating which array component to sort.
implicit none
! Arguments
class(symba_tp), intent(inout) :: self !! Swiftest test particle object
class(symba_tp), intent(inout) :: self !! SyMBA test particle object
character(*), intent(in) :: sortby !! Sorting attribute
logical, intent(in) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order
! Internals
Expand Down Expand Up @@ -207,7 +207,7 @@ end subroutine symba_util_sort_rearrange_pl
module subroutine symba_util_sort_rearrange_tp(self, ind)
!! author: David A. Minton
!!
!! Rearrange SyMBA test particle object in-place from an index list.
!! Rearrange SyMBA test particle object in-place from an index list.
!! This is a helper utility used to make polymorphic sorting work on Swiftest structures.
implicit none
! Arguments
Expand Down

0 comments on commit 5b5d8e8

Please sign in to comment.