Merge branch 'debug'

MintonGroup · May 11, 2022 · c1f8ff0 · c1f8ff0
2 parents 3b38ee7 + e20f5d4
commit c1f8ff0
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 10 deletions.
diff --git a/src/rmvs/rmvs_setup.f90 b/src/rmvs/rmvs_setup.f90
@@ -141,11 +141,7 @@ module subroutine rmvs_setup_tp(self, n, param)
 
       !> Call allocation method for parent class. In this case, whm does not have its own setup method, so we use the base method for swiftest_tp
       call setup_tp(self, n, param) 
-      if (n < 0) return
-
-      call self%dealloc()
-
-      if (n == 0) return
+      if (n <= 0) return
 
       allocate(self%lperi(n))
       allocate(self%plperP(n))

diff --git a/src/symba/symba_setup.f90 b/src/symba/symba_setup.f90
@@ -112,11 +112,7 @@ module subroutine symba_setup_encounter_list(self, n)
       integer(I8B),           intent(in)    :: n    !! Number of encounters to allocate space for
 
       call encounter_setup_list(self, n)
-      if (n < 0_I8B) return
-
-      call self%dealloc()
-
-      if (n ==0_I8B) return
+      if (n <= 0_I8B) return
 
       allocate(self%level(n))