cloudy
trunk
|
00001 /* This file is part of Cloudy and is copyright (C)1978-2008 by Gary J. Ferland and 00002 * others. For conditions of distribution and use see copyright notice in license.txt */ 00003 00004 #ifndef _TAULINES_H_ 00005 #define _TAULINES_H_ 00006 00007 EXTERN quantumState *lastState, *currentState; 00008 EXTERN quantumState *GenericStates; 00009 EXTERN long statesAdded; 00010 EXTERN bool lgStatesAdded; 00011 00012 EXTERN emission *lastLine, *currentLine; 00013 EXTERN emission *GenericLines; 00014 EXTERN long linesAdded; 00015 EXTERN bool lgLinesAdded; 00016 00017 EXTERN char **chSpecies; 00018 EXTERN species *Species; 00019 EXTERN quantumState **atmolStates; 00020 EXTERN transition ***atmolTrans; 00021 EXTERN CollRateCoeffArray **AtmolCollRateCoeff; 00022 EXTERN CollSplinesArray ****AtmolCollSplines; 00023 /*Added recently for splitting the nemala.cpp file*/ 00024 EXTERN double ****CollRatesArray; 00025 EXTERN long int nSpecies; 00027 EXTERN bool *lgSpeciesMolecule; 00028 #define NUM_COLLIDERS 9 00029 # define POPTHRES 1e-23 00030 /*************************/ 00031 # define MAX_NUM_LINES 1000 00032 EXTERN emission atmolEmis[MAX_NUM_LINES]; 00033 EXTERN long linesAdded2; 00034 void Nemala_Start( void ); 00035 void atmol_popsolve(void ); 00036 00040 EXTERN transition TauDummy; 00041 00045 EXTERN transition *TauLines; 00046 00049 EXTERN multi_arr<transition,3> ExtraLymanLines; 00050 00052 EXTERN long int nUTA; 00053 EXTERN transition *UTALines; 00054 00057 EXTERN long int nLevel1; 00062 EXTERN transition *C12O16Rotate; 00063 00066 EXTERN transition *C13O16Rotate; 00067 00069 extern long int nCORotate; 00070 00072 const int NCOROTATE = 20; 00073 00077 extern bool lgCORotateMalloc; 00078 00082 /* abundances of these isotopes relative to main species are in hyperfine.h */ 00083 EXTERN transition *HFLines; 00085 EXTERN long int nHFLines; 00086 00101 EXTERN multi_arr<transition,4> Transitions; 00102 00103 EXTERN multi_arr<transition,6> H2Lines;/* [ElecHi][VibHi][jHi][ElecLo][VibLo][jLo] */ 00104 00105 EXTERN transition **Fe2LevN; 00106 00108 EXTERN multi_arr<transition,3> SatelliteLines; /* [ipISO][nelem][level] */ 00109 00113 extern bool lgHydroMalloc; 00114 00121 extern long /*ipH21cm, ipHe3cm ,*/ipT1656 , ipT9830 , ipT8727 , ipT1335 , 00122 ipT1909 ,ipT977 , ipT1550 , ipT1548 , ipT386 , ipT310 , ipc31175 , ipT291 , ipT280 , 00123 ipT274 , ipT270 , ipT312 , ipT610 , ipT370 , ipT157 , ipT1085 , 00124 ipT990 , ipT1486 , ipT765 , ipT1243 , ipT1239 , ipT374g , ipT374x , ipT1200 , 00125 ipT2140 , ipT671 , ipT315 , ipT324 , ipT333 , ipT209 , ipT122 , ipT205 , 00126 ipT57 , ipT6300 , ipT6363 , ipT5577 , ipT834 , ipT1661 , ipT1666 , ipT835 , 00127 ipT789 , ipT630 , ipT1304 , ipSi10_606 , ipT1039 , ipT8446 , ipT4368 , ipTOI13 , 00128 ipTOI11 , ipTOI29 , ipTOI46 , ipTO1025 , ipT304 , ipT1214 , ipT150 , ipT146 , 00129 ipT63 , ipTO88 , ipT52 , ipT26 , ipT1032 , ipT1037 , ipF0229 , ipF0267 , 00130 ipF444 , ipF425 , ipT770 , ipT780 , ipxNe0676 , ipT895 , ipT88 , ipTNe13 , 00131 ipTNe36 , ipTNe16 , ipTNe14 , ipTNe24 , ipT5895 , ipfsNa373 , ipfsNa490 , ipfsNa421 , 00132 ipxNa6143 , ipxNa6862 , ipxNa0746 , ipMgI2853 , ipMgI2026 , ipT2796 , ipT2804 , 00133 ipT705 , ipT4561 , ipxMg51325 , ipxMg52417 , ipxMg52855 , ipxMg71190 , ipxMg72261 , 00134 ipxMg72569 , ipxMg08303 , ipTMg610 , ipTMg625 , ipT58 , ipTMg4 , ipTMg14 , ipTMg6 , 00135 ipfsMg790 , ipfsMg755 , ipAlI3957 , ipAlI3090 , ipT1855 , ipT1863 , ipT2670 , 00136 ipAl529 , ipAl6366 , ipAl6912 , ipAl8575 , ipAl8370 , ipAl09204 , ipT639 , 00137 ipTAl550 , ipTAl568 , ipTAl48 , ipSii2518 , ipSii2215 , ipT1808 , 00138 ipT1207 , ipT1895 , ipT1394 , ipT1403 , ipT1527 , ipT1305 , ipT1260 , ipSi619 , 00139 ipSi10143 , ipTSi499 , ipTSi521 , ipTSi41 , ipTSi35 , ipTSi25 , ipTSi65 , 00140 ipTSi3 , ipTSi4 , ipP0260 , ipP0233 , ipP0318 , ipP713 , ipP848 , ipP817 , 00141 ipP1027 , ipP1018 , ipT1256 , ipT1194 , ipTS1720 , ipT1198 , ipT786 , 00142 ipT933 , ipT944 , ipfsS810 , ipfsS912 , ipfsS938 , ipfsS1119 , ipfsS1114 , ipfsS1207 , 00143 ipTSu418 , ipTSu446 , ipTSu30 , ipTS19 , ipTS34 , ipTS11 , ipfsCl214 , ipfsCl233 , 00144 ipCl04203 , ipCl04117 , ipCl973 , ipCl1030 , ipCl1092 , ipT354 , ipT389 , ipT25 , 00145 ipTAr7 , ipTAr9 , ipTAr22 , ipTAr13 , ipTAr8 , ipAr06453 , ipAr1055 , ipAr1126 , 00146 ipAr1178 , ipKI7745 , ipxK03462 , ipxK04598 , ipxK04154 , ipxK06882 , ipxK06557 , 00147 ipxK07319 , ipxK11425 , ipCaI4228 , ipT3934 , ipT3969 , ipT8498 , ipT8542 , 00148 ipT8662 , ipT7291 , ipT7324 , ipTCa302 , ipTCa345 , ipTCa19 , ipTCa3 , ipTCa12 , 00149 ipTCa4 , ipCa0741 , ipCa0761 , ipCa08232 , ipCa12333 , ipSc05231 , ipSc13264 , 00150 ipTi06172 , ipTi14212 , ipVa07130 , ipVa15172 , ipCr08101 , ipCr16141 , ipxMn0979 , 00151 ipxMn1712 , ipFeI3884 , ipFeI3729 , ipFeI3457 , ipFeI3021 , ipFeI2966 , ipTuv3 , 00152 ipTr48 , ipTFe16 , ipTFe26 , ipTFe34 , ipTFe35 , ipTFe46 , ipTFe56 , ipT1122 , 00153 ipFe0795 , ipFe0778 , ipT245 , ipT352 , ipFe106375 , ipT353 , /*ipFe1310 , ipFe1311 ,*/ 00154 ipT347 , ipT192 , ipT255 , ipT11 , ipT191 , /*ipTFe07 , ipTFe61 ,*/ ipFe18975 , ipTFe23 , 00155 ipTFe13 , ipCo11527 , ipxNi1242; 00158 extern long ipS4_1405,ipS4_1398,ipS4_1424,ipS4_1417,ipS4_1407, 00159 ipO4_1400,ipO4_1397,ipO4_1407,ipO4_1405,ipO4_1401, 00160 ipN3_1749,ipN3_1747,ipN3_1754,ipN3_1752,ipN3_1751, 00161 ipC2_2325,ipC2_2324,ipC2_2329,ipC2_2328,ipC2_2327, 00162 ipSi2_2334,ipSi2_2329,ipSi2_2350,ipSi2_2344,ipSi2_2336, 00163 ipFe22_247,ipFe22_217,ipFe22_348,ipFe22_292,ipFe22_253,ipFe22_846, 00164 ipTFe20_721, ipTFe20_578 , ipZn04363, ipS12_520, 00165 /* >>chng 03 nov 07, this block of lines added */ 00166 ipS1_25m ,ipS1_56m, ipCl1_11m , ipFe1_24m, ipFe1_35m , ipFe1_54m , ipFe1_111m, 00167 ipNi1_7m , ipNi1_11m , ipSi1_130m , ipSi1_68m; 00168 00169 /* NB NB NB - lines must be entered both here and in atmdat_readin where they 00170 * are actually defined and initialized!! */ 00171 00172 /* all of Dima's level 2 lines */ 00173 00175 const int NWINDDIM = 6744; 00176 00179 extern long nWindLine; 00180 00181 /* these are the level two lines themselves */ 00183 EXTERN transition *TauLine2; 00184 00185 EXTERN realnum *cs1_flag_lev2; 00186 00187 /* create a dummy emission structure. Non-radiative transitions will point to this */ 00188 EXTERN emission DummyEmis; 00189 00190 #endif /* _TAULINES_H_ */