get_r4r2_val_num Function

private elemental function get_r4r2_val_num(num) result(rad)

Get r4/r2 expectation value for a given atomic number

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: num

Atomic number

Return Value real(kind=wp)

r4/r2 expectation value


Source Code

elemental function get_r4r2_val_num(num) result(rad)

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

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

   if (num > 0 .and. num <= size(sqrt_z_r4_over_r2)) then
      rad = sqrt_z_r4_over_r2(num)
   else
      rad = 0.0_wp
   end if

end function get_r4r2_val_num