apply_uniform_epsilon_r Subroutine

public subroutine apply_uniform_epsilon_r(mesh, epsilon_r)

全要素に同じ相対誘電率を付与する。

Arguments

Type IntentOptional Attributes Name
type(mesh_type), intent(inout) :: mesh
real(kind=dp), intent(in) :: epsilon_r

Called by

proc~~apply_uniform_epsilon_r~~CalledByGraph proc~apply_uniform_epsilon_r apply_uniform_epsilon_r proc~build_mesh_from_config build_mesh_from_config proc~build_mesh_from_config->proc~apply_uniform_epsilon_r proc~load_or_init_run_state load_or_init_run_state proc~load_or_init_run_state->proc~build_mesh_from_config program~main main program~main->proc~load_or_init_run_state

Source Code

  subroutine apply_uniform_epsilon_r(mesh, epsilon_r)
    type(mesh_type), intent(inout) :: mesh
    real(dp), intent(in) :: epsilon_r

    if (.not. ieee_is_finite(epsilon_r) .or. epsilon_r < 1.0d0) error stop 'epsilon_r must be finite and >= 1.'
    if (.not. allocated(mesh%elem_epsilon_r)) return
    mesh%elem_epsilon_r = epsilon_r
  end subroutine apply_uniform_epsilon_r