Deallocate temporary variables during rearray

MintonGroup · Aug 7, 2021 · dcf602a · dcf602a
1 parent e880213
commit dcf602a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/symba/symba_util.f90 b/src/symba/symba_util.f90
@@ -388,6 +388,10 @@ module subroutine symba_util_rearray_pl(self, system, param)
          call tmp%setup(0,param)
          deallocate(tmp)
 
+         ! Deallocate any temporary variables
+         if (allocated(pl%xbeg)) deallocate(pl%xbeg)
+         if (allocated(pl%xend)) deallocate(pl%xend)
+
          ! Add in any new bodies
          call pl%append(pl_adds)