29 fprintf(
ioQQQ,
" lines_lv1_na_ar called\n" );
35 " sodium sum of Na D lines");
38 " [NaIII] 7.319 micron ");
41 " [NaIV] 9.048 micron ");
44 " [NaIV] 21.29 micron ");
48 " [NaV] 1365, sum of 1365.1+1365.8; cs only guess ");
52 " [NaV] 2067, sum of 2066.9+2068.4; cs only guess ");
56 " [NaV] 4017, sum of 4010.9+4016.7+4022.7; cs only guess " );
75 " [NaVI] 14.32 micron ");
78 " [NaVI] 8.62 micron ");
81 " [NaVII] 4.675 micron ");
84 "Magnesium I 4571, O I data for coll strength and trans prob ");
93 "TOTL",
'i',
"Mg II 2798 add both lines of multiplet together " );
99 linadd(sum,2798,
"Inwd",
'i',
100 "inward part of Mg II 2798" );
103 "one member of Mg II multiplet");
106 "one member of Mg II multiplet");
109 " Mg IV 4.5 micron ");
112 " Mg V 13.5 micron emission");
115 " Mg V 5.6 micron emission ");
118 " [Mg 5] 2571, 2893 ");
121 " [Mg 5] 2417.5A, 3-2 in model atom" );
124 " [Mg 5] 1324.58A, 3-1 in model atom ");
131 " [Mg 7] 2510, 2629, 2-1 transitions, together");
134 " [Mg 7] 3-2 transition, 2261.5 ");
137 " [Mg 7] 3-1 transition, 1189.82A ");
140 " Mg 7 IR line 5.50 microns ");
143 " Mg 7 IR line 9.03 microns ");
146 " [Mg 8] 3.03 micron ");
151 " Mg 10 614.9 both of doublet, li seq 2s 2p" );
159 " part of Mg 10 destroyed by background opacity Mg 10 58 li seq 2s 3p ");
161 TauLines[ipTMg625].Emis().ots()*
TauLines[ipTMg625].EnergyErg(),615,
"dest",
'i',
165 " Aluminum Al I 3957 ");
171 "Al II 1671 total emission in Al II] 2669.7, 2660 doublet" );
176 "emission in Al II] 2669 alone" );
183 linadd(sum,1860,
"Inwd",
'i',
184 " inward part of AlIII line" );
191 " [Al V] 2.905 micron ");
194 " [Al VI] 3.66 micron ");
197 " [Al VI] 9.12 micron");
201 " [Al VI] 2428.4 " );
209 " [Al VI] 1169.86 ");
213 " [Al VI] 2124.95" );
216 " [Al VIII] 5.75 micron " );
219 " [Al VIII] 3.70 micron");
222 " [Al IX] 2.04 micron, no collision strength, A NIST ");
227 " Al 11, Li seq 2s2p" );
236 " Al 11, Li seq 2s3p ");
239 " silicon Silicon Si I 130m ");
251 " Silicon II 35 micron ");
260 "total intensity of S IV] 1406, all lines in the multiplet" );
273 " SI II 1808, permitted resonance line, collisionally excited ");
276 " SI II 1527, permitted resonance line, collisionally excited ");
279 " SI II 1305, permitted resonance line, collisionally excited ");
282 " SI II 1260, permitted resonance line, collisionally excited ");
290 lindst(drec*fac,1260,
"diel",ipnt,
'r',
true,
291 " fac = (1.-TauLines[ipT1260].ColOvTot());" );
295 lindst(drec*1260./1909.,1909,
"diel",ipnt,
'r',
true,
296 " dielectronic recombination SiII 1909" );
298 rec = 1e-12*(0.1152/t4 - 0.3082 + 4.4734*t4 + 0.0207*t4*t4)/pow(t4,1.5)*
309 " SI III 1207, collisional excitation and dielectronic recombination ");
312 " Si III 1207, dielectronic recombination only" );
315 " Si III] 1892+1883, total intensity of both lines" );
321 " Si III] 1883 by itself");
328 linadd( p1895*1.05e-11*fac,1895,
"PHOT",
'i',
329 " photoproduction by inner shell removal" );
332 " Si IV 1397, collisionally excited " );
337 linadd(sum,1397,
"Inwd",
'i',
338 " inward part of SiIV 1397" );
345 " SI VI 1.9641 micron ");
349 " SI VII, 2148, O III like, collisionally excited" );
352 " Si VII 2.48, 6.49 micron, collisionally excited ");
355 " Si VII 2.48, 6.49 micron, collisionally excited ");
359 " SI VIII 1446, OIII like, collisionally excited" );
363 " SI IX 1985, 2150, collisionally excited" );
368 " collisionally excited" );
372 " collisionally excited " );
375 " SI 9, 3.86, 2.84 3P fine structure lines ");
378 " SI 9, 3.86, 2.84 3P fine structure lines ");
382 " both components of 5S-3P doublet");
385 " SI 10 606A, actually group of 4 intercombination lines ");
388 " [Si 10] 1.43 micron, collisionally excited ");
392 " Si 11 582.9, collisionally excited >>chng 01 may 23, wavelength from 583 to 581" );
395 "emission total Si 12 506 + 499 ");
398 " Si 12 506 li seq 2s 2p ");
403 " Si 12 40.9A, li seq 2s 3p ");
406 " phosphorus [P II] 60.64 micron ");
409 " [P II] 32.87 micron ");
413 " 3-2 1.64 micron ");
417 " >>chng 01 may 15, add these lines P 2 3-1 4670, 4738 vac wl, 4669, 4737 air");
421 " P 2 3-1 4670, 4738 vac wl, 4737, 4737 air");
425 " 2-1 1.147, 1.189 micron" );
429 " [P II] 1.14 micron");
432 " [P III] 17.885 micron ");
435 " [P VII] 1.3745 micron ");
438 " sulphur S I 25m ");
445 " guesstimate of Sulphur I triplet excited state recombination rate.this is to check whether photoexcit of S II is ever important S I 1807 recombination " );
449 " S II 6731 + 6716 together " );
453 "S 2",ipnt,
'i',
false,
"S II 4070 +4078 together" );
457 " S II N=3 lines, all four lines together " );
461 " individual line from five level atom" );
465 " individual line from five level atom" );
469 " individual line from five level atom " );
473 " individual line from five level atom" );
477 " individual line from five level atom " );
480 " individual line from five level atom" );
483 " individual line from five level atom ");
486 " individual line from five level atom " );
489 " resonance line near NV, collisionally excited ");
492 " S III fine structure 18.7 ");
495 " S III fine structure 34 ");
498 " S III] 1713.12, 1728.94 ");
502 " [S III] 9532 alone ");
506 " [S III] 9069 alone" );
510 " [S III] 6312, trans-auroral temperature sensitive ");
514 " [S III] 3722, same upper level as 6312" );
517 " WL, other data, from Ho + Henry Ap.J. 1984 ");
520 " S IV 10.5 micron, collisionally excited (label is 105) ");
529 " total intensity of S IV] 1406, all lines in the multiplet " );
542 " S V 1198] both lines together " );
545 " S V 1198] the stronger transition ");
548 " Be seq, weaker of the two transitions" );
551 " S V 786.5, collisionally excited ");
554 " chlorine lines [Cl I] 11 micron ");
557 " [Cl II] 33.281 micron ");
560 " [Cl II] 14.3678 micron ");
564 " Chlorine II 8578.7, 9123.6 doublet");
568 " Chlorine II 8578.7, 9123.6 doublet" );
572 " Chlorine II 6161.8 auroral line >>chng 03 feb 24, change wavelength from 6164 to correct 6161.8 " );
576 " Chlorine II 3677.9 auroral line >>chng 03 feb 24, to correct wavelength " );
579 " Cl III 5519, 5539 doublet, both together " );
582 " Cl III 3354, 3344 doublet, both together " );
585 " Cl III 8504, 8436, 8552, 8483 multiplet, all together " );
620 " [Cl IV] fine structure line 20.354 microns");
623 " [Cl IV] fine structure line 11.741 microns ");
645 " Argon II 7 micron ");
668 " Argon III 21.8, 9 micron lines");
671 " Argon III 21.8, 9 micron lines ");
674 " Argon IV 4711 + 4740 together, 4740=90%" );
677 " [AvIV] 2868, 2854 together " );
680 " [AvIV] auroral lines, 7237, 7331, 7171, 7263 " );
717 " Argon V, 3P lines, 7005, collisionally excited" );
721 " Argon V, 3P lines, 6435, collisionally excited");
725 " >>chng 01 mar 10, add following two lines Argon V, 4626" );
732 " Argon V fine structure lines, 13.09, 7.903 micron line ");
735 " Argon V fine structure lines, 13.09, 7.903 micron line ");
738 " [Ar VI] 4.53 micron ");
742 fprintf(
ioQQQ,
" lines_lv1_na_ar returns\n" );
void lindst(double xInten, realnum wavelength, const char *chLab, long int ipnt, char chInfo, bool lgOutToo, const char *chComment)
double emit_frac(const TransitionProxy &t)
sys_float sexp(sys_float x)
void PntForLine(double wavelength, const char *chLabel, long int *ipnt)
double xIonDense[LIMELM][LIMELM+1]
void PutLine(const TransitionProxy &t, const char *chComment, const char *chLabelTemp)
double **** PhotoRate_Shell
TransitionList TauLines("TauLines",&AnonStates)
#define DEBUG_ENTRY(funcname)
void lines_lv1_na_ar(void)
void linadd(double xInten, realnum wavelength, const char *chLab, char chInfo, const char *chComment)
void PutExtra(double Extra)
1.8.5