21 #define C_EXPAND(a,b,c,d,e)
23 #define C_EXPAND(a,b,c,d,e) ,a
25 #define C_EXPAND(a,b,c,d,e) ,a,b
27 #define C_EXPAND(a,b,c,d,e) ,a,b,c
29 #define C_EXPAND(a,b,c,d,e) ,a,b,c,d
31 #define C_EXPAND(a,b,c,d,e) ,a,b,c,d,e
35 #define N_EXPAND(a,b,c,d,e)
37 #define N_EXPAND(a,b,c,d,e) ,a
39 #define N_EXPAND(a,b,c,d,e) ,a,b
41 #define N_EXPAND(a,b,c,d,e) ,a,b,c
43 #define N_EXPAND(a,b,c,d,e) ,a,b,c,d
45 #define N_EXPAND(a,b,c,d,e) ,a,b,c,d,e
49 #define O_EXPAND(a,b,c,d,e)
51 #define O_EXPAND(a,b,c,d,e) ,a
53 #define O_EXPAND(a,b,c,d,e) ,a,b
55 #define O_EXPAND(a,b,c,d,e) ,a,b,c
57 #define O_EXPAND(a,b,c,d,e) ,a,b,c,d
59 #define O_EXPAND(a,b,c,d,e) ,a,b,c,d,e
63 #define Ne_EXPAND(a,b,c,d,e)
65 #define Ne_EXPAND(a,b,c,d,e) ,a
67 #define Ne_EXPAND(a,b,c,d,e) ,a,b
69 #define Ne_EXPAND(a,b,c,d,e) ,a,b,c
71 #define Ne_EXPAND(a,b,c,d,e) ,a,b,c,d
73 #define Ne_EXPAND(a,b,c,d,e) ,a,b,c,d,e
77 #define S_EXPAND(a,b,c,d,e)
79 #define S_EXPAND(a,b,c,d,e) ,a
81 #define S_EXPAND(a,b,c,d,e) ,a,b
83 #define S_EXPAND(a,b,c,d,e) ,a,b,c
85 #define S_EXPAND(a,b,c,d,e) ,a,b,c,d
87 #define S_EXPAND(a,b,c,d,e) ,a,b,c,d,e
91 #define Fe_EXPAND(a,b,c)
93 #define Fe_EXPAND(a,b,c) ,a
95 #define Fe_EXPAND(a,b,c) ,a,b
97 #define Fe_EXPAND(a,b,c) ,a,b,c
111 C_EXPAND(CI, CII, CIII, CIV, CV)
112 N_EXPAND(NI, NII, NIII, NIV, NV)
113 O_EXPAND(OI, OII, OIII, OIV, OV)
114 Ne_EXPAND(NeI, NeII, NeIII, NeIV, NeV)
115 S_EXPAND(SI, SII, SIII, SIV, SV)
116 Fe_EXPAND(FeI, FeII, FeIII)
119 #define NIONS (3+C_IONS+N_IONS+O_IONS+Ne_IONS+S_IONS+Fe_IONS)
157 real GetMaxRate (
double *,
double *,
double);
158 real MeanMolecularWeight (
double *);
159 double H_MassFrac (
void);
160 real CompEquil (
double,
double,
double *);
162 void Radiat (
double *,
double *);
164 void CHECK_NORMALIZATION (
double *,
char *);
165 void NORMALIZE_IONS (
double *);