update_lvl_info Subroutine

private subroutine update_lvl_info(mg, lvl)

Arguments

Type IntentOptional Attributes Name
type(mg_t), intent(inout) :: mg
type(mg_lvl_t), intent(inout) :: lvl

Called by

proc~~update_lvl_info~~CalledByGraph proc~update_lvl_info update_lvl_info proc~mg_load_balance mg_load_balance proc~mg_load_balance->proc~update_lvl_info proc~mg_load_balance_parents mg_load_balance_parents proc~mg_load_balance_parents->proc~update_lvl_info proc~mg_load_balance_simple mg_load_balance_simple proc~mg_load_balance_simple->proc~update_lvl_info

Source Code

  subroutine update_lvl_info(mg, lvl)
    type(mg_t), intent(inout)     :: mg
    type(mg_lvl_t), intent(inout) :: lvl

    lvl%my_ids = pack(lvl%ids, mg%boxes(lvl%ids)%rank == mg%my_rank)
    lvl%my_leaves = pack(lvl%leaves, mg%boxes(lvl%leaves)%rank == mg%my_rank)
    lvl%my_parents = pack(lvl%parents, mg%boxes(lvl%parents)%rank == &
       mg%my_rank)
    lvl%my_ref_bnds = pack(lvl%ref_bnds, mg%boxes(lvl%ref_bnds)%rank == &
       mg%my_rank)
  end subroutine update_lvl_info