Added the symba_util_take_system_snapshot implementation interface

src/symba/symba_util.f90

@@ -499,6 +499,20 @@ module subroutine symba_util_final_system(self)
    end subroutine symba_util_final_system
 
 
+   module subroutine symba_util_final_snapshot(self)
+      !! author: David A. Minton
+      !!
+      !! Finalize the SyMBA nbody system object - deallocates all allocatables
+      implicit none
+      ! Argument
+      type(symba_system_snapshot),  intent(inout) :: self !! SyMBA nbody system object
+
+      call self%dealloc()
+
+      return
+   end subroutine symba_util_final_snapshot
+
+
    module subroutine symba_util_final_tp(self)
       !! author: David A. Minton
       !!
@@ -1279,4 +1293,19 @@ module subroutine symba_util_spill_tp(self, discards, lspill_list, ldestructive)
       return
    end subroutine symba_util_spill_tp
 
+
+   module subroutine symba_util_take_system_snapshot(self, system, param, t)
+      !! author: David A. Minton
+      !!
+      !! Takes a minimal snapshot of the state of the system during an encounter so that the trajectories
+      !! Can be played back through the encounter
+      implicit none
+      class(symba_system_snapshot),    intent(inout) :: self   !! SyMBA nbody system snapshot object
+      class(symba_nbody_system),       intent(in)    :: system !! SyMBA nbody system object
+      class(symba_parameters),         intent(in)    :: param  !! Current run configuration parameters 
+      real(DP),                        intent(in)    :: t      !! current time
+
+      return
+   end subroutine symba_util_take_system_snapshot
+
 end submodule s_symba_util