encounter_final_snapshot Subroutine

      subroutine encounter_final_snapshot(self)
         !! author: David A. Minton
         !!
         !! Deallocates allocatable arrays in an encounter snapshot
         implicit none
         ! Arguments
         type(encounter_snapshot),  intent(inout) :: self 
         !! Encounter storage object

         if (allocated(self%pl)) deallocate(self%pl)
         if (allocated(self%tp)) deallocate(self%tp)
         self%t = 0.0_DP

         return
      end subroutine encounter_final_snapshot