get_nref_num Function

private elemental function get_nref_num(num) result(n)

Get number of references for a given atomic number

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	num	Atomic number

Return Value integer

Number of references

Source Code

elemental function get_nref_num(num) result(n)

   !> Atomic number
   integer, intent(in) :: num

   !> Number of references
   integer :: n

   if (num > 0 .and. num <= size(refn)) then
      n = refn(num)
   else
      n = 0
   end if

end function get_nref_num