diff --git a/src/symba/symba_util.f90 b/src/symba/symba_util.f90 index b5b74d93e..41fd746ad 100644 --- a/src/symba/symba_util.f90 +++ b/src/symba/symba_util.f90 @@ -1340,12 +1340,11 @@ module subroutine symba_util_take_encounter_snapshot(self, param, t) class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters real(DP), intent(in) :: t !! current time ! Arguments - type(symba_encounter_snapshot), allocatable :: snapshot + type(symba_encounter_snapshot) :: snapshot integer(I4B) :: i, npl_snap, ntp_snap associate(npl => self%pl%nbody, ntp => self%tp%nbody) - allocate(symba_encounter_snapshot :: snapshot) snapshot%t = t if (npl + ntp == 0) return