updated resizer to double the size each time it needs to grow

MintonGroup · Dec 2, 2022 · 538310c · 538310c
1 parent 39ca553
commit 538310c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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