get_effective_charge_sym Function

private elemental function get_effective_charge_sym(sym) result(zeff)

Get effective nuclear charge for a given element symbol

Arguments

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

Element symbol

Return Value real(kind=wp)

Effective nuclear charge


Source Code

elemental function get_effective_charge_sym(sym) result(zeff)

   !> Element symbol
   character(len=*), intent(in) :: sym

   !> Effective nuclear charge
   real(wp) :: zeff

   zeff = get_effective_charge(to_number(sym))

end function get_effective_charge_sym