surface_charge_closure_id Function

public pure function surface_charge_closure_id(closure) result(id)

'explicit' / 'fixed_current' / 'neutral_return' を enum へ写す。未知の値は unknown。

Arguments

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

Return Value integer(kind=i32)


Calls

proc~~surface_charge_closure_id~~CallsGraph proc~surface_charge_closure_id surface_charge_closure_id proc~lower_ascii lower_ascii proc~surface_charge_closure_id->proc~lower_ascii

Source Code

  pure integer(i32) function surface_charge_closure_id(closure) result(id)
    character(len=*), intent(in) :: closure

    select case (trim(lower_ascii(closure)))
    case ('explicit')
      id = surface_charge_closure_explicit
    case ('fixed_current')
      id = surface_charge_closure_fixed_current
    case ('neutral_return')
      id = surface_charge_closure_neutral_return
    case default
      id = surface_charge_closure_unknown
    end select
  end function surface_charge_closure_id