collision_obj_Final Subroutine

    impure subroutine collision_obj_Final(this)
      !> Finalizes object and frees memory.
      implicit none
      class(collision_obj),       intent(inout) :: this

      ! Collision/Neighbor search tools
      call this%Sanitize()
      if(allocated(this%RPobjincell)) deallocate(this%RPobjincell)
      if(allocated(this%RPneighbors)) deallocate(this%RPneighbors)
      if(allocated(this%PPobjincell)) deallocate(this%PPobjincell)
      if(allocated(this%PPneighbors)) deallocate(this%PPneighbors)
      if(allocated(this%IBobjincell)) deallocate(this%IBobjincell)
      if(allocated(this%IBneighbors)) deallocate(this%IBneighbors)

      ! Finalize collision block, if used
      call this%cblock%Finalize()

      ! Nullify pointers
      this%parallel => null()
      this%parser   => null()
      this%timer    => null()
      this%monitors => null()
      this%PP       => null()
      this%RP       => null()
      this%IB       => null()

      return
    end subroutine collision_obj_Final