real(dl)
kappa_eH_21cm(T, deriv)
Polynomail fit to electron-Hydrogen collision rate as function of Tmatter; from astro-ph/0608032
if deriv return d log kappa / d log T
from astro-ph/0608032
1 2.39e-10
2 3.37e-10
5 5.3e-10
10 7.46e-10
20 1.05e-9
50 1.63e-9
100 2.26e-9
200 3.11e-9
500 4.59e-9
1000 5.92e-9
2000 7.15e-9
5000 8.17e-9
10000 8.37e-9
15000 8.29e-9
20000 8.11e-9
real(dl) intent(in) :: T
logical intent(in) :: deriv
real(dl)
kappa_HH_21cm(T, deriv)
Polynomial fit to Hydrogen-Hydrogen collision rate as function of Tmatter, from astro-ph/0608032
if deriv return d log kappa / d log T
real(dl) intent(in) :: T
logical intent(in) :: deriv
real(dl)
kappa_pH_21cm(T, deriv)
from astro-ph/0702487
Not actually used
Polynomail fit to proton-Hydrogen collision rate as function of Tmatter
if deriv return d log kappa / d log T
real(dl) intent(in) :: T
logical intent(in) :: deriv
real(dl)
polevl(N, x, coef)
integer :: N
real(dl) :: x
real(dl) :: coef(N+1)