integrate_local_polynomial Function

public pure function integrate_local_polynomial(coefficient, t_upper) result(integral)

局所座標の多項式を原点から t=0..t_upper まで積分する。

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: coefficient(3)
real(kind=dp), intent(in) :: t_upper

Return Value real(kind=dp)


Called by

proc~~integrate_local_polynomial~~CalledByGraph proc~integrate_local_polynomial integrate_local_polynomial proc~refresh_periodic_zero_mode_state refresh_periodic_zero_mode_state proc~refresh_periodic_zero_mode_state->proc~integrate_local_polynomial proc~zero_mode_charge_primitive zero_mode_charge_primitive proc~refresh_periodic_zero_mode_state->proc~zero_mode_charge_primitive proc~zero_mode_charge_primitive->proc~integrate_local_polynomial none~init~6 electrostatic_snapshot_type%init none~init~6->proc~refresh_periodic_zero_mode_state proc~beach_zero_mode_update beach_zero_mode_update proc~beach_zero_mode_update->proc~refresh_periodic_zero_mode_state proc~core_update_state_impl core_update_state_impl proc~core_update_state_impl->proc~refresh_periodic_zero_mode_state proc~eval_periodic_zero_mode eval_periodic_zero_mode proc~eval_periodic_zero_mode->proc~zero_mode_charge_primitive proc~beach_zero_mode_eval beach_zero_mode_eval proc~beach_zero_mode_eval->proc~eval_periodic_zero_mode proc~core_eval_point_impl core_eval_point_impl proc~core_eval_point_impl->proc~eval_periodic_zero_mode proc~core_eval_points_impl core_eval_points_impl proc~core_eval_points_impl->proc~eval_periodic_zero_mode proc~core_eval_potential_point_impl core_eval_potential_point_impl proc~core_eval_potential_point_impl->proc~eval_periodic_zero_mode proc~core_eval_potential_points_impl core_eval_potential_points_impl proc~core_eval_potential_points_impl->proc~eval_periodic_zero_mode proc~prepare_periodic_cache_and_stop prepare_periodic_cache_and_stop proc~prepare_periodic_cache_and_stop->none~init~6 program~main main program~main->proc~prepare_periodic_cache_and_stop

Source Code

  pure real(dp) function integrate_local_polynomial(coefficient, t_upper) result(integral)
    real(dp), intent(in) :: coefficient(3), t_upper

    integral = t_upper*(coefficient(1) + t_upper*(0.5_dp*coefficient(2) + t_upper*coefficient(3)/3.0_dp))
  end function integrate_local_polynomial