get_covalent_rad_sym Function

private elemental function get_covalent_rad_sym(sym) result(rad)

Get covalent radius for a given element symbol

Arguments

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

Element symbol

Return Value real(kind=wp)

Covalent radius


Source Code

elemental function get_covalent_rad_sym(sym) result(rad)
   !DEC$ ATTRIBUTES DLLEXPORT :: get_covalent_rad_sym

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

   !> Covalent radius
   real(wp) :: rad

   rad = get_covalent_rad(to_number(sym))

end function get_covalent_rad_sym