From 3e92b22df0f642b24cd32bc957ccafc1fb1da740 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 13 Jan 2023 14:58:12 -0500 Subject: [PATCH] Fixed allocation bug --- src/collision/collision_generate.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/collision/collision_generate.f90 b/src/collision/collision_generate.f90 index 428911657..e5c3035b9 100644 --- a/src/collision/collision_generate.f90 +++ b/src/collision/collision_generate.f90 @@ -203,6 +203,7 @@ module subroutine collision_generate_merge(self, nbody_system, param, t) ! its index in the main pl structure ibiggest = impactors%id(maxloc(pl%Gmass(impactors%id(:)), dim=1)) fragments%id(1) = pl%id(ibiggest) + if (allocated(fragments%info)) deallocate(fragments%info) allocate(fragments%info, source=pl%info(ibiggest:ibiggest)) ! Compute the physical properties of the new body after the merge.