From c35492eb10fbc0e8fdb769d0ea17029ee73e6017 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 5 Nov 2021 17:13:34 -0400 Subject: [PATCH] Fixed deallocation error for kinship array --- src/symba/symba_util.f90 | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/src/symba/symba_util.f90 b/src/symba/symba_util.f90 index 50c3c4e4b..d38106705 100644 --- a/src/symba/symba_util.f90 +++ b/src/symba/symba_util.f90 @@ -265,11 +265,12 @@ module subroutine symba_util_dealloc_pl(self) if (allocated(self%peri)) deallocate(self%peri) if (allocated(self%atp)) deallocate(self%atp) - do i = 1, self%nbody - call self%kin(i)%dealloc() - end do - - if (allocated(self%kin)) deallocate(self%kin) + if (allocated(self%kin)) then + do i = 1, self%nbody + call self%kin(i)%dealloc() + end do + deallocate(self%kin) + end if call util_dealloc_pl(self)