Calculates the total charge exchange cross section for a Neutral Hydrogen atom
in the state colliding with a fully stripped Carbon ion at energy eb
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=Float64), | intent(in) | :: | eb | Relative collision energy [keV/amu] |
Cross Section []
function C6_cx_1_janev(eb) result(sigma)
!+ Calculates the total charge exchange cross section for a Neutral Hydrogen atom
!+in the \(n=1\) state colliding with a fully stripped Carbon ion at energy `eb`
!+
!+###Equation
!+$$ C^{6+} + H(1) \rightarrow C^{5+} + H^+ $$
!+
!+###References
!+* Page 168 in Ref. 5 [[atomic_tables(module)]]
real(Float64), intent(in) :: eb
!+ Relative collision energy [keV/amu]
real(Float64) :: sigma
!+ Cross Section [\(cm^2\)]
real(Float64), dimension(11), parameter :: A = [418.18d0, 2.1585d0, &
3.4808d-4, 5.3333d-9, &
4.6556d0, 0.33755d0, &
0.81736d0, 0.27874d0, &
1.8003d-6, 7.1033d-2, &
0.53261d0 ]
sigma = 1.d-16*A(1)*(exp(-A(2)/eb**A(8)) / &
(1.0 + A(3)*eb**2 + A(4)*eb**A(5) + &
A(6)*eb**A(7)) + A(9)*exp(-A(10)*eb) /eb**A(11))
end function C6_cx_1_janev