From 8427be35c31b91cca63872d3000cbbc95eb4adcf Mon Sep 17 00:00:00 2001
From: David A Minton <daminton@purdue.edu>
Date: Fri, 9 Sep 2022 19:49:26 -0400
Subject: [PATCH] Fixed already allocated bug

---
 src/symba/symba_setup.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/symba/symba_setup.f90 b/src/symba/symba_setup.f90
index 4a1ca9498..d48cc7511 100644
--- a/src/symba/symba_setup.f90
+++ b/src/symba/symba_setup.f90
@@ -114,6 +114,7 @@ module subroutine symba_setup_encounter_list(self, n)
       call encounter_setup_list(self, n)
       if (n <= 0_I8B) return
 
+      if (allocated(self%level)) deallocate(self%level)
       allocate(self%level(n))
 
       self%level(:) = -1