active_tree_node_radius Function

public pure function active_tree_node_radius(plan, use_target_tree, node_idx)

有効な木のノード外接半径を返す。

Arguments

Type IntentOptional Attributes Name
type(fmm_plan_type), intent(in) :: plan

FMM 計画。
logical, intent(in) :: use_target_tree

target 木を使うなら .true.。
integer(kind=i32), intent(in) :: node_idx

ノード番号。

Return Value real(kind=dp)


Called by

proc~~active_tree_node_radius~~CalledByGraph proc~active_tree_node_radius active_tree_node_radius proc~core_build_plan_impl core_build_plan_impl proc~core_build_plan_impl->proc~active_tree_node_radius proc~nodes_well_separated nodes_well_separated proc~core_build_plan_impl->proc~nodes_well_separated proc~nodes_well_separated->proc~active_tree_node_radius

Source Code

  pure real(dp) function active_tree_node_radius(plan, use_target_tree, node_idx)
    type(fmm_plan_type), intent(in) :: plan
    logical, intent(in) :: use_target_tree
    integer(i32), intent(in) :: node_idx

    if (use_target_tree) then
      active_tree_node_radius = plan%target_node_radius(node_idx)
    else
      active_tree_node_radius = plan%node_radius(node_idx)
    end if
  end function active_tree_node_radius