34 fprintf(
ioQQQ,
" lines_lv1_k_zn called\n" );
38 " potassium K I 7745 ");
41 " [K III] 4.62 microns ");
47 " [KIV] 15.39 micron ");
50 " [K VII] 3.189 microns ");
53 " calcium Ca I 4228 ");
56 " coll excited calcium k+h " );
59 " infrared triplet ");
62 " forbidden lines, 7291+7324 together " );
65 " fraction H Ly-alpha destruction of excited levels ");
68 " fraction H Ly-alpha destruction of excited levels ");
71 lindst(
ca.Cak,3934,
"Ca2K",ipnt,
't',
true,
72 " individual lines from five level atom");
76 lindst(
ca.Cah,3969,
"Ca2H",ipnt,
't',
true,
77 " individual lines from five level atom" );
81 lindst(
ca.Cax,8498,
"Ca2X",ipnt,
't',
true,
82 " individual lines from five level atom " );
86 lindst(
ca.Cay,8542,
"Ca2Y",ipnt,
't',
true,
87 " individual lines from five level atom" );
91 lindst(
ca.Caz,8662,
"Ca2Z",ipnt,
't',
true,
92 " individual lines from five level atom" );
96 lindst(
ca.Caf1,7291,
"CaF1",ipnt,
't',
true,
97 " individual lines from five level atom" );
101 lindst(
ca.Caf2,7324,
"CaF2",ipnt,
't',
true,
102 " individual lines from five level atom" );
106 linadd(eff,3933,
"Rec ",
'i',
107 " recombination contribution to CaII emission" );
110 " Ca IV 3.2 micron ");
115 " Sc II 2.08 (1-3) " );
120 " Sc II 4.1 micron (1-2)" );
125 " Sc II 4.22 (2-3)" );
133 " [Sc V] 1.46 microns ");
138 " Sc VI 5054 (1-2)");
143 " Sc VI 3595 (2-3)" );
148 " Sc VI 2100 (1-3)" );
151 " [Sc 13] 2637.97A");
164 " [CrIII] multiplet blend at 5828A" );
168 " [CrIV] 2 - 1 multiplet blend at 7272" );
173 " [CrIV] 3 - 1 multiplet blend at 6806" );
178 " [CrV] 2 - 1 multiplet blend at 7985" );
182 " [CrV] 3 - 1 multiplet blend at 6582" );
187 " [CrV] 3 - 2 multiplet blend at 3.75 microns " );
225 "total of all Fe 2 cooling, both simple UV and large atom together ");
228 "total of all Fe 2 heating, both simple UV and large atom together ");
231 " Fe 2 forbidden 2-1 transition from Netzer's atom ");
234 " 2400 in simple Wills, Netzer, Wills FeII");
236 " 6200 in simple Wills, Netzer, Wills FeII");
238 " 1080 in simple Wills, Netzer, Wills FeII");
240 " 1500 in simple Wills, Netzer, Wills FeII");
242 " 11500 in simple Wills, Netzer, Wills FeII");
244 " 2500 in simple Wills, Netzer, Wills FeII");
246 " 2300 in simple Wills, Netzer, Wills FeII");
248 " 8900 in simple Wills, Netzer, Wills FeII");
254 for(
long ipLo=0; ipLo < (
FeII.nFeIILevel_malloc - 1); ipLo++ )
256 for(
long ipHi=ipLo + 1; ipHi <
FeII.nFeIILevel_malloc; ipHi++ )
261 PutLine( tr ,
" Fe II emission" );
268 double SumBandInward;
276 " total Fe II emission in Fe II bands, as defined in FeII_bands.ini ");
278 " inward Fe II emission in Fe II bands, as defined in FeII_bands.ini ");
298 double SumBandInward;
311 " anomalous Fe 2 transition at 1787, RMT 191");
314 " chng 05 dec 16, FeIII code created by Kevin Blagrave Fe3c 0 - total cooling due to 14-level Fe 3 atom ");
409 for( ihi=1; ihi<
NLFE3; ++ihi )
411 for( ilo=0; ilo<ihi; ++ilo )
416 fprintf(
ioQQQ,
"\t/* FeIII ");
418 fprintf(
ioQQQ,
" from Blagrave 14-level atom */\n" );
420 lindst(
fe.Fe3_emiss[ihi][ilo] , (
realnum)(
fe.Fe3_wl[ihi][ilo]+0.5) ,
"Fe 3",ipnt,
't',
true,
440 " Fe4c 0 - total cooling due to 12-level Fe 4 atom " );
444 lindst(
fe.fe40401,3096,
"Fe 4",ipnt,
't',
true,
445 " Fe 4 3096.A, 4-1 and 5-1 transitions together" );
449 lindst(
fe.fe42836,2836,
"Fe 4",ipnt,
't',
true,
450 " Fe 4 2835.7A, 6-1 transition, 4P5/2 - 6S5/2 " );
454 lindst(
fe.fe42829,2829,
"Fe 4",ipnt,
't',
true,
455 " Fe 4 2829.4A, 7-1 transition, 4P3/2 - 6S5/2" );
459 lindst(
fe.fe42567,2567,
"Fe 4",ipnt,
't',
true,
460 " Fe 4 2567.6+ 2567.4. 11-1 and 12-1 transitions" );
464 lindst(
fe.fe41207,2.774e4,
"Fe 4",ipnt,
't',
true,
465 " Fe 4 2.774 microns 12-7 transition " );
469 lindst(
fe.fe41206,2.714e4,
"Fe 4",ipnt,
't',
true,
470 " Fe 4 2.714 microns 12-6 transition " );
474 lindst(
fe.fe41106,2.716e4,
"Fe 4",ipnt,
't',
true,
475 " Fe 4 2.716 microns 11-6 transition" );
479 lindst(
fe.fe41007,2.806e4,
"Fe 4",ipnt,
't',
true,
480 " Fe 4 2.806 microns 10-7 transition " );
484 lindst(
fe.fe41008,2.865e4,
"Fe 4",ipnt,
't',
true ,
485 " Fe 4 2.865 microns 10-8 transition");
489 lindst(
fe.fe40906,2.836e4,
"Fe 4",ipnt,
't',
true,
490 " Fe 4 2.836 microns 9-6 transition" );
513 lindst((
fe.fekcld+
fe.fegrain)*1.03e-8+(
fe.fekhot+fela)*1.11e-8,1.78f,
"FeKa",
515 "total intensity of K-alpha line" );
518 linadd(fela*1.11e-8,2,
"FeLr",
'i' ,
519 " recombination from fully stripped ion ");
522 linadd((
fe.fekhot+fela)*1.11e-8,2,
"AugH",
'i' ,
523 " Auger hot iron, assumes case b for H and He-like ");
525 linadd(
fe.fekcld*1.03e-8,2,
"AugC",
'i',
526 " Auger production of cold iron, less than or 17 times ionized " );
528 linadd(
fe.fegrain*1.03e-8,2,
"AugG",
'i' ,
529 " grain production of cold iron ");
532 " [Co XI] 5168. A ");
535 " nickel [Ni I] 7m ");
547 fprintf(
ioQQQ,
" lines_lv1_k_zn returns\n" );
double FeIISumBand(realnum wl1, realnum wl2, double *SumBandInward)
#define DEBUG_ENTRY(funcname)
t_iso_sp iso_sp[NISO][LIMELM]
void linadd(double xInten, realnum wavelength, const char *chLab, char chInfo, const char *chComment)
void PntForLine(double wavelength, const char *chLabel, long int *ipnt)
void lindst(double xInten, realnum wavelength, const char *chLab, long int ipnt, char chInfo, bool lgOutToo, const char *chComment)
void prt_wl(FILE *ioOUT, realnum wl)
void lines_lv1_k_zn(void)
TransitionList Fe2LevN("Fe2LevN", &Fe2LevNStates)
multi_arr< int, 2 > ipFe2LevN
TransitionList TauLines("TauLines", &AnonStates)
void PutLine(const TransitionProxy &t, const char *chComment, const char *chLabelTemp)