19 Real erg2ev = 6.242E11;
24 Real me_cgs = 9.11E-28;
25 Real kBT = kBoltz_ev * T;
27 Real hbar = hPlanck_ev / (2. * M_PI);
31 Real debroglie_thermal = sqrt(2. * M_PI * hbarc * hbarc / (mc2 * kBT));
32 Real coeff = 2. / pow(debroglie_thermal, 3) * exp(-ion_ev / kBT);
33 return 1.E6 * (-coeff + sqrt(coeff * coeff + 4. * coeff * num)) /
Real saha_ionization_electron_density(Real T, Real num, Real ion_ev)