active_tree_node_center Function

public pure function active_tree_node_center(plan, use_target_tree, node_idx) result(center)

有効な木のノード中心座標を返す。

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), (3)


Called by

proc~~active_tree_node_center~~CalledByGraph proc~active_tree_node_center active_tree_node_center proc~core_build_plan_impl core_build_plan_impl proc~core_build_plan_impl->proc~active_tree_node_center proc~nodes_well_separated nodes_well_separated proc~core_build_plan_impl->proc~nodes_well_separated proc~precompute_periodic_root_operator precompute_periodic_root_operator proc~core_build_plan_impl->proc~precompute_periodic_root_operator proc~core_eval_point_impl core_eval_point_impl proc~core_eval_point_impl->proc~active_tree_node_center proc~core_eval_points_impl core_eval_points_impl proc~core_eval_points_impl->proc~active_tree_node_center proc~core_eval_potential_point_impl core_eval_potential_point_impl proc~core_eval_potential_point_impl->proc~active_tree_node_center proc~core_eval_potential_points_impl core_eval_potential_points_impl proc~core_eval_potential_points_impl->proc~active_tree_node_center proc~nodes_well_separated->proc~active_tree_node_center proc~precompute_periodic_root_operator->proc~active_tree_node_center

Source Code

  pure function active_tree_node_center(plan, use_target_tree, node_idx) result(center)
    type(fmm_plan_type), intent(in) :: plan
    logical, intent(in) :: use_target_tree
    integer(i32), intent(in) :: node_idx
    real(dp) :: center(3)

    if (use_target_tree) then
      center = plan%target_node_center(:, node_idx)
    else
      center = plan%node_center(:, node_idx)
    end if
  end function active_tree_node_center