From 7f95561bfce6ff79f89443cdd28875e574363219 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Mon, 25 Oct 2021 19:02:11 -0400 Subject: [PATCH] Added fix for condition when the narrow phase returns no true encounters --- src/encounter/encounter_check.f90 | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/encounter/encounter_check.f90 b/src/encounter/encounter_check.f90 index e8bd7987e..bbfa98ba3 100644 --- a/src/encounter/encounter_check.f90 +++ b/src/encounter/encounter_check.f90 @@ -289,6 +289,12 @@ subroutine encounter_check_reduce_broadphase(n, nenc, index1, index2, lencounter logical, dimension(:), allocatable :: ltmp nenc = count(lencounter(:)) ! Count the true number of encounters + if (nenc == 0) then + if (allocated(index1)) deallocate(index1) + if (allocated(index2)) deallocate(index2) + if (allocated(lvdotr)) deallocate(lvdotr) + return + end if allocate(itmp(nenc)) itmp(:) = pack(index1(:), lencounter(:))