diff --git a/src/fraggle/fraggle_setup.f90 b/src/fraggle/fraggle_setup.f90 index 5b9442ff6..63e2a2f5b 100644 --- a/src/fraggle/fraggle_setup.f90 +++ b/src/fraggle/fraggle_setup.f90 @@ -45,7 +45,7 @@ module subroutine fraggle_setup_fragments(self, n, param) integer(I4B), intent(in) :: n class(swiftest_parameters), intent(in) :: param - call self%collision_fragments%setup(n, param) + call collision_setup_fragments(self, n, param) if (n < 0) return if (allocated(self%v_r_mag)) deallocate(self%v_r_mag)