cloudy  trunk
 All Data Structures Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Pages
prt_lines_lv1_na_ar.cpp
Go to the documentation of this file.
1 /* This file is part of Cloudy and is copyright (C)1978-2008 by Gary J. Ferland and
2  * others. For conditions of distribution and use see copyright notice in license.txt */
3 /*lines_lv1_na_ar place lines of elements sodium through argon into lines storage stack */
4 #include "cddefines.h"
5 #include "coolheavy.h"
6 #include "sil.h"
7 #include "phycon.h"
8 #include "embesq.h"
9 #include "taulines.h"
10 #include "dense.h"
11 #include "ionbal.h"
12 #include "trace.h"
13 #include "lines_service.h"
14 #include "lines.h"
15 
16 void lines_lv1_na_ar(void)
17 {
18  long int ipnt;
19  double drec,
20  fac,
21  rec,
22  sum,
23  t4;
24 
25  DEBUG_ENTRY( "lines_lv1_na_ar()" );
26 
27  if( trace.lgTrace )
28  {
29  fprintf( ioQQQ, " lines_lv1_na_ar called\n" );
30  }
31 
32  t4 = phycon.te/1e4;
33 
35  " sodium sum of Na D lines");
36 
38  " [NaIII] 7.319 micron ");
39 
41  " [NaIV] 9.048 micron ");
42 
44  " [NaIV] 21.29 micron ");
45 
46  PntForLine(1365.,"Na 5",&ipnt);
47  lindst(CoolHeavy.c1365,1365,"Na 5",ipnt,'c',true ,
48  " [NaV] 1365, sum of 1365.1+1365.8; cs only guess ");
49 
50  PntForLine(2067.,"Na 5",&ipnt);
51  lindst(CoolHeavy.c2067,2067,"Na 5",ipnt,'c',true ,
52  " [NaV] 2067, sum of 2066.9+2068.4; cs only guess ");
53 
54  PntForLine(4017.,"Na 5",&ipnt);
55  lindst(CoolHeavy.c4017,4017,"Na 5",ipnt,'c',true,
56  " [NaV] 4017, sum of 4010.9+4016.7+4022.7; cs only guess " );
57 
58  PntForLine(2569.,"Na 6",&ipnt);
59  lindst(CoolHeavy.c2569,2569,"Na 6",ipnt,'c',true,
60  " [Na VI] 2568.9 " );
61 
62  PntForLine(1357.,"Na 6",&ipnt);
63  lindst(CoolHeavy.c1357,1357,"Na 6",ipnt,'c',true ,
64  " [Na VI] 1356.6 ");
65 
66  PntForLine(2972.,"Na 6",&ipnt);
67  lindst(CoolHeavy.c2972/(1.+1./3.02),2972,"Na 6",ipnt,'c',true ,
68  " [Na VI] 2971.9 ");
69 
70  PntForLine(2872.,"Na 6",&ipnt);
71  lindst(CoolHeavy.c2972/(1.+3.02),2872,"Na 6",ipnt,'c',true,
72  " [Na VI] 2872.7 ");
73 
75  " [NaVI] 14.32 micron ");
76 
78  " [NaVI] 8.62 micron ");
79 
81  " [NaVII] 4.675 micron ");
82 
84  "Magnesium I 4571, O I data for coll strength and trans prob ");
85 
87  " Mg I 2853 ");
88 
90  " Mg I 2026 ");
91 
92  linadd(TauLines[ipT2796].Emis->xIntensity+TauLines[ipT2804].Emis->xIntensity,2798,
93  "TOTL",'i',"Mg II 2798 add both lines of multiplet together " );
94 
95  /* sum of inward fracs of lines */
98 
99  linadd(sum,2798,"Inwd",'i',
100  " inward part of Mg II 2798" );
101 
103  "");
104 
105  PutLine(&TauLines[ipT2804],
106  "");
107 
109  " Mg IV 4.5 micron ");
110 
112  " Mg V 13.5 micron emission");
113 
115  " Mg V 5.6 micron emission ");
116 
118  " [Mg 5] 2571, 2893 ");
119 
121  " [Mg 5] 2417.5A, 3-2 in model atom" );
122 
124  " [Mg 5] 1324.58A, 3-1 in model atom ");
125 
126  PntForLine(1806.,"Mg 6",&ipnt);
127  lindst(CoolHeavy.c1806,1806,"Mg 6",ipnt,'c',true ,
128  " MG VI");
129 
131  " [Mg 7] 2510, 2629, 2-1 transitions, together");
132 
134  " [Mg 7] 3-2 transition, 2261.5 ");
135 
137  " [Mg 7] 3-1 transition, 1189.82A ");
138 
140  " Mg 7 IR line 5.50 microns ");
141 
143  " Mg 7 IR line 9.03 microns ");
144 
146  " [Mg 8] 3.03 micron ");
147 
148  PutLine(&TauLines[ipT705]," Mg 9 704.5 ");
149 
150  linadd(TauLines[ipTMg610].Emis->xIntensity+TauLines[ipTMg625].Emis->xIntensity,615,"TOTL",'i',
151  " Mg 10 614.9 both of doublet, li seq 2s 2p" );
152 
154  "");
155  PutLine(&TauLines[ipTMg625],
156  "");
157 
159  " part of Mg 10 destroyed by background opacity Mg 10 58 li seq 2s 3p ");
160  linadd(TauLines[ipTMg610].Emis->ots*TauLines[ipTMg610].EnergyErg+
161  TauLines[ipTMg625].Emis->ots*TauLines[ipTMg625].EnergyErg,615,"dest",'i',
162  "" );
163 
165  " Aluminum Al I 3957 ");
166 
168  " Al I 3090 ");
169 
170  linadd(embesq.em2669+TauLines[ipT2670].Emis->xIntensity,2665,"totl",'i',
171  "Al II 1671 total emission in Al II] 2669.7, 2660 doublet" );
172  PutLine(&TauLines[ipT2670],
173  " ");
174 
175  linadd(embesq.em2669,2660,"Al 2",'i',
176  "emission in Al II] 2669 alone" );
177 
178  linadd(TauLines[ipT1855].Emis->xIntensity+TauLines[ipT1863].Emis->xIntensity,1860,"TOTL",'i',
179  " Al III" );
182 
183  linadd(sum,1860,"Inwd",'i',
184  " inward part of AlIII line" );
186  "");
187  PutLine(&TauLines[ipT1863],
188  "");
189 
191  " [Al V] 2.905 micron ");
192 
194  " [Al VI] 3.66 micron ");
195 
197  " [Al VI] 9.12 micron");
198 
199  PntForLine(2428.,"Al 6",&ipnt);
200  lindst(CoolHeavy.c2428/(1.+1./3.73),2428,"Al 6",ipnt,'c',true,
201  " [Al VI] 2428.4 " );
202 
203  PntForLine(2601.,"Al 6",&ipnt);
204  lindst(CoolHeavy.c2428/(1.+3.73),2601,"Al 6",ipnt,'c',true,
205  " [Al VI] 2601.0");
206 
207  PntForLine(1170.,"Al 6",&ipnt);
208  lindst(CoolHeavy.c1170,1170,"Al 6",ipnt,'c',true,
209  " [Al VI] 1169.86 ");
210 
211  PntForLine(2125.,"Al 6",&ipnt);
212  lindst(CoolHeavy.c2125,2125,"Al 6",ipnt,'c',true ,
213  " [Al VI] 2124.95" );
214 
216  " [Al VIII] 5.75 micron " );
217 
219  " [Al VIII] 3.70 micron");
220 
222  " [Al IX] 2.04 micron, no collision strength, A NIST ");
223 
224  PutLine(&TauLines[ipT639]," Al X ");
225 
226  linadd(TauLines[ipTAl550].Emis->xIntensity+TauLines[ipTAl568].Emis->xIntensity,556,"TOTL",'i',
227  " Al 11, Li seq 2s2p" );
228 
230  "");
231 
232  PutLine(&TauLines[ipTAl568],
233  "");
234 
236  " Al 11, Li seq 2s3p ");
237 
239  " silicon Silicon Si I 130m ");
240 
242  " Si I 68m");
243 
245  " Si I 2518A ");
246 
248  " Si I 2215A ");
249 
251  " Silicon II 35 micron ");
252 
253  linadd(
254  TauLines[ipSi2_2334].Emis->xIntensity+
259  2335,"TOTL",'i',
260  "total intensity of S IV] 1406, all lines in the multiplet" );
262  " ");
264  " ");
266  " ");
268  " ");
269  PutLine(&TauLines[ipSi2_2336],
270  " ");
271 
273  " SI II 1808, permitted resonance line, collisionally excited ");
274 
276  " SI II 1527, permitted resonance line, collisionally excited ");
277 
279  " SI II 1305, permitted resonance line, collisionally excited ");
280 
282  " SI II 1260, permitted resonance line, collisionally excited ");
283 
284  /* SI II 1260, rough guess of dielec contribution */
285  drec = dense.xIonDense[13][2]*dense.eden*7.6e-7/phycon.te32*
286  1.57e-11*ionbal.DielSupprs[1][2];
287 
288  fac = emit_frac(&TauLines[ipT1260]);
289  PntForLine(1260.,"Si 2",&ipnt);
290  lindst(drec*fac,1260,"diel",ipnt,'i',true,
291  " fac = (1.-TauLines[ipT1260].ColOvTot);" );
292 
293 
294  PntForLine(1909.,"Si 2",&ipnt);
295  lindst(drec*1260./1909.,1909,"diel",ipnt,'i',true,
296  " dielectronic recombination SiII 1909" );
297 
298  rec = 1e-12*(0.1152/t4 - 0.3082 + 4.4734*t4 + 0.0207*t4*t4)/pow(t4,1.5)*
299  sexp(0.2981/t4);
300 
301  /* >>chng 96 jul 8, added dielectronic recombination contribution to 1207 */
302  /*rec *= dense.xIonDense[13][3]*dense.eden*(1.-TauLines[ipT1207].ColOvTot)**/
304  1.65e-11*ionbal.DielSupprs[1][2];
305 
306  PutExtra(MAX2(0.,rec));
307 
308  PutLine(&TauLines[ipT1207],
309  " SI III 1207, collisional excitation and dielectronic recombination ");
310 
311  linadd(MAX2(0.,rec),1207,"rec ",'i',
312  " Si III 1207, dielectronic recombination only" );
313 
314  linadd(embesq.em1895+TauLines[ipT1895].Emis->xIntensity,1888,"TOTL",'i',
315  " Si III] 1892+1883, total intensity of both lines" );
316  PutLine(&TauLines[ipT1895],
317  " ");
318 
319  PntForLine(1883.,"Si 3",&ipnt);
320  lindst(embesq.em1895,1883,"Si 3",ipnt,'i',true ,
321  " Si III] 1883 by itself");
322 
323  /*fac = (1.-TauLines[ipT1895].ColOvTot);*/
324  fac = emit_frac(&TauLines[ipT1895]);
325 
326  double p1895 = ionbal.PhotoRate_Shell[ipSILICON][1][2][0]*
327  dense.xIonDense[ipSILICON][1]*0.85;
328  linadd( p1895*1.05e-11*fac,1895,"PHOT",'i',
329  " photoproduction by inner shell removal" );
330 
331  linadd(TauLines[ipT1403].Emis->xIntensity+TauLines[ipT1394].Emis->xIntensity,1397,"TOTL",'i',
332  " Si IV 1397, collisionally excited " );
333 
336 
337  linadd(sum,1397,"Inwd",'i',
338  " inward part of SiIV 1397" );
340  " ");
341  PutLine(&TauLines[ipT1394],
342  " ");
343 
345  " SI VI 1.9641 micron ");
346 
347  PntForLine(2148.,"Si 7",&ipnt);
348  lindst(sil.c2148,2148,"Si 7",ipnt,'c',true,
349  " SI VII, 2148, O III like, collisionally excited" );
350 
352  " Si VII 2.48, 6.49 micron, collisionally excited ");
353 
355  " Si VII 2.48, 6.49 micron, collisionally excited ");
356 
357  PntForLine(1446.,"Si 8",&ipnt);
358  lindst(sil.c1446,1446,"Si 8",ipnt,'c',true,
359  " SI VIII 1446, OIII like, collisionally excited" );
360 
361  PntForLine(1985.,"Si 9",&ipnt);
362  lindst(sil.c1985,1985,"Si 9",ipnt,'c',true,
363  " SI IX 1985, 2150, collisionally excited" );
364 
365 
366  PntForLine(949.,"Si 9",&ipnt);
367  lindst(sil.c949,949,"Si 9",ipnt,'c',true,
368  " collisionally excited" );
369 
370  PntForLine(1815.,"Si 9",&ipnt);
371  lindst(sil.c1815,1815,"Si 9",ipnt,'c',true,
372  " collisionally excited " );
373 
375  " SI 9, 3.86, 2.84 3P fine structure lines ");
376 
378  " SI 9, 3.86, 2.84 3P fine structure lines ");
379 
380  PntForLine(691.,"Si 9",&ipnt);
381  lindst(sil.c691,691,"Si 9",ipnt,'c',true ,
382  " both components of 5S-3P doublet");
383 
385  " SI 10 606A, actually group of 4 intercombination lines ");
386 
388  " [Si 10] 1.43 micron, collisionally excited ");
389 
390  PntForLine(583.,"Si11",&ipnt);
391  lindst(sil.c583,581,"Si11",ipnt,'c',true,
392  " Si 11 582.9, collisionally excited >>chng 01 may 23, wavelength from 583 to 581" );
393 
394  linadd(TauLines[ipTSi499].Emis->xIntensity+TauLines[ipTSi521].Emis->xIntensity,506,"TOTL",'i' ,
395  "emission total Si 12 506 + 499 ");
396 
398  " Si 12 506 li seq 2s 2p ");
399  PutLine(&TauLines[ipTSi521],
400  " ");
401 
403  " Si 12 40.9A, li seq 2s 3p ");
404 
406  " phosphorus [P II] 60.64 micron ");
407 
409  " [P II] 32.87 micron ");
410 
411  PntForLine(16400.,"P 2",&ipnt);
412  lindst(CoolHeavy.p2_32,16400,"P 2",ipnt,'c',true ,
413  " 3-2 1.64 micron ");
414 
415  PntForLine(4669.,"P 2",&ipnt);
416  lindst(CoolHeavy.p2_31*0.75,4669,"P 2",ipnt,'c',true ,
417  " >>chng 01 may 15, add these lines P 2 3-1 4670, 4738 vac wl, 4669, 4737 air");
418 
419  PntForLine(4737.,"P 2",&ipnt);
420  lindst(CoolHeavy.p2_31*0.25,4737,"P 2",ipnt,'c',true ,
421  " P 2 3-1 4670, 4738 vac wl, 4737, 4737 air");
422 
423  PntForLine(11890.,"P 2",&ipnt);
424  lindst(CoolHeavy.p2_21*0.75,11890,"P 2",ipnt,'c',true,
425  " 2-1 1.147, 1.189 micron" );
426 
427  PntForLine(11470.,"P 2",&ipnt);
428  lindst(CoolHeavy.p2_21*0.25,11470,"P 2",ipnt,'c',true ,
429  " [P II] 1.14 micron");
430 
432  " [P III] 17.885 micron ");
433 
435  " [P VII] 1.3745 micron ");
436 
438  " [P VIII] 4.85 micron ");
439 
441  " [P VIII] 1.735 microns ");
442 
444  " [P X] 2.708 micron ");
445 
447  " [P X] 1.868 microns ");
448 
450  " sulphur S I 25m ");
451 
453  " S I 56m ");
454 
456  phycon.te10/phycon.te03,1807,"S 1R",'i',
457  " 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 " );
458 
459  linadd(CoolHeavy.c6731,6720,"S 2",'c',
460  " S II 6731 + 6716 together " );
461 
463  "S 2",'c',"S II 4070 +4078 together" );
464 
465  PntForLine(10330.,"S 2",&ipnt);
466  lindst(CoolHeavy.c10330,10330,"S 2",ipnt,'c',true,
467  " S II N=3 lines, all four lines together " );
468 
469  PntForLine(6731.,"S II",&ipnt);
470  lindst(CoolHeavy.S6733,6731,"S II",ipnt,'i',true,
471  " now output the real thing individual line from five level atom" );
472 
473  PntForLine(6716.,"S II",&ipnt);
474  lindst(CoolHeavy.S6718,6716,"S II",ipnt,'i',true,
475  " individual line from five level atom" );
476 
477  PntForLine(4070.,"S II",&ipnt);
478  lindst(CoolHeavy.S4070,4070,"S II",ipnt,'i',true,
479  " individual line from five level atom " );
480 
481  PntForLine(4078.,"S II",&ipnt);
482  lindst(CoolHeavy.S4078,4078,"S II",ipnt,'i',true,
483  " individual line from five level atom" );
484 
485  linadd(CoolHeavy.S10323,10323,"S II",'i',
486  " individual line from five level atom " );
487 
488  linadd(CoolHeavy.S10289,10289,"S II",'i',
489  " individual line from five level atom" );
490 
491  linadd(CoolHeavy.S10373,10373,"S II",'i' ,
492  " individual line from five level atom ");
493 
494  linadd(CoolHeavy.S10339,10339,"S II",'i',
495  " individual line from five level atom " );
496 
498  " resonance line near NV, collisionally excited ");
499 
501  " S III fine structure 18.7 ");
502 
504  " S III fine structure 34 ");
505 
507  " S III] 1713.12, 1728.94 ");
508 
509  PntForLine(9532.,"S 3",&ipnt);
510  lindst(CoolHeavy.c9532/(1.+1./2.48),9532,"S 3",ipnt,'c',true ,
511  " [S III] 9532 alone ");
512 
513  PntForLine(9069.,"S 3",&ipnt);
514  lindst(CoolHeavy.c9532/(1.+2.48),9069,"S 3",ipnt,'c',true,
515  " [S III] 9069 alone" );
516 
517  PntForLine(6312.,"S 3",&ipnt);
518  lindst(CoolHeavy.c6312,6312,"S 3",ipnt,'c',true ,
519  " [S III] 6312, trans-auroral temperature sensitive ");
520 
521  PntForLine(3722.,"S 3",&ipnt);
522  lindst(CoolHeavy.c6312*0.59,3722,"S 3",ipnt,'c',true,
523  " [S III] 3722, same upper level as 6312" );
524 
526  " WL, other data, from Ho + Henry Ap.J. 1984 ");
527 
529  " S IV 10.5 micron, collisionally excited (label is 105) ");
530 
531  linadd(
532  TauLines[ipS4_1405].Emis->xIntensity+
537  1406,"TOTL",'i',
538  " total intensity of S IV] 1406, all lines in the multiplet " );
540  " ");
542  " ");
544  " ");
546  " ");
547  PutLine(&TauLines[ipS4_1407],
548  " ");
549 
550  linadd(embesq.em1198+TauLines[ipT1198].Emis->xIntensity,1198,"TOTL",'i',
551  " S V 1198] both lines together " );
552 
553  PutLine(&TauLines[ipT1198],
554  " S V 1198] the stronger transition ");
555 
556  linadd(embesq.em1198,1188,"S 5",'i',
557  " Be seq, weaker of the two transitions" );
558 
560  " S V 786.5, collisionally excited ");
561 
562  linadd(TauLines[ipT944].Emis->xIntensity+TauLines[ipT933].Emis->xIntensity,933,"TOTL",'i',
563  " S VI 933+944, collisionally excited total S VI 933+944 " );
565  " ");
566  PutLine(&TauLines[ipT933],
567  " ");
568 
570  " S VIII 9913 ");
571 
573  " S IX 1.25 microns ");
574 
576  " S IX 3.78 microns ");
577 
579  " S XI 1.91 microns ");
580 
582  " S XI 1.40 microns ");
583 
584  PntForLine(1715.,"S 9",&ipnt);
585  lindst(CoolHeavy.c1715,1715,"S 9",ipnt,'c',true ,
586  " S IX 1715, 1987, collisionally excited");
587 
588  PntForLine(1213.,"S 10",&ipnt);
589  lindst(CoolHeavy.c1213,1213,"S 10",ipnt,'c',true,
590  " S X 1213, 1197, collisionally excited " );
591 
592  PntForLine(1826.,"S 11",&ipnt);
593  lindst(CoolHeavy.c1826,1826,"S 11",ipnt,'c',true,
594  " S XI 1615, 1826, collisionally excited" );
595 
597  " S XII 7611.2 ");
598 
599  /* group of four intercombination lines
600  PntForLine(520.,"S 12",&ipnt);
601  lindst(CoolHeavy.c520,520,"S 12",ipnt,'c',true ); */
603  " >>chng 03 sep 27, move to atom_level2 from expion");
604 
605  PntForLine(488.,"S 13",&ipnt);
606  lindst(CoolHeavy.c488,488,"S 13",ipnt,'c',true,
607  " S XIII 488.4, 1909 like, collisionally excited" );
608 
609  linadd(TauLines[ipTSu418].Emis->xIntensity+TauLines[ipTSu446].Emis->xIntensity,427,"TOTL",'i',
610  " S 14 506 li seq 2s2p " );
612  " ");
613  PutLine(&TauLines[ipTSu446],
614  " ");
615 
617  " S 14 30 li seq 2s3p ");
618 
620  " chlorine lines [Cl I] 11 micron ");
621 
623  " [Cl II] 33.281 micron ");
624 
626  " [Cl II] 14.3678 micron ");
627 
628  PntForLine(8578.7,"Cl 2",&ipnt);
629  lindst(CoolHeavy.c8579*0.791,8579,"Cl 2",ipnt,'c',true,
630  " Chlorine II 8578.7, 9123.6 doublet");
631 
632  PntForLine(9123.6,"Cl 2",&ipnt);
633  lindst(CoolHeavy.c8579*0.209,9124,"Cl 2",ipnt,'c',true,
634  " Chlorine II 8578.7, 9123.6 doublet" );
635 
636  PntForLine(6161.8,"Cl 2",&ipnt);
637  lindst(CoolHeavy.c6164,6162,"Cl 2",ipnt,'c',true,
638  " Chlorine II 6161.8 auroral line >>chng 03 feb 24, change wavelength from 6164 to correct 6161.8 " );
639 
640  PntForLine(3677.9,"Cl 2",&ipnt);
641  lindst(CoolHeavy.c3679,3678,"Cl 2",ipnt,'c',true,
642  " Chlorine II 3677.9 auroral line >>chng 03 feb 24, to correct wavelength " );
643 
644  linadd(CoolHeavy.c5525,5525,"TOTL",'c',
645  " Cl III 5519, 5539 doublet, both together " );
646 
647  linadd(CoolHeavy.c3350,3350,"TOTL",'c',
648  " Cl III 3354, 3344 doublet, both together " );
649 
650  linadd(CoolHeavy.c8494,8494,"TOTL",'c',
651  " Cl III 8504, 8436, 8552, 8483 multiplet, all together " );
652 
653  PntForLine(5538.,"Cl 3",&ipnt);
654  lindst(CoolHeavy.Cl5539,5538,"Cl 3",ipnt,'i',true,
655  " Cl III 5538 " );
656 
657  PntForLine(5518.,"Cl 3",&ipnt);
658  lindst(CoolHeavy.Cl5519,5518,"Cl 3",ipnt,'i',true,
659  " Cl III 5518" );
660 
661  PntForLine(3354.,"Cl 3",&ipnt);
662  lindst(CoolHeavy.Cl3354,3354,"Cl 3",ipnt,'i',true,
663  " Cl III 3354 " );
664 
665  PntForLine(3344.,"Cl 3",&ipnt);
666  lindst(CoolHeavy.Cl3344,3344,"Cl 3",ipnt,'i',true,
667  " Cl III 3344 " );
668 
669  PntForLine(8504.,"Cl 3",&ipnt);
670  lindst(CoolHeavy.Cl8504,8504,"Cl 3",ipnt,'i',true ,
671  " Cl III 8504 ");
672 
673  PntForLine(8436.,"Cl 3",&ipnt);
674  lindst(CoolHeavy.Cl8436,8436,"Cl 3",ipnt,'i',true,
675  " Cl III 8436" );
676 
677  PntForLine(8552.,"Cl 3",&ipnt);
678  lindst(CoolHeavy.Cl8552,8552,"Cl 3",ipnt,'i',true,
679  " Cl III 8552 " );
680 
681  PntForLine(8483.,"Cl 3",&ipnt);
682  lindst(CoolHeavy.Cl8483,8483,"Cl 3",ipnt,'i',true,
683  " Cl III 8483" );
684 
686  " [Cl IV] fine structure line 20.354 microns");
687 
689  " [Cl IV] fine structure line 11.741 microns ");
690 
691  PntForLine(8047.,"Cl 4",&ipnt);
692  lindst(CoolHeavy.c8047*0.667,8047,"Cl 4",ipnt,'c',true,
693  " ClIV 8047" );
694 
695  PntForLine(7532.,"Cl 4",&ipnt);
696  lindst(CoolHeavy.c8047*0.333,7532,"Cl 4",ipnt,'c',true,
697  " ClIV 7532" );
698 
699  PntForLine(3119.,"Cl 4",&ipnt);
700  lindst(CoolHeavy.c3119,3119,"Cl 4",ipnt,'c',true,
701  " ClIV 3119" );
702 
703  PntForLine(5324.,"Cl 4",&ipnt);
704  lindst(CoolHeavy.c5324,5324,"Cl 4",ipnt,'c',true,
705  " ClIV 5324" );
706 
708  " Cl IX 7334A ");
709 
711  " Cl X 3.05 microns ");
712 
714  " Cl X 9223A ");
715 
717  " Argon II 7 micron ");
718 
719  PntForLine(7135.,"Ar 3",&ipnt);
720  lindst(CoolHeavy.c7136/(1.+1./4.144),7135,"Ar 3",ipnt,'c',true ,
721  " Argon III 7135");
722 
723  PntForLine(7751.,"Ar 3",&ipnt);
724  lindst(CoolHeavy.c7136/(1.+4.144),7751,"Ar 3",ipnt,'c',true,
725  " Argon III 7751" );
726 
727  PntForLine(5192.,"Ar 3",&ipnt);
728  lindst(CoolHeavy.c5192,5192,"Ar 3",ipnt,'c',true,
729  " Argon III 5192" );
730 
731  PntForLine(3109.,"Ar 3",&ipnt);
732  lindst(CoolHeavy.c3109*0.9894,3109,"Ar 3",ipnt,'c',true,
733  " Argon III 3109" );
734 
735  PntForLine(3005.,"Ar 3",&ipnt);
736  lindst(CoolHeavy.c3109*(1.-0.9894),3005,"Ar 3",ipnt,'c',true ,
737  " Argon III 3005 ");
738 
740  " Argon III 21.8, 9 micron lines");
741 
743  " Argon III 21.8, 9 micron lines ");
744 
745  linadd(CoolHeavy.Ar4740+CoolHeavy.Ar4711,4725,"TOTL",'i',
746  " Argon IV 4711 + 4740 together, 4740=90%" );
747 
748  linadd(CoolHeavy.Ar2868+CoolHeavy.Ar2854,2860,"TOTL",'i',
749  " [AvIV] 2868, 2854 together " );
750 
752  " [AvIV] auroral lines, 7237, 7331, 7171, 7263 " );
753 
754  PntForLine(4740.,"Ar 4",&ipnt);
755  lindst(CoolHeavy.Ar4740,4740,"Ar 4",ipnt,'c',true,
756  " [Ar IV] 4740" );
757 
758  PntForLine(4711.,"Ar 4",&ipnt);
759  lindst(CoolHeavy.Ar4711,4711,"Ar 4",ipnt,'c',true,
760  " [Ar IV] 4711" );
761 
762  PntForLine(2868.,"Ar 4",&ipnt);
763  lindst(CoolHeavy.Ar2868,2868,"Ar 4",ipnt,'c',true,
764  " [Ar IV] 2868" );
765 
766  PntForLine(2854.,"Ar 4",&ipnt);
767  lindst(CoolHeavy.Ar2854,2854,"Ar 4",ipnt,'c',true,
768  " [Ar IV] 2854" );
769 
770 
771  PntForLine(7263.,"Ar 4",&ipnt);
772  lindst(CoolHeavy.Ar7263,7263,"Ar 4",ipnt,'c',true,
773  " [Ar IV] 7263" );
774 
775  PntForLine(7171.,"Ar 4",&ipnt);
776  lindst(CoolHeavy.Ar7171,7171,"Ar 4",ipnt,'c',true,
777  " [Ar IV] 7171" );
778 
779  PntForLine(7331.,"Ar 4",&ipnt);
780  lindst(CoolHeavy.Ar7331,7331,"Ar 4",ipnt,'c',true,
781  " [Ar IV] 7331" );
782 
783  PntForLine(7237.,"Ar 4",&ipnt);
784  lindst(CoolHeavy.Ar7237,7237,"Ar 4",ipnt,'c',true,
785  " [Ar IV] 7237" );
786 
787  PntForLine(7005.,"Ar 5",&ipnt);
788  lindst(CoolHeavy.c7007/(1.+1./2.143),7005,"Ar 5",ipnt,'c',true,
789  " Argon V, 3P lines, 7005, collisionally excited" );
790 
791  PntForLine(6435.,"Ar 5",&ipnt);
792  lindst(CoolHeavy.c7007/(1.+2.143),6435,"Ar 5",ipnt,'c',true ,
793  " Argon V, 3P lines, 6435, collisionally excited");
794 
795  PntForLine(4626.,"Ar 5",&ipnt);
796  lindst( CoolHeavy.c4626 , 4626 ,"Ar 5",ipnt,'c',true,
797  " >>chng 01 mar 10, add following two lines Argon V, 4626" );
798 
799  PntForLine(2691.,"Ar 5",&ipnt);
800  lindst( CoolHeavy.c2691 , 2691 ,"Ar 5",ipnt,'c',true ,
801  " Argon V, 2691");
802 
804  " Argon V fine structure lines, 13.09, 7.903 micron line ");
805 
807  " Argon V fine structure lines, 13.09, 7.903 micron line ");
808 
810  " [Ar VI] 4.53 micron ");
811 
813  " Ar X 5533.4A ");
814 
816  " Ar XI 2.60 microns ");
817 
819  " Ar XI 6917A ");
820 
821  PntForLine(4413.,"Ar14",&ipnt);
822  lindst(CoolHeavy.fs4413,4413,"Ar14",ipnt,'c',true,
823  " Ar XIV 4413, predicted lambda, not observed(?)" );
824 
825  PntForLine(409.,"Ar15",&ipnt);
826  lindst(CoolHeavy.c409,409,"Ar15",ipnt,'c',true,
827  " collisionally excited " );
828 
830  " collisionally excited Ar16 354, Li seq 2s-2p");
831 
833  " collisionally excited Ar16 389, Li seq 2s-2p ");
834 
836  " collisionally excited Ar16 365, Li seq 2s-3p ");
837 
838  if( trace.lgTrace )
839  {
840  fprintf( ioQQQ, " lines_lv1_na_ar returns\n" );
841  }
842  return;
843 }

Generated for cloudy by doxygen 1.8.1.1