ResPart_set_GetOwnerRankByRP Function

    impure function ResPart_set_GetOwnerRankByRP(this,marker) result (rank)
      !> Returns the MPI rank of the lagrangian centroid owning this marker.
      implicit none
      class(lagrangian_set), intent(in) :: this                                !! Set of resolved particles
      class(lagrangian_obj), intent(in) :: marker                              !! A surface marker
      integer                           :: rank                                !! Result

      select type (marker)
      type is(marker_obj)
        rank=marker%t
      end select

      return
    end function ResPart_set_GetOwnerRankByRP