From 51d0853e361acb65f68341395be14fdf366b04aa Mon Sep 17 00:00:00 2001 From: David A Minton Date: Wed, 7 Dec 2022 19:53:44 -0500 Subject: [PATCH] Set temporary snapshot to be non-allocatable when saving --- src/symba/symba_util.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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