37 fprintf(
ioQQQ,
" lines_lv1_k_zn called\n" );
41 " potassium K I 7745 ");
44 " [K III] 4.62 microns ");
50 " [KIV] 15.39 micron ");
53 " [KVI] 8.823 micron ");
56 " [KVI] 5.575 micron ");
59 " [K VII] 3.189 microns ");
65 " calcium Ca I 4228 ");
68 " coll excited calcium k+h " );
71 " infrared triplet ");
74 " forbidden lines, 7291+7324 together " );
77 " fraction H Ly-alpha destruction of excited levels ");
80 " fraction H Ly-alpha destruction of excited levels ");
84 " individual lines from five level atom");
89 " individual lines from five level atom" );
94 " individual lines from five level atom " );
99 " individual lines from five level atom" );
104 " individual lines from five level atom" );
109 " individual lines from five level atom" );
114 " individual lines from five level atom" );
119 linadd(eff,3933,
"Rec ",
'i',
120 " recombination contribution to CaII emission" );
123 " Ca IV 3.2 micron ");
126 " Ca V 4.16, 11.47 micron");
129 " Ca V 4.16, 11.47 micron ");
134 " Ca V optical and UV lines, collisional excitation, 3-level atom");
139 " Ca V optical and UV lines, collisional excitation, 3-level atom");
144 " Ca V optical and UV lines, collisional excitation, 3-level atom");
149 " Ca V optical and UV lines, collisional excitation, 3-level atom" );
152 " [Ca VII] 4.09 microns" );
155 " [Ca VII] 6.15 microns " );
160 " Ca VII optical and UV lines, collisional excitation, 3-level atom" );
165 " Ca VII optical and UV lines, collisional excitation, 3-level atom" );
170 " Ca VII optical and UV lines, collisional excitation, 3-level atom");
175 " Ca VII optical and UV lines, collisional excitation, 3-level atom" );
178 " [Ca VIII] 2.32 microns, A Saraph and Strey ");
181 " [Ca 12] 3328.78A ");
184 " Ca 18 Li seq 2s2p, 302, 345 separate ");
187 " Ca 18 Li seq 2s2p, 302, 345 separate ");
190 " Ca 18 Li seq 2s3p, ");
195 " Sc II 2.08 (1-3) " );
200 " Sc II 4.1 micron (1-2)" );
205 " Sc II 4.22 (2-3)" );
213 " [Sc V] 1.46 microns ");
218 " Sc VI 5054 (1-2)");
223 " Sc VI 3595 (2-3)" );
228 " Sc VI 2100 (1-3)" );
231 " [Sc 13] 2637.97A");
236 " Ti III 1.21 micron, (actually multiplet) 2-1 transition from model atom " );
241 " Ti III 9594, 3-1 transition, (actually multiplet) from model atom" );
245 " Ti III 4.57 micron, 3-2 transition, (actually multiplet) from model atom" );
248 " [Ti VI] 1.72 microns ");
251 " [Ti XIV] 2117.79 ");
276 " V IV 4.19 micron 3-2" );
279 " [V VII] 1.304 microns ");
287 " [CrIII] multiplet blend at 5828A" );
291 " [CrIV] 2 - 1 multiplet blend at 7272" );
296 " [CrIV] 3 - 1 multiplet blend at 6806" );
301 " [CrV] 2 - 1 multiplet blend at 7985" );
305 " [CrV] 3 - 1 multiplet blend at 6582" );
310 " [CrV] 3 - 2 multiplet blend at 3.75 microns " );
313 " [Cr VIII] 1.01 microns ");
316 " [Cr 16] 1410.60 ");
319 " [Mn IX] 7968.5 A ");
322 " [Mn 17] 1169.59 ");
360 "total of all Fe 2, both simple UV and large atom together ");
363 "total of all Fe 2 heating, both simple UV and large atom together ");
366 " Fe 2 forbidden 2-1 transition from Netzer's atom ");
396 " Fe 2 1.664 microns 8-13 " );
401 " Fe 2 1.599 microns 7-12" );
406 " Fe 2 1.534 microns 6-11 ");
411 " Fe 2 1.644 microns 6-10 " );
416 " Fe 2 1.279 microns 12-4" );
421 " Fe 2 1.295 microns 11-3 " );
426 " Fe 2 1.328 microns 11-4" );
431 " Fe 2 1.257 microns 10-1 " );
436 " Fe 2 1.321 microns 10-2 " );
441 " Fe 2 25.988 microns 2-1" );
445 " Fe 2 35.348 microns 3-2" );
450 " Fe 2 17.936 microns 7-6, label is 178 to be unique " );
455 " Fe 2 24.518 microns 8-7" );
459 " Fe 2 35.776 microns 9-8" );
463 " Fe 2 1.810 microns 10-7" );
468 " Fe 2 1.677 microns 11-7 " );
473 " Fe 2 1.800 microns 11-8" );
478 " Fe 2 1.712 microns 12-8 " );
483 " Fe 2 1.798 microns 12-9" );
488 " Fe 2 22.902 microns 11-10 " );
493 " Fe 2 34.660 microns 12-11" );
502 " Fe 2 8617A 14-06," );
507 " Fe 2 8892A 15-07" );
512 " Fe 2 9227A 15-08 " );
517 " Fe 2 9268A 16-09" );
525 " Fe 2 5158.81 25-6" );
530 " Fe 2 5261.61 27-7" );
534 " Fe 2 5333.65 28-8 " );
539 " Fe 2 5376.47 29-9 " );
543 " Fe 2 4814.55 32-6 " );
547 " Fe 2 4905.35 33-7" );
552 " Fe 2 4346.85 37-7 " );
557 " Fe 2 4352.78 39-8 " );
562 " Fe 2 4372.43 40-9 " );
567 " Fe 2 4243.98 37-6" );
572 " Fe 2 4276.83 39-7" );
577 " Fe 2 4319.62 40-8" );
582 " Fe 2 4358.37 41-9 " );
587 " Fe 2 4177.21 39-6 " );
592 " Fe 2 4244.81 40-7 " );
597 " Fe 2 4305.90 41-8" );
603 " Fe 2 4114.48 42-6 " );
608 " Fe 2 4178.95 7- 43" );
613 " Fe 2 4211.10 7- 42 " );
618 " Fe 2 4314.29 28- 80" );
622 " Fe 2 4359.34 2- 36" );
627 " Fe 2 4413.78 3- 36 " );
632 " Fe 2 4416.27 1- 32");
637 " Fe 2 4457.95 2- 33 " );
642 " Fe 2 4474.91 5- 36 " );
647 " Fe 2 4492.64 2- 32" );
652 " Fe 2 4514.90 3- 33" );
657 " Fe 2 4728.07 3- 30" );
662 " Fe 2 4774.74 6- 33" );
666 " Fe 2 4889.63 2- 24" );
671 " Fe 2 4947.37 7- 32" );
676 " Fe 2 4950.74 8- 35" );
681 " Fe 2 4973.39 8- 34" );
686 " Fe 2 5111.63 6- 27" );
691 " Fe 2 5220.06 7- 28" );
696 " Fe 2 5268.880 8- 30 " );
701 " Fe 2 5273.35 6- 24" );
705 " Fe 2 5296.840 8- 29 " );
710 " Fe 2 5433.13 7- 24" );
715 " Fe 2 5527.340 7- 22" );
720 " Fe 2 5746.96 11- 38" );
725 " Fe 2 6440.400 8- 19" );
729 " Fe 2 7155.140 6- 17 " );
734 " Fe 2 7171.980 7- 18" );
739 " Fe 2 7388.160 8- 18" );
744 " Fe 2 7452.540 7- 17" );
762 " total Fe II emission in Fe II bands, as defined in bands_Fe2.dat ");
793 " total Fe II emission in Fe II bands, as defined in bands_Fe2.dat ");
798 " anomalous Fe 2 transition at 1787, RMT 191");
801 " chng 05 dec 16, FeIII code created by Kevin Blagrave Fe3c 0 - total cooling due to 14-level Fe 3 atom ");
896 for( ihi=1; ihi<
NLFE3; ++ihi )
898 for( ilo=0; ilo<ihi; ++ilo )
903 fprintf(
ioQQQ,
"\t/* FeIII ");
905 fprintf(
ioQQQ,
" from Blagrave 14-level atom */\n ");
927 " Fe4c 0 - total cooling due to 12-level Fe 4 atom " );
932 " Fe 4 3096.A, 4-1 and 5-1 transitions together" );
937 " Fe 4 2835.7A, 6-1 transition, 4P5/2 - 6S5/2 " );
942 " Fe 4 2829.4A, 7-1 transition, 4P3/2 - 6S5/2" );
947 " Fe 4 2567.6+ 2567.4. 11-1 and 12-1 transitions" );
952 " Fe 4 2.774 microns 12-7 transition " );
957 " Fe 4 2.714 microns 12-6 transition " );
962 " Fe 4 2.716 microns 11-6 transition" );
967 " Fe 4 2.806 microns 10-7 transition " );
972 " Fe 4 2.865 microns 10-8 transition");
977 " Fe 4 2.836 microns 9-6 transition" );
985 " all of 2G lines together first ");
990 " Fe 6 5177, approximate correct " );
993 " Fe7c 0 - total cooling due to n-level Fe 7 atom ");
996 for( ilo=0; ilo<
NLFE7-1; ++ilo )
999 for( ihi=
MAX2(3,ilo+1); ihi<
NLFE7; ++ihi )
1004 " emission in these lines" );
1009 lindst(
fe.Fe7_5721 , 5721 ,
"Fe 7",ipnt,
'c',
true,
1013 lindst(
fe.Fe7_6601 , 6601 ,
"Fe 7",ipnt,
'c',
true,
1017 lindst(
fe.Fe7_3760 , 3760 ,
"Fe 7",ipnt,
'c',
true,
1021 lindst(
fe.Fe7_3588 , 3588 ,
"Fe 7",ipnt,
'c',
true,
1026 " [Fe 7] 9.51 micron ");
1029 " [Fe 7] 7.81 micron ");
1044 " Fe 9 242 j=1 slower decay");
1047 " the E1 transition that can pump [Fe X] ");
1063 " [Fe 10] 6375, collisions with pumping too ");
1092 " >>chng 05 dec 18, add Fe 11 Fe11 0 - total cooling due to 5-level Fe 11 atom ");
1095 for( ihi=1; ihi<
NLFE11; ++ihi )
1097 for( ilo=0; ilo<ihi; ++ilo )
1101 " emission in these lines" );
1107 " Fe 12, 1242, 1349 together, collisional excitation");
1111 " Fe 12, 2170, 2406 together, collisional excitation");
1116 " Fe12 2904, 2567, 3567, 3073 together, collisional excitation" );
1121 "total cooling due to Fe 13 model atom ");
1124 for( ihi=1; ihi<
NLFE13; ++ihi )
1126 for( ilo=0; ilo<ihi; ++ilo )
1138 3.75e-12*eff/(1. + 24./.63*
1145 " Fe 14 5304 contribution from collisional excitation ");
1147 linadd(r14,5303,
"Pump",
'r' ,
1148 " Fe 14 5304 continuum fluorescense ");
1153 linadd(c14,5303,
" 347",
'c' ,
1154 " collisional excitation of E1 line ");
1162 " O-like Fe19, 3P ground term, 7046.72A vacuum wl, 1328.90A >>chng 01 aug 10, updated wavelengths Fe 19 7047 '85 " );
1172 " Fe 19 from loulergue et al '85" );
1177 " Fe 19 from loulergue et al '85");
1180 " next two 3p ground state lines, collisional excitation ");
1183 " collisional excitation ");
1186 " Fe20 721.40A, 578");
1197 " Fe 22 845.6A total intensity of Fe22, all lines in the multiplet " );
1212 "Fe 23 1909-like 262.6" );
1216 " Fe 24 only 192 of 255, 192 Li seq doublet, collisional excitation ");
1219 " Fe 24 255 of 255, 192 Li seq doublet, collisional excitation ");
1222 " Fe 24 Li seq 2s3p collisional excitation ");
1243 "total intensity of K-alpha line" );
1246 linadd(fela*1.11e-8,2,
"FeLr",
'i' ,
1247 " recombination from fully stripped ion ");
1251 " Auger hot iron, assumes case b for H and He-like ");
1254 " Auger production of cold iron, less than or 17 times ionized " );
1257 " grain production of cold iron ");
1260 " [Co XI] 5168. A ");
1263 " nickel [Ni I] 7m ");
1272 " [Ni XII] 4230.8 A ");
1278 "zinc iv 3.625 microns, cs and A just made up ");
1282 fprintf(
ioQQQ,
" lines_lv1_k_zn returns\n" );