get_electronegativity_sym Function

private elemental function get_electronegativity_sym(sym) result(en)

Get electronegativity for a given element symbol

Arguments

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

Element symbol

Return Value real(kind=wp)

Electronegativity


Source Code

elemental function get_electronegativity_sym(sym) result(en)
   !DEC$ ATTRIBUTES DLLEXPORT :: get_electronegativity_sym

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

   !> Electronegativity
   real(wp) :: en

   en = get_electronegativity(to_number(sym))

end function get_electronegativity_sym