diff --git a/src/modules/swiftest_classes.f90 b/src/modules/swiftest_classes.f90 index 00802f3fa..47d66ee51 100644 --- a/src/modules/swiftest_classes.f90 +++ b/src/modules/swiftest_classes.f90 @@ -165,7 +165,6 @@ module swiftest_classes procedure :: setup => setup_body !! A constructor that sets the number of bodies and allocates all allocatable arrays procedure :: accel_user => user_kick_getacch_body !! Add user-supplied heliocentric accelerations to planets procedure :: append => util_append_body !! Appends elements from one structure to another - procedure :: copy_into => util_copy_into_body !! Copies elements from one Swiftest body object to another. procedure :: fill => util_fill_body !! "Fills" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure :: resize => util_resize_body !! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure :: set_ir3 => util_set_ir3h !! Sets the inverse heliocentric radius term (1/rh**3) @@ -770,14 +769,6 @@ module subroutine util_coord_h2b_tp(self, cb) class(swiftest_cb), intent(in) :: cb !! Swiftest central body object end subroutine util_coord_h2b_tp - module subroutine util_copy_into_body(self, source, param, lsource_mask) - implicit none - class(swiftest_body), intent(inout) :: self !! Swiftest body object - class(swiftest_body), intent(in) :: source !! Source object to append - class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters - logical, dimension(:), optional, intent(in) :: lsource_mask !! Logical mask indicating which elements to append to - end subroutine util_copy_into_body - module subroutine util_exit(code) implicit none integer(I4B), intent(in) :: code !! Failure exit code diff --git a/src/util/util_copy.f90 b/src/util/util_copy.f90 deleted file mode 100644 index b21f061f4..000000000 --- a/src/util/util_copy.f90 +++ /dev/null @@ -1,35 +0,0 @@ -submodule (swiftest_classes) s_util_copy - use swiftest -contains - - module subroutine util_copy_into_body(self, source, param, lsource_mask) - !! author: David A. Minton - !! - !! Copies elements from one Swiftest body object to another. - !! This method will automatically resize the destination body if it is too small - implicit none - ! Arguments - class(swiftest_body), intent(inout) :: self !! Swiftest body object - class(swiftest_body), intent(in) :: source !! Source object to append - class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters - logical, dimension(:), optional, intent(in) :: lsource_mask !! Logical mask indicating which elements to append to - ! Internals - integer(I4B) :: i,nnew - logical, dimension(:), allocatable :: lfill_list - - if (present(lsource_mask)) then - nnew = count(lsource_mask) - else - nnew = size(source%status) - end if - allocate(lfill_list(size(self%status))) - lfill_list = .false. - lfill_list(1:nnew) = .true. - associate(nold => self%nbody) - if (nnew > size(self%status)) call self%resize(nnew) - call self%fill(source, lfill_list) - end associate - return - end subroutine util_copy_into_body - -end submodule s_util_copy \ No newline at end of file