From 538310cf552aa354d3883b0305ae49a4adfeb0a0 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 2 Dec 2022 14:35:06 -0500 Subject: [PATCH] updated resizer to double the size each time it needs to grow --- src/encounter/encounter_util.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/encounter/encounter_util.f90 b/src/encounter/encounter_util.f90 index 8cdc5c94f..c2597377a 100644 --- a/src/encounter/encounter_util.f90 +++ b/src/encounter/encounter_util.f90 @@ -201,7 +201,7 @@ module subroutine encounter_util_resize_storage(self, nnew) end if if (nnew > nold) then - allocate(encounter_storage(nnew) :: tmp) + allocate(encounter_storage(2 * nnew) :: tmp) if (lmalloc) then do i = 1, nold if (allocated(self%frame(i)%item)) tmp%frame(i) = self%frame(i)%item