46 static double gcl3[5]={4.,4.,6.,2.,4.};
47 static double excl3[4]={18053.,66.,11693.,95.};
109 p3 =
atom_pop3(9.,5.,1.,cs12,cs13,cs23,a21,a31,a32,1.576e4,23344.,
160 double Cooling , CoolingDeriv;
161 atom_pop5(gcl3,excl3,cs12,cs13,cs14,cs15,cs23,cs24,cs25,cs34,cs35,
162 cs45,a21,a31,a41,a51,a32,a42,a52,a43,a53,a54,p,
163 dense.xIonDense[
ipCHLORINE][2] , &Cooling , &CoolingDeriv, 0.,0.,0.,0.);
182 thermal.dCooldT += CoolingDeriv;
194 p3 =
atom_pop3(9.,5.,1.,cs12,cs13,cs23,a21,a31,a32,2.24e4,3.11e4,&pop2,
232 else if(
phycon.te < 5.11E5)
236 else if(
phycon.te < 1.284E6)
double atom_pop3(double g1, double g2, double g3, double o12, double o13, double o23, double a21, double a31, double a32, double Tex12, double Tex23, realnum *pop2, double abund, double gam2, double r12, double r13)
void atom_pop5(const double g[], const double EnerWN[], double cs12, double cs13, double cs14, double cs15, double cs23, double cs24, double cs25, double cs34, double cs35, double cs45, double a21, double a31, double a41, double a51, double a32, double a42, double a52, double a43, double a53, double a54, double p[], realnum abund, double *Cooling, double *CoolingDeriv, double pump01, double pump02, double pump03, double pump04)