/* This file is part of Cloudy and is copyright (C) 1978-2004 by Gary J. Ferland.
 * For conditions of distribution and use, see copyright notice in license.txt */
/*
 * this is a dummy optical depth array for non-existant lines
 */
/*EXTERN float TauDummy[NTA];*/
EXTERN EmLine TauDummy;

/*>>chng 99 sep 14, comments into level1.dat, count number
 * of lines then MALLOC the space
 * NB must MALLOC nlines + 1 since dummy line is first one */
EXTERN EmLine *TauLines;

/* the set of inner shell lines from Ehud Behar */
EXTERN long int nUTA;
EXTERN EmLine *UTALines;

/* this is the number of level 1 lines, and is set in atmdat_readin
 * by counter number of data lines in level1.dat */
EXTERN long int nLevel1;
/*EXTERN EmLine TauLines[NTAULINES+1];*/

/* main array for C12O16 rotation lines, each array element is increasing
 * rotation quantum number J.  CORotate[J] is the J+1 to J transition */
EXTERN EmLine *C12O16Rotate;

/* main array for C13O16 rotation lines, each array element is increasing
 * rotation quantum number J.  CORotate[J] is the J+1 to J transition */
EXTERN EmLine *C13O16Rotate;

/* number of rotation lines, the number of levels is one greater than this */
extern long int nCORotate;

/* default number of CO rotation lines */
#define NCOROTATE 20

/* this will be set true once space is allocaed for the CO rotation array.
 * from then on any ATOM CO LEVELS command will be ignored, this is
 * set to false in cddefines.c */
extern int lgCORotateMalloc ;

/* these are the public parts of the hyperfine structure line transfer info
 * data gathered from hyperfine.dat using routines in hyperfine.c
 * the structure containing the hfs line information */
/* abundances of these isotopes relative to main species are in hyperfine.h */
EXTERN EmLine *HFLines;
/* the number of lines */
EXTERN long int nHFLines;

/*
 * main line arrays for hydrogenic ions
 *
 * first dimension is atomic number
 * second dim is upper level
 * third dim is lower level
 * nta dim is set of pointers for quantities within line transfer arrays
 * in the forc translation, the upper level was too low by 1, since the
 * fortran was starting at 1.  the lower dim was not changed by translation
 * since it started from ip1s = 0
 * any place where the third dim has -1 is probably a remnant from forc and is wrong
 */

/* the main set of isoelectronic lines - [ipIZO][nelem[up][lo] */
EXTERN EmLine ****EmisLines;

EXTERN EmLine ******H2Lines;/* [ElecHi][VibHi][jHi][ElecLo][VibLo][jLo] */

/* the He-like iso sequence */
EXTERN EmLine **He1AutoLines;

/* this will be set true once space is allocaed for the HydroLines array.
 * from then on any HYDROGENIC LEVELS command will be ignored, this is
 * set to false in cddefines.c */
extern int lgHydroMalloc ;
/*extern int lgHeMalloc ;*/

/* the following pointers to lines within the level 1 stack are defined in
 * atmdat_readin where they are initially set to a large value, then reset
 * to point to the correct line within the stack 
 *
 * NB NB NB - lines must be entered both here and in atmdat_readin where they
 * are actually defined and initialized!!  */
extern long /*ipH21cm, ipHe3cm ,*/ipT1656 , ipT9830 , ipT8727 , ipT1335 , 
	ipT1909 ,ipT977 , ipT1550 , ipT1548 , ipT386 , ipT310 , ipc31175 , ipT291 , ipT280 ,
	ipT274 , ipT270 , ipT312 , ipT610 , ipT370 , ipT157 , ipT1085 , 
	ipT990 , ipT1486 , ipT765 , ipT1243 , ipT1239 , ipT374g , ipT374x , ipT1200 ,
	ipT2140 , ipT671 , ipT315 , ipT324 , ipT333 , ipT209 , ipT122 , ipT205 ,
	ipT57 , ipT6300 , ipT6363 , ipT5577 , ipT834 , ipT1661 , ipT1666 , ipT835 ,
	ipT789 , ipT630 , ipT1304 , ipSi10_606 , ipT1039 , ipT8446 , ipT4368 , ipTOI13 ,
	ipTOI11 , ipTOI29 , ipTOI46 , ipTO1025 , ipT304 , ipT1214 , ipT150 , ipT146 ,
	ipT63 , ipTO88 , ipT52 , ipT26 , ipT1032 , ipT1037 , ipF0229 , ipF0267 ,
	ipF444 , ipF425 , ipT770 , ipT780 , ipxNe0676 , ipT895 , ipT88 , ipTNe13 ,
	ipTNe36 , ipTNe16 , ipTNe14 , ipTNe24 , ipT5895 , ipfsNa373 , ipfsNa490 , ipfsNa421 ,
	ipxNa6143 , ipxNa6862 , ipxNa0746 , ipMgI2853 , ipMgI2026 , ipT2796 , ipT2804 ,
	ipT705 , ipT4561 , ipxMg51325 , ipxMg52417 , ipxMg52855 , ipxMg71190 , ipxMg72261 ,
	ipxMg72569 , ipxMg08303 , ipTMg610 , ipTMg625 , ipT58 , ipTMg4 , ipTMg14 , ipTMg6 ,
	ipfsMg790 , ipfsMg755 , ipAlI3957 , ipAlI3090 , ipT1855 , ipT1863 , ipT2670 ,
	ipAl529 , ipAl6366 , ipAl6912 , ipAl8575 , ipAl8370 , ipAl09204 , ipT639 ,
	ipTAl550 , ipTAl568 , ipTAl48 , ipSii2518 , ipSii2215 , ipT1808 ,
	ipT1207 , ipT1895 , ipT1394 , ipT1403 , ipT1527 , ipT1305 , ipT1260 , ipSi619 ,
	ipSi10143 , ipTSi499 , ipTSi521 , ipTSi41 , ipTSi35 , ipTSi25 , ipTSi65 ,
	ipTSi3 , ipTSi4 , ipP0260 , ipP0233 , ipP0318 , ipP713 , ipP848 , ipP817 ,
	ipP1027 , ipP1018 , ipT1256 , ipT1194 , ipTS1720 , ipT1198 , ipT786 ,
	ipT933 , ipT944 , ipfsS810 , ipfsS912 , ipfsS938 , ipfsS1119 , ipfsS1114 , ipfsS1207 ,
	ipTSu418 , ipTSu446 , ipTSu30 , ipTS19 , ipTS34 , ipTS11 , ipfsCl214 , ipfsCl233 ,
	ipCl04203 , ipCl04117 , ipCl973 , ipCl1030 , ipCl1092 , ipT354 , ipT389 , ipT25 ,
	ipTAr7 , ipTAr9 , ipTAr22 , ipTAr13 , ipTAr8 , ipAr06453 , ipAr1055 , ipAr1126 ,
	ipAr1178 , ipKI7745 , ipxK03462 , ipxK04598 , ipxK04154 , ipxK06882 , ipxK06557 ,
	ipxK07319 , ipxK11425 , ipCaI4228 , ipT3934 , ipT3969 , ipT8498 , ipT8542 ,
	ipT8662 , ipT7291 , ipT7324 , ipTCa302 , ipTCa345 , ipTCa19 , ipTCa3 , ipTCa12 ,
	ipTCa4 , ipCa0741 , ipCa0761 , ipCa08232 , ipCa12333 , ipSc05231 , ipSc13264 ,
	ipTi06172 , ipTi14212 , ipVa07130 , ipVa15172 , ipCr08101 , ipCr16141 , ipxMn0979 ,
	ipxMn1712 , ipFeI3884 , ipFeI3729 , ipFeI3457 , ipFeI3021 , ipFeI2966 , ipTuv3 ,
	ipTr48 , ipTFe16 , ipTFe26 , ipTFe34 , ipTFe35 , ipTFe46 , ipTFe56 , ipT1122 ,
	ipFe0795 , ipFe0778 , ipT245 , ipT352 , ipFe106375 , ipT353 , ipFe1310 , ipFe1311 ,
	ipT347 , ipT192 , ipT255 , ipT11 , ipT191 , ipTFe07 , ipTFe61 , ipFe18975 , ipTFe23 ,
	ipTFe13 , ipCo11527 , ipxNi1242;
/* NB NB NB - lines must be entered both here and in atmdat_readin where they
 * are actually defined and initialized!!  */
extern long ipS4_1405,ipS4_1398,ipS4_1424,ipS4_1417,ipS4_1407,
		ipO4_1400,ipO4_1397,ipO4_1407,ipO4_1405,ipO4_1401,
		ipN3_1749,ipN3_1747,ipN3_1754,ipN3_1752,ipN3_1751,
		ipC2_2325,ipC2_2324,ipC2_2329,ipC2_2328,ipC2_2327,
		ipSi2_2334,ipSi2_2329,ipSi2_2350,ipSi2_2344,ipSi2_2336,
		ipFe22_247,ipFe22_217,ipFe22_348,ipFe22_292,ipFe22_253,ipFe22_846,
		ipTFe20_721, ipTFe20_578 , ipZn04363, ipS12_520, 
		/* >>chng 03 nov 07, this block of lines added */
		ipS1_25m ,ipS1_56m, ipCl1_11m , ipFe1_24m, ipFe1_35m , ipFe1_54m , ipFe1_111m,
		ipNi1_7m , ipNi1_11m , ipSi1_130m , ipSi1_68m;

/* NB NB NB - lines must be entered both here and in atmdat_readin where they
 * are actually defined and initialized!!  */

/* all of Dima's level 2 lines */

/*number of level 2 lines, dim for WindLine array */
#define	NWINDDIM	6744

/* this is set to 0 with no atom_level2 command, normally
 * equal to NWINDDIM, definition is in cddefines.c */
extern long	nWindLine;

/* these are the level two lines themselves */
/* pointers to element and ion, TauLine2[line number][pointer within vector] */
/*EXTERN float **TauLine2;*/
EXTERN EmLine *TauLine2;

extern float *cs1_flag_lev2;

