00001
00002
00003
00004 #ifndef OPACITY_H_
00005 #define OPACITY_H_
00006
00011 extern bool lgOpacMalloced;
00012
00014 void OpacityCreateAll(void);
00015
00023 void OpacityAdd1Subshell(
00024 long int ipOpac,
00025 long int ipLowLim,
00026 long int ipUpLim,
00027 realnum abundance,
00028 char chStat );
00029
00031 void OpacityAddTotal(void);
00032
00037 void OpacityAdd1Element(
00038 long int ipZ);
00039
00042 void OpacityZero(void);
00043
00045 void OpacityZeroOld(void);
00046
00055 void OpacityAdd1SubshellInduc(
00056 long int ipOpac,
00057 long int low,
00058 long int ihi,
00059 double a,
00060 double b,
00061 char chStat );
00062
00063
00064
00065
00066
00067
00068
00069
00070
00071
00072
00073
00074
00075 EXTERN struct t_opac {
00076
00082 realnum **TauAbsGeo;
00083 realnum **TauScatGeo;
00084
00087 realnum **TauTotalGeo;
00088
00091 realnum *TauAbsFace,
00092 *TauScatFace;
00093
00095 double *opacity_abs;
00096
00098 double *opacity_sct;
00099
00101 double *OldOpacSave;
00102
00104 double *albedo;
00105
00108 double *opacity_abs_savzon1;
00110 double *opacity_sct_savzon1;
00111
00114 double *OpacStatic;
00115
00117 double *FreeFreeOpacity;
00118
00120 double *ExpZone;
00121
00124 realnum *E2TauAbsFace;
00126 realnum *E2TauAbsTotal;
00127 realnum *E2TauAbsOut;
00129 realnum *TauAbsTotal;
00130
00132 realnum *ExpmTau;
00133
00136 realnum *tmn;
00137
00140 bool lgOpacStatic;
00141
00147 bool lgRedoStatic;
00148
00151 double *OpacStack;
00152
00154 realnum taumin;
00155
00158 realnum tlamin;
00159
00161 bool lgCaseB;
00162
00165 bool lgCaseB_HummerStorey;
00166
00169 bool lgCaseB_no_photo;
00170
00172 bool lgCaseB_no_pdest;
00173
00175 realnum telec,
00176 thmin;
00177
00179 bool lgOpacNeg;
00180
00183 bool lgScatON;
00184
00186 bool lgNegOpacIO;
00187
00192 bool lgCompileOpac;
00193
00196 bool lgUseFileOpac;
00197
00201 long int nOpacTot;
00202
00210 long int ipRayScat,
00211
00213 iopcom,
00214
00216 ippr,
00217 ioppr,
00218
00220 ipBrems,
00221
00223 iphmra,
00224
00226 iphmop,
00227
00229 ih2pnt[2],
00230 ih2pof,
00231
00233 iophe1[9],
00234
00236 ioptri,
00237
00269 ipElement[LIMELM][LIMELM][7][3],
00270
00272 in1[3],
00273
00275 ipo3exc[3],
00276 ipo3exc3[3],
00277 ipo1exc[3],
00278
00280 iopo2d,
00281
00283 ipmgex,
00284 ipOpMgEx,
00285
00287 ica2ex[2],
00288 ica2op;
00289
00291 long int ipH2_photo_thresh , ipH2_photo_opac_offset;
00292
00294 long int ipCKshell;
00295
00297 realnum otsmin;
00298
00300 realnum stimax[2];
00301
00302 } opac;
00303
00304
00305
00306 #endif