surface_model_id_from_name Function

public function surface_model_id_from_name(name) result(model_id)

表面モデル名をメッシュ要素用の整数IDへ変換する。

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name

insulator / conductor / dielectric。

Return Value integer(kind=i32)


Calls

proc~~surface_model_id_from_name~~CallsGraph proc~surface_model_id_from_name surface_model_id_from_name proc~lower_ascii lower_ascii proc~surface_model_id_from_name->proc~lower_ascii

Called by

proc~~surface_model_id_from_name~~CalledByGraph proc~surface_model_id_from_name surface_model_id_from_name proc~build_mesh_from_config build_mesh_from_config proc~build_mesh_from_config->proc~surface_model_id_from_name proc~build_template_mesh build_template_mesh proc~build_mesh_from_config->proc~build_template_mesh proc~build_template_mesh->proc~surface_model_id_from_name 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

  integer(i32) function surface_model_id_from_name(name) result(model_id)
    character(len=*), intent(in) :: name

    select case (trim(lower_ascii(name)))
    case ('insulator')
      model_id = surface_model_insulator
    case ('conductor')
      model_id = surface_model_conductor
    case ('dielectric')
      model_id = surface_model_dielectric
    case default
      error stop 'Unknown surface_model.'
    end select
  end function surface_model_id_from_name