Fixed incorrect type allocation

MintonGroup · Dec 10, 2022 · 38b3753 · 38b3753
1 parent 076126b
commit 38b3753
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 6 deletions.
diff --git a/src/encounter/encounter_io.f90 b/src/encounter/encounter_io.f90
@@ -25,7 +25,6 @@ module subroutine encounter_io_dump(self, param)
 
       do i = 1, self%nframes
          if (allocated(self%frame(i)%item)) then
-
             select type(snapshot => self%frame(i)%item)
             class is (fraggle_collision_snapshot)
                param%ioutput = i

diff --git a/src/symba/symba_util.f90 b/src/symba/symba_util.f90
@@ -1394,11 +1394,7 @@ module subroutine symba_util_take_encounter_snapshot(self, param, t)
 
       associate(npl => self%pl%nbody,  ntp => self%tp%nbody)
 
-         if (self%plplenc_list%lcollision) then
-            allocate(fraggle_collision_snapshot :: snapshot)
-         else
-            allocate(encounter_snapshot :: snapshot)
-         end if
+         allocate(encounter_snapshot :: snapshot)
          snapshot%t = t
          snapshot%iloop = param%iloop