active_tree_node_half_size Function

public pure function active_tree_node_half_size(plan, use_target_tree, node_idx) result(half_size)

有効な木のノード半サイズを返す。

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_half_size~~CalledByGraph proc~active_tree_node_half_size active_tree_node_half_size proc~core_eval_point_impl core_eval_point_impl proc~core_eval_point_impl->proc~active_tree_node_half_size proc~core_eval_points_impl core_eval_points_impl proc~core_eval_points_impl->proc~active_tree_node_half_size proc~core_eval_potential_point_impl core_eval_potential_point_impl proc~core_eval_potential_point_impl->proc~active_tree_node_half_size proc~core_eval_potential_points_impl core_eval_potential_points_impl proc~core_eval_potential_points_impl->proc~active_tree_node_half_size proc~precompute_periodic_root_operator precompute_periodic_root_operator proc~precompute_periodic_root_operator->proc~active_tree_node_half_size proc~core_build_plan_impl core_build_plan_impl proc~core_build_plan_impl->proc~precompute_periodic_root_operator

Source Code

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

    if (use_target_tree) then
      half_size = plan%target_node_half_size(:, node_idx)
    else
      half_size = plan%node_half_size(:, node_idx)
    end if
  end function active_tree_node_half_size