get_nref_sym Function

private elemental function get_nref_sym(sym) result(n)

Get number of references for a given element symbol

Arguments

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

Element symbol

Return Value integer

Number of references


Source Code

elemental function get_nref_sym(sym) result(n)

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

   !> Number of references
   integer :: n

   n = get_nref(to_number(sym))

end function get_nref_sym