60 static double gCa2[5]={2.,4.,6.,2.,4.};
61 static double exCa2[4]={13650.2,60.7,11480.6,222.9};
74 PhotoRate5 = 1.7e-18*hlgam;
75 PhotoRate4 = 8.4e-19*hlgam;
76 PhotoRate3 = 7.0e-18*hlgam;
77 PhotoRate2 = 4.8e-18*hlgam;
114 d51 = 5.6*opckh/(opckh + op51);
116 d41 = 5.6*opckh/(opckh + op41);
126 r21 = PhotoRate2 + a21;
127 r31 = PhotoRate3 + a31;
128 r41 = a41 + PhotoRate4 + d41;
129 r51 = a51 + PhotoRate5 + d51;
144 atom_pop5(gCa2,exCa2,5.8,8.6,cs14,cs15,20.6,22.9,9.8,3.4,44.4,1.0,
145 r21,r31,r41,r51,0.,r42,r52,0.,r53,0.,Ca2pop,
dense.
xIonDense[
ipCALCIUM][1]);
195 ca.
dCaf12 = (
realnum)((Ca2pop[2]*PhotoRate3 + Ca2pop[1]*PhotoRate2)*2.31e-12);
212 enum {DEBUG_LOC=
false};
216 fprintf(
ioQQQ,
" hlgam is %e\n", hlgam);
302 cs01 =
MAX2(2.8,cs01);
304 p3 =
atom_pop3(9.,5.,1.,cs01,cs02,1.35,2.326,23.2,3.73,2.57e4,3.60e4,
322 cs01 =
MAX2(3.5,cs01);
325 cs12 =
MAX2(0.62,cs12);
328 cs02 =
MAX2(0.50,cs02);
330 p3 =
atom_pop3(9.,5.,1.,cs01,cs02,cs12,3.124,30.4,6.81,2.91e4,3.90e4,