63 Transitions[ipISO][nelem][iup][level].Emis->Pelec_esc +
64 Transitions[ipISO][nelem][iup][level].Emis->Pdest) );
67 entries +=
StatesElem[ipISO][nelem][iup].Pop*(RadDecay +
73 exits =
iso.
gamnc[ipISO][nelem][level];
74 for( low=
ipH1s; low <= (level - 1); low++ )
82 Transitions[ipISO][nelem][level][low].Emis->Pelec_esc +
83 Transitions[ipISO][nelem][level][low].Emis->Pdest) );
91 StatesElem[ipISO][nelem][level].Pop = entries/exits;
150 StatesElem[ipISO][nelem][level].Pop *= renorm;
152 if(
iso.
PopLTE[ipISO][nelem][level] > 1e-25 )
166 fprintf(
ioQQQ,
" LOW TE,=%10.3e HN(1)=%10.3e rec=%10.3e Hgamnc(1s)=%10.3e\n",
174 " HydroT2Low return, LOW TE used, HII/HI=%.3e simple=%.3e IonRate=%.3e RecCo=%.3e\n",