00001
00002
00003
00012 void AtomSeqBeryllium(double cs12,
00013 double cs13,
00014 double cs23,
00015 EmLine * t,
00016 double a30);
00017
00034 void AtomSeqBoron(
00035 EmLine * t21,
00036 EmLine * t31,
00037 EmLine * t41,
00038 EmLine * t32,
00039 EmLine * t42,
00040 EmLine * t52,
00041 double cs51,
00042 double cs43,
00043 double cs53,
00044 double cd54,
00045 double pump_rate ,
00046 const char *chLabel
00047 );
00048
00052 void atom_level2(EmLine * t );
00053
00060 void atom_level3(EmLine * t10,
00061 EmLine * t21,
00062 EmLine * t20);
00063
00073 double atom_pop2(double omega,
00074 double g1,
00075 double g2,
00076 double a21,
00077 double bltz,
00078 double abund);
00079
00099 double atom_pop3(
00100 double g1, double g2, double g3,
00101 double o12, double o13, double o23,
00102 double a21, double a31, double a32,
00103 double Tex12, double Tex23,
00104 float *pop2,
00105 double abund,
00106 double gam2,
00107 double r12,
00108 double r13 );
00109
00137 void atom_pop5(double g[],
00138 double ex[],
00139 double cs12,
00140 double cs13,
00141 double cs14,
00142 double cs15,
00143 double cs23,
00144 double cs24,
00145 double cs25,
00146 double cs34,
00147 double cs35,
00148 double cs45,
00149 double a21,
00150 double a31,
00151 double a41,
00152 double a51,
00153 double a32,
00154 double a42,
00155 double a52,
00156 double a43,
00157 double a53,
00158 double a54,
00159 double p[],
00160 float abund);
00161
00188 void atom_levelN(
00189 long int nlev,
00190 float abund,
00191 const double g[],
00192 const double ex[],
00193 char chExUnits,
00194 double pops[],
00195 double depart[],
00196 double ***AulEscp,
00197 double ***col_str,
00198 double ***AulDest,
00199 double ***AulPump,
00200 double ***CollRate,
00201 const double create[] ,
00202 const double destroy[] ,
00203 bool lgCollRateDone,
00204 double *cooltl,
00205 double *coolder,
00206 const char *chLabel,
00207 int *nNegPop,
00208 bool *lgZeroPop ,
00209 bool lgDeBug);
00210
00214 void atom_oi_calc(double *coloi);
00215
00217 #define N_OI_LEVELS 6
00218
00219 EXTERN struct t_atoms {
00220
00222 float p2nit,
00223 d5200r;
00224
00226 double c12,
00227 c13;
00228
00231 long int ipoiex[5];
00232
00234 long int nNegOI;
00235
00237 float popoi[N_OI_LEVELS];
00238
00239 double pmph31,
00240 esch31;
00241
00242 float pmpo51,
00243 pmpo15;
00244
00246 float xMg2Max,
00248 popmg2;
00249
00250 #define LIMLEVELN 20L
00251
00257 double PopLevels[LIMLEVELN+1],
00258 DepLTELevels[LIMLEVELN+1];
00259
00260 } atoms;