lower_boundary_model_id Function

public pure function lower_boundary_model_id(model) result(id)

'e_bottom_zero' / 'symmetric_vacuum' / 'e_top_from_sheath' を enum へ写す。未知の値は unknown。

Arguments

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

Return Value integer(kind=i32)


Calls

proc~~lower_boundary_model_id~~CallsGraph proc~lower_boundary_model_id lower_boundary_model_id proc~lower_ascii lower_ascii proc~lower_boundary_model_id->proc~lower_ascii

Called by

proc~~lower_boundary_model_id~~CalledByGraph proc~lower_boundary_model_id lower_boundary_model_id none~init~6 electrostatic_snapshot_type%init none~init~6->proc~lower_boundary_model_id 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 integer(i32) function lower_boundary_model_id(model) result(id)
    character(len=*), intent(in) :: model

    select case (trim(lower_ascii(model)))
    case ('e_bottom_zero')
      id = lower_boundary_e_bottom_zero
    case ('symmetric_vacuum')
      id = lower_boundary_symmetric_vacuum
    case ('e_top_from_sheath')
      id = lower_boundary_e_top_from_sheath
    case default
      id = lower_boundary_unknown
    end select
  end function lower_boundary_model_id