Fixed issue that was causing hit and run bodies to be removed

src/symba/symba_fragmentation.f90

@@ -179,8 +179,14 @@ module function symba_fragmentation_casehitandrun(system, param, family, x, v, m
             write(*,'("Generating ",I2.0," fragments")') nfrag
          end if
       end if
-      if (lpure) then
+      if (lpure) then ! Reset these bodies back to being active so that nothing further is done to them
          status = ACTIVE
+         select type(pl => system%pl)
+         class is (symba_pl)
+            pl%status(family(:)) = status
+            pl%ldiscard(family(:)) = .false.
+            pl%lcollision(family(:)) = .false.
+         end select
       else
          status = HIT_AND_RUN
          call symba_fragmentation_mergeaddsub(system, param, family, id_frag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, status)