mg_set_neighbors_lvl Subroutine

public subroutine mg_set_neighbors_lvl(mg, lvl)

Arguments

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

Calls

proc~~mg_set_neighbors_lvl~~CallsGraph proc~mg_set_neighbors_lvl mg_set_neighbors_lvl proc~set_neighbs set_neighbs proc~mg_set_neighbors_lvl->proc~set_neighbs proc~find_neighb find_neighb proc~set_neighbs->proc~find_neighb proc~mg_ix_to_ichild mg_ix_to_ichild proc~find_neighb->proc~mg_ix_to_ichild

Called by

proc~~mg_set_neighbors_lvl~~CalledByGraph proc~mg_set_neighbors_lvl mg_set_neighbors_lvl proc~mg_build_rectangle mg_build_rectangle proc~mg_build_rectangle->proc~mg_set_neighbors_lvl

Source Code

  subroutine mg_set_neighbors_lvl(mg, lvl)
    type(mg_t), intent(inout) :: mg
    integer, intent(in)       :: lvl
    integer                   :: i, id

    do i = 1, size(mg%lvls(lvl)%ids)
       id = mg%lvls(lvl)%ids(i)
       call set_neighbs(mg%boxes, id)
    end do
  end subroutine mg_set_neighbors_lvl