Fixed already allocated bug

MintonGroup · Sep 9, 2022 · 8427be3 · 8427be3
1 parent 2201b8b
commit 8427be3
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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