lagrangian_set_GetOwnerRankByBlock Function

private impure function lagrangian_set_GetOwnerRankByBlock(this, lagobj) result(rank)

Returns the MPI rank that should own this lagrangian object based on which block it belongs to.

Type Bound

lagrangian_set

Arguments

Type IntentOptional Attributes Name
class(lagrangian_set), intent(in) :: this

A set of Lagrangian objects
class(lagrangian_obj), intent(in) :: lagobj

Lagrangian obj to locate

Return Value integer

rank that should own lagobj


Calls

proc~~lagrangian_set_getownerrankbyblock~~CallsGraph proc~lagrangian_set_getownerrankbyblock lagrangian_set%lagrangian_set_GetOwnerRankByBlock proc~block_obj_locate block_obj%block_obj_Locate proc~lagrangian_set_getownerrankbyblock->proc~block_obj_locate mpi_cart_rank mpi_cart_rank proc~block_obj_locate->mpi_cart_rank

Source Code

    impure function lagrangian_set_GetOwnerRankByBlock(this,lagobj) result (rank)
      !> Returns the MPI rank that should own this lagrangian
      ! object based on which block it belongs to.
      implicit none
      class(lagrangian_set), intent(in) :: this                                !! A set of Lagrangian objects
      class(lagrangian_obj), intent(in) :: lagobj                              !! Lagrangian obj to locate
      integer :: rank                                                          !! rank that should own lagobj

      rank=this%block%Locate(lagobj%p)

      return
    end function lagrangian_set_GetOwnerRankByBlock