precompute_periodic_root_operator Subroutine

public subroutine precompute_periodic_root_operator(plan)

periodic2 の root operator を前計算する。

Arguments

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

FMM 計画。

Calls

proc~~precompute_periodic_root_operator~~CallsGraph proc~precompute_periodic_root_operator precompute_periodic_root_operator proc~acquire_file_lock acquire_file_lock proc~precompute_periodic_root_operator->proc~acquire_file_lock proc~active_tree_child_count active_tree_child_count proc~precompute_periodic_root_operator->proc~active_tree_child_count proc~active_tree_child_idx active_tree_child_idx proc~precompute_periodic_root_operator->proc~active_tree_child_idx proc~active_tree_max_depth active_tree_max_depth proc~precompute_periodic_root_operator->proc~active_tree_max_depth proc~active_tree_nnode active_tree_nnode proc~precompute_periodic_root_operator->proc~active_tree_nnode proc~active_tree_node_center active_tree_node_center proc~precompute_periodic_root_operator->proc~active_tree_node_center proc~active_tree_node_half_size active_tree_node_half_size proc~precompute_periodic_root_operator->proc~active_tree_node_half_size proc~add_periodic2_exact_ewald_correction_single_source add_periodic2_exact_ewald_correction_single_source proc~precompute_periodic_root_operator->proc~add_periodic2_exact_ewald_correction_single_source proc~add_periodic2_exact_ewald_potential_correction_single_source add_periodic2_exact_ewald_potential_correction_single_source proc~precompute_periodic_root_operator->proc~add_periodic2_exact_ewald_potential_correction_single_source proc~build_axis_powers build_axis_powers proc~precompute_periodic_root_operator->proc~build_axis_powers proc~create_directories create_directories proc~precompute_periodic_root_operator->proc~create_directories proc~mpi_allreduce_sum_real_dp_array mpi_allreduce_sum_real_dp_array proc~precompute_periodic_root_operator->proc~mpi_allreduce_sum_real_dp_array proc~mpi_bcast_i32_array mpi_bcast_i32_array proc~precompute_periodic_root_operator->proc~mpi_bcast_i32_array proc~mpi_bcast_real_dp_array mpi_bcast_real_dp_array proc~precompute_periodic_root_operator->proc~mpi_bcast_real_dp_array proc~mpi_get_rank_size mpi_get_rank_size proc~precompute_periodic_root_operator->proc~mpi_get_rank_size proc~mpi_initialize mpi_initialize proc~precompute_periodic_root_operator->proc~mpi_initialize proc~mpi_is_root mpi_is_root proc~precompute_periodic_root_operator->proc~mpi_is_root proc~mpi_shutdown mpi_shutdown proc~precompute_periodic_root_operator->proc~mpi_shutdown proc~periodic_cache_fingerprint periodic_cache_fingerprint proc~precompute_periodic_root_operator->proc~periodic_cache_fingerprint proc~prepare_regularized_qr prepare_regularized_qr proc~precompute_periodic_root_operator->proc~prepare_regularized_qr proc~read_periodic_operator_cache read_periodic_operator_cache proc~precompute_periodic_root_operator->proc~read_periodic_operator_cache proc~release_file_lock release_file_lock proc~precompute_periodic_root_operator->proc~release_file_lock proc~solve_regularized_qr solve_regularized_qr proc~precompute_periodic_root_operator->proc~solve_regularized_qr proc~use_periodic2_cached_kneq0 use_periodic2_cached_kneq0 proc~precompute_periodic_root_operator->proc~use_periodic2_cached_kneq0 proc~write_periodic_operator_cache write_periodic_operator_cache proc~precompute_periodic_root_operator->proc~write_periodic_operator_cache proc~periodic_operator_checksum periodic_operator_checksum proc~read_periodic_operator_cache->proc~periodic_operator_checksum proc~atomic_rename atomic_rename proc~write_periodic_operator_cache->proc~atomic_rename proc~write_periodic_operator_cache->proc~periodic_operator_checksum

Called by

proc~~precompute_periodic_root_operator~~CalledByGraph proc~precompute_periodic_root_operator precompute_periodic_root_operator proc~core_build_panel_plan_impl core_build_panel_plan_impl proc~core_build_panel_plan_impl->proc~precompute_periodic_root_operator proc~core_build_plan_impl core_build_plan_impl proc~core_build_plan_impl->proc~precompute_periodic_root_operator

Source Code

  subroutine precompute_periodic_root_operator(plan)
    type(fmm_plan_type), intent(inout) :: plan
    type(mpi_context) :: mpi

    if (allocated(plan%periodic_root_target_nodes)) deallocate (plan%periodic_root_target_nodes)
    if (allocated(plan%periodic_root_operator)) deallocate (plan%periodic_root_operator)
    plan%periodic_root_operator_ready = .false.
    plan%periodic_root_target_count = 0_i32

    plan%periodic_cache_hit = .false.
    plan%periodic_cache_fingerprint = ''
    plan%periodic_cache_path = ''
    if (use_periodic2_cached_kneq0(plan)) then
      call mpi_initialize(mpi)
      call precompute_periodic_cached_operator_collective(plan, mpi)
      call mpi_shutdown(mpi)
    end if
  end subroutine precompute_periodic_root_operator