00001
00002
00007 extern bool lgOpacMalloced;
00008
00010 void OpacityCreateAll(void);
00011
00019 void OpacityAdd1Subshell(
00020 long int ipOpac,
00021 long int ipLowLim,
00022 long int ipUpLim,
00023 float abundance,
00024 char chStat );
00025
00027 void OpacityAddTotal(void);
00028
00033 void OpacityAdd1Element(
00034 long int ipZ);
00035
00038 void OpacityZero(void);
00039
00041 void OpacityZeroOld(void);
00042
00051 void OpacityAdd1SubshellInduc(
00052 long int ipOpac,
00053 long int low,
00054 long int ihi,
00055 double a,
00056 double b,
00057 char chStat );
00058
00059
00060
00061
00062
00063
00064
00065
00066
00067
00068
00069
00070
00071 EXTERN struct t_opac {
00072
00078 float **TauAbsGeo;
00079 float **TauScatGeo;
00080
00083 float **TauTotalGeo;
00084
00087 float *TauAbsFace,
00088 *TauScatFace;
00089
00091 double *opacity_abs;
00092
00094 double *opacity_sct;
00095
00097 double *OldOpacSave;
00098
00100 double *albedo;
00101
00104 double *opacity_abs_savzon1;
00106 double *opacity_sct_savzon1;
00107
00110 double *OpacStatic;
00111
00113 double *FreeFreeOpacity;
00114
00116 double *ExpZone;
00117
00120 float *E2TauAbsFace;
00122 float *E2TauAbsTotal;
00123 float *E2TauAbsOut;
00125 float *TauAbsTotal;
00126
00128 float *ExpmTau;
00129
00132 float *tmn;
00133
00137 bool lgOpacStatic;
00138
00144 bool lgRedoStatic;
00145
00149 double *OpacStack;
00150
00152 float tpcah[2];
00153
00155 float taumin;
00156
00159 float tlamin;
00160
00162 bool lgCaseB;
00163
00166 bool lgCaseB_HummerStorey;
00167
00170 bool lgCaseB_no_photo;
00171
00173 bool lgCaseB_no_pdest;
00174
00176 float telec,
00177 thmin;
00178
00180 bool lgOpacNeg;
00181
00184 bool lgScatON;
00185
00187 bool lgNegOpacIO;
00188
00193 bool lgCompileOpac;
00194
00196 bool lgOpacExist;
00197
00200 bool lgUseFileOpac;
00201
00204 bool lgTauOutOn;
00205
00209 long int nOpacTot;
00210
00218 long int ipRayScat,
00219
00221 iopcom,
00222
00224 ippr,
00225 ioppr,
00226
00228 ipBrems,
00229
00231 iphmra,
00232
00234 iphmop,
00235
00237 ih2pnt[2],
00238 ih2pof,
00239
00241 iophe1[9],
00242
00244 ioptri,
00245
00277 ipElement[LIMELM][LIMELM][7][3],
00278
00280 in1[3],
00281
00283 ipo3exc[3],
00284 ipo3exc3[3],
00285 ipo1exc[3],
00286
00288 iopo2d,
00289
00291 ipmgex,
00292 ipOpMgEx,
00293
00295 ica2ex[2],
00296 ica2op;
00297
00299 long int ipH2_photo_thresh , ipH2_photo_opac_offset;
00300
00302 long int ipCKshell;
00303
00305 float otsmin;
00306
00308 float stimax[2];
00309
00310 } opac;
00311
00312