diff --git a/src/encounter/encounter_io.f90 b/src/encounter/encounter_io.f90 index d4677ac3c..3f34c0e83 100644 --- 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 index d5ff2ba2e..5b840ad0c 100644 --- 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