/*p8446 drive the solution of OI level populations, Ly-beta pumping */
void p8446(double *coloi);