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

Commit

Permalink
Refactor for new documentation format
Browse files Browse the repository at this point in the history
  • Loading branch information
daminton committed Feb 27, 2024
1 parent 7d5209b commit 7f87b1d
Showing 1 changed file with 8 additions and 5 deletions.
13 changes: 8 additions & 5 deletions src/symba/symba_util.f90
Original file line number Diff line number Diff line change
Expand Up @@ -130,17 +130,20 @@ module subroutine symba_util_fill_pl(self, inserts, lfill_list)
!!
implicit none
! Arguments
class(symba_pl), intent(inout) :: self !! SyMBA masive body object
class(swiftest_body), intent(in) :: inserts !! Inserted object
logical, dimension(:), intent(in) :: lfill_list !! Logical array of bodies to merge into the keeps
class(symba_pl), intent(inout) :: self
!! SyMBA masive body object
class(swiftest_body), intent(in) :: inserts
!! Inserted object
logical, dimension(:), intent(in) :: lfill_list
!! Logical array of bodies to merge into the keeps

associate(keeps => self)
select type(inserts)
class is (symba_pl)
call util_fill(keeps%levelg, inserts%levelg, lfill_list)
call util_fill(keeps%levelm, inserts%levelm, lfill_list)

call swiftest_util_fill_pl(keeps, inserts, lfill_list) ! Note: helio_pl does not have its own fill method, so we skip back to the base class
! Note: helio_pl does not have its own fill method, so we skip back to the base class
call swiftest_util_fill_pl(keeps, inserts, lfill_list)
class default
write(*,*) "Invalid object passed to the fill method. Source must be of class symba_pl or its descendents!"
call base_util_exit(FAILURE)
Expand Down

0 comments on commit 7f87b1d

Please sign in to comment.