43 fprintf(
ioQQQ,
" lines_general called\n" );
48 " start of general properties");
112 "total luminosity in incident continuum");
123 " total heating, all forms, information since individuals added later ");
126 " total cooling, all forms, information since individuals added later ");
129 " hydrogen photoionization heating, ground state only ");
132 " net hydrogen photoionization heating less rec cooling, all excited states normally zero, positive if excited states are net heating ");
135 " heating due to induced lines absorption of continuum ");
147 " total helium photoionization heating, all stages ");
151 for( nelem=2; nelem<
LIMELM; ++nelem)
162 linadd(HeatMetal,0,
"TotM",
'h',
163 " total heavy element photoionization heating, all stages ");
166 " heating due to pair production ");
181 " heating due to bound compton scattering ");
184 " Compton heating ");
187 " total Compton cooling ");
195 " cooling due to advection " );
198 " heating due to advection ");
201 " heating due to charge transfer ");
204 " cooling due to charge transfer ");
207 " cosmic ray heating ");
210 " extra heat added to this zone, from HEXTRA command ");
213 " extra cooling added to this zone, from CEXTRA command ");
218 lindst(ee511,0,
"e-e+",ipnt,
'i',
true,
219 " 511keV annihilation line " );
222 " expansion cooling, only non-zero for wind ");
225 " H radiative recombination cooling ");
228 " net free-bound cooling ");
231 " net free-bound heating ");
234 " cooling due to induced rec of hydrogen ");
237 " cooling due to induced rec of fully ionized helium ");
240 " cyclotron cooling ");
260 if(
TauLines[i].Coll.heat > strong )
272 if(
TauLine2[i].Coll.heat > strong )
283 if(
HFLines[i].Coll.heat > strong )
310 if(
atmolEmis[i].tran->Coll.heat > strong )