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~2~~CalledByGraph proc~update_lvl_info~2 update_lvl_info proc~mg_load_balance_parents~2 mg_load_balance_parents proc~mg_load_balance_parents~2->proc~update_lvl_info~2 proc~mg_load_balance_simple~2 mg_load_balance_simple proc~mg_load_balance_simple~2->proc~update_lvl_info~2 proc~mg_load_balance~2 mg_load_balance proc~mg_load_balance~2->proc~update_lvl_info~2

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