76 if( omega*AbunxIon < 1e-30 || r < 1e-25 )
79 t->
Lo->
Pop = AbunxIon;
112 ASSERT( g1 > 0. && g2 > 0. );
117 col12 = col21/g1*boltz;
129 r = (a21 + col21 + ri21)/rate12;
132 pfs2 = AbunxIon/(r + 1.);
165 plower = AbunxIon - pfs2;
186 coolng = t->
EnergyErg*AbunxIon*col12*(a21 + ri21)/(a21 + col21 + ri21 + rate12);