get_r4r2_val_sym Function

private elemental function get_r4r2_val_sym(sym) result(rad)

Get r4/r2 expectation value for a given element symbol

Arguments

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

Element symbol

Return Value real(kind=wp)

r4/r2 expectation value


Source Code

elemental function get_r4r2_val_sym(sym) result(rad)

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

   !> r4/r2 expectation value
   real(wp) :: rad

   rad = get_r4r2_val(to_number(sym))

end function get_r4r2_val_sym