Fixed deallocation error for kinship array

MintonGroup · Nov 5, 2021 · c35492e · c35492e
1 parent 6cc647a
commit c35492e
Showing 1 changed file with 6 additions and 5 deletions.
diff --git 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)