Generated Code

The following is f77 code generated by the CellML API from this CellML file. (Back to language selection)

The raw code is available.

C
C There are a total of 126 entries in the algebraic variable array.
C There are a total of 41 entries in each of the rate and state variable arrays.
C There are a total of 126 entries in the constant variable array.
C
C
C CONSTS(1) is Bmax_CaM in component buffca (mM).
C CONSTS(119) is Bmax_SLhighjn in component buffca (mM).
C CONSTS(123) is Bmax_SLhighsl in component buffca (mM).
C CONSTS(120) is Bmax_SLlowjn in component buffca (mM).
C CONSTS(124) is Bmax_SLlowsl in component buffca (mM).
C CONSTS(88) is Bmax_SR in component buffca (mM).
C CONSTS(2) is Bmax_TnChigh in component buffca (mM).
C CONSTS(3) is Bmax_TnClow in component buffca (mM).
C CONSTS(4) is Bmax_myosin in component buffca (mM).
C STATES(1) is CaM in component buffca (mM).
C STATES(2) is Ca_i in component calcium (mM).
C STATES(3) is Ca_jn in component calcium (mM).
C STATES(4) is Ca_sl in component calcium (mM).
C ALGBRC(38) is J_CaB_cytosol in component buffca (mM_per_ms).
C ALGBRC(36) is J_CaB_jn in component buffca (mM_per_ms).
C ALGBRC(37) is J_CaB_sl in component buffca (mM_per_ms).
C CONSTS(5) is Mg_i in component ion (mM).
C STATES(5) is Myoc in component buffca (mM).
C STATES(6) is Myom in component buffca (mM).
C STATES(7) is SLH_jn in component buffca (mM).
C STATES(8) is SLH_sl in component buffca (mM).
C STATES(9) is SLL_jn in component buffca (mM).
C STATES(10) is SLL_sl in component buffca (mM).
C STATES(11) is SRB in component buffca (mM).
C STATES(12) is TnCHc in component buffca (mM).
C STATES(13) is TnCHm in component buffca (mM).
C STATES(14) is TnCL in component buffca (mM).
C CONSTS(114) is Vjn in component geom (litre).
C CONSTS(117) is Vmyo in component geom (litre).
C CONSTS(121) is Vsl in component geom (litre).
C CONSTS(6) is koff_cam in component buffca (mS_per_uF).
C CONSTS(7) is koff_myoca in component buffca (mS_per_uF).
C CONSTS(8) is koff_myomg in component buffca (mS_per_uF).
C CONSTS(9) is koff_slh in component buffca (mS_per_uF).
C CONSTS(10) is koff_sll in component buffca (mS_per_uF).
C CONSTS(11) is koff_sr in component buffca (mS_per_uF).
C CONSTS(12) is koff_tnchca in component buffca (mS_per_uF).
C CONSTS(13) is koff_tnchmg in component buffca (mS_per_uF).
C CONSTS(14) is koff_tncl in component buffca (mS_per_uF).
C CONSTS(15) is kon_cam in component buffca (per_mM_per_ms).
C CONSTS(16) is kon_myoca in component buffca (per_mM_per_ms).
C CONSTS(17) is kon_myomg in component buffca (per_mM_per_ms).
C CONSTS(18) is kon_slh in component buffca (per_mM_per_ms).
C CONSTS(19) is kon_sll in component buffca (per_mM_per_ms).
C CONSTS(20) is kon_sr in component buffca (per_mM_per_ms).
C CONSTS(21) is kon_tnchca in component buffca (per_mM_per_ms).
C CONSTS(22) is kon_tnchmg in component buffca (per_mM_per_ms).
C CONSTS(23) is kon_tncl in component buffca (per_mM_per_ms).
C VOI is time in component engine (ms).
C CONSTS(24) is Bmax_Na_jn in component buffna (mM).
C CONSTS(25) is Bmax_Na_sl in component buffna (mM).
C STATES(15) is NaB_jn in component buffna (mM).
C STATES(16) is NaB_sl in component buffna (mM).
C STATES(17) is Na_jn in component sodium (mM).
C STATES(18) is Na_sl in component sodium (mM).
C CONSTS(26) is koff_na in component buffna (mS_per_uF).
C CONSTS(27) is kon_na in component buffna (per_mM_per_ms).
C CONSTS(125) is Bmax_Csqn in component calcium (mM).
C CONSTS(28) is C in component cell (farad).
C STATES(19) is Ca_sr in component calcium (mM).
C STATES(20) is Csqn in component calcium (mM).
C CONSTS(29) is F in component phys (C_per_mol).
C ALGBRC(88) is ICaB_jn in component icab (A_per_F).
C ALGBRC(93) is ICaB_sl in component icab (A_per_F).
C ALGBRC(40) is ICaL_Ca_jn in component ical (A_per_F).
C ALGBRC(42) is ICaL_Ca_sl in component ical (A_per_F).
C ALGBRC(89) is ICa_tot_jn in component calcium (A_per_F).
C ALGBRC(96) is ICa_tot_sl in component calcium (A_per_F).
C ALGBRC(71) is INaCa_jn in component inaca (A_per_F).
C ALGBRC(75) is INaCa_sl in component inaca (A_per_F).
C ALGBRC(82) is IpCa_jn in component ipca (A_per_F).
C ALGBRC(84) is IpCa_sl in component ipca (A_per_F).
C CONSTS(91) is JCa_jnsl in component calcium (m3_per_s).
C CONSTS(92) is JCa_slmyo in component calcium (m3_per_s).
C ALGBRC(90) is J_SRCarel in component ryr (mM_per_ms).
C ALGBRC(92) is J_SRleak in component ryr (mM_per_ms).
C ALGBRC(94) is J_serca in component ryr (mM_per_ms).
C CONSTS(122) is Vsr in component geom (litre).
C CONSTS(30) is koff_csqn in component calcium (mS_per_uF).
C CONSTS(31) is kon_csqn in component calcium (per_mM_per_ms).
C CONSTS(32) is AF in component cell (dimensionless).
C CONSTS(89) is Vcell in component geom (litre).
C CONSTS(33) is cell_length in component geom (um).
C CONSTS(34) is cell_radius in component geom (um).
C CONSTS(35) is pi in component geom (dimensionless).
C ALGBRC(87) is ECa_jn in component nernst (mV).
C ALGBRC(91) is ECa_sl in component nernst (mV).
C CONSTS(36) is Fjn in component junc (dimensionless).
C CONSTS(115) is Fsl in component junc (dimensionless).
C ALGBRC(95) is ICaB in component icab (A_per_F).
C STATES(21) is V in component membrane (mV).
C CONSTS(37) is gCaB in component icab (mS_per_uF).
C CONSTS(38) is Ca_o in component ion (mM).
C CONSTS(93) is FRT in component phys (per_mV).
C CONSTS(39) is Fjn_CaL in component junc (dimensionless).
C CONSTS(94) is Fsl_CaL in component junc (dimensionless).
C ALGBRC(53) is ICaL in component ical (A_per_F).
C ALGBRC(43) is ICaL_Ca in component ical (A_per_F).
C ALGBRC(45) is ICaL_K in component ical (A_per_F).
C ALGBRC(51) is ICaL_Na in component ical (A_per_F).
C ALGBRC(47) is ICaL_Na_jn in component ical (A_per_F).
C ALGBRC(49) is ICaL_Na_sl in component ical (A_per_F).
C STATES(22) is K_i in component potassium (mM).
C CONSTS(40) is K_o in component ion (mM).
C CONSTS(41) is Na_o in component ion (mM).
C CONSTS(118) is Q in component phys (dimensionless).
C CONSTS(42) is Q10CaL in component ical (dimensionless).
C STATES(23) is d in component ical (mS_per_uF).
C STATES(24) is f in component ical (mS_per_uF).
C STATES(25) is fCaB_jn in component ical (mS_per_uF).
C STATES(26) is fCaB_sl in component ical (mS_per_uF).
C CONSTS(43) is fcaCaMSL in component ical (dimensionless).
C CONSTS(44) is fcaCaj in component ical (dimensionless).
C ALGBRC(39) is ibarca_jn in component ical (uA_per_cm2).
C ALGBRC(41) is ibarca_sl in component ical (uA_per_cm2).
C ALGBRC(44) is ibark in component ical (uA_per_cm2).
C ALGBRC(46) is ibarna_jn in component ical (uA_per_cm2).
C ALGBRC(48) is ibarna_sl in component ical (uA_per_cm2).
C ALGBRC(1) is ical_d_inf in component ical (dimensionless).
C ALGBRC(15) is ical_d_tau in component ical (ms).
C ALGBRC(2) is ical_f_inf in component ical (dimensionless).
C ALGBRC(16) is ical_f_tau in component ical (ms).
C CONSTS(95) is pCa in component ical (cm_per_s).
C CONSTS(96) is pK in component ical (cm_per_s).
C CONSTS(97) is pNa in component ical (cm_per_s).
C CONSTS(116) is ECl in component nernst (mV).
C ALGBRC(50) is IClB in component iclb (A_per_F).
C CONSTS(45) is gClB in component iclb (mS_per_uF).
C ALGBRC(55) is IClCa in component iclca (A_per_F).
C ALGBRC(52) is IClCa_jn in component iclca (A_per_F).
C ALGBRC(54) is IClCa_sl in component iclca (A_per_F).
C CONSTS(46) is KdClCa in component iclca (mM).
C CONSTS(47) is gClCa in component iclca (mS_per_uF).
C ALGBRC(98) is EK in component nernst (mV).
C ALGBRC(102) is IK1 in component ik1 (A_per_F).
C CONSTS(48) is IK1_Fact in component ik1 (dimensionless).
C ALGBRC(56) is Na_observed in component ik1 (mM).
C ALGBRC(57) is a_fact in component ik1 (dimensionless).
C CONSTS(98) is gK1 in component ik1 (mS_per_uF).
C ALGBRC(99) is ik1_inf_a in component ik1 (mS_per_uF).
C ALGBRC(100) is ik1_inf_b in component ik1 (mS_per_uF).
C ALGBRC(101) is inf in component ik1 (dimensionless).
C CONSTS(99) is Act in component ikach (dimensionless).
C CONSTS(49) is CCh in component ikach (dimensionless).
C CONSTS(50) is Constitutive_Frac in component ikach (dimensionless).
C ALGBRC(103) is IKACh in component ikach (A_per_F).
C ALGBRC(59) is Na_dep in component ikach (dimensionless).
C ALGBRC(58) is Na_observed in component ikach (mM).
C CONSTS(100) is gKACh in component ikach (mS_per_uF).
C ALGBRC(106) is IKp in component ikp (A_per_F).
C ALGBRC(104) is IKp_jn in component ikp (A_per_F).
C ALGBRC(105) is IKp_sl in component ikp (A_per_F).
C CONSTS(51) is gKp in component ikp (mS_per_uF).
C ALGBRC(60) is kp in component ikp (dimensionless).
C ALGBRC(107) is IKr in component ikr (A_per_F).
C CONSTS(101) is gKr in component ikr (mS_per_uF).
C ALGBRC(3) is ikr_x_inf in component ikr (dimensionless).
C ALGBRC(17) is ikr_x_tau in component ikr (ms).
C ALGBRC(61) is r in component ikr (dimensionless).
C STATES(27) is x in component ikr (mS_per_uF).
C ALGBRC(62) is EKs in component iks (mV).
C ALGBRC(65) is IKs in component iks (A_per_F).
C ALGBRC(63) is IKs_jn in component iks (A_per_F).
C ALGBRC(64) is IKs_sl in component iks (A_per_F).
C STATES(28) is Na_i in component sodium (mM).
C CONSTS(102) is gKs_jn in component iks (mS_per_uF).
C CONSTS(103) is gKs_sl in component iks (mS_per_uF).
C ALGBRC(4) is iks_x_inf in component iks (dimensionless).
C ALGBRC(18) is iks_x_tau in component iks (ms).
C CONSTS(52) is pNaK in component iks (dimensionless).
C STATES(29) is x in component iks (mS_per_uF).
C ALGBRC(108) is IKur in component ikur (A_per_F).
C CONSTS(104) is gKur in component ikur (mS_per_uF).
C ALGBRC(5) is ikur_r_inf in component ikur (dimensionless).
C ALGBRC(19) is ikur_r_tau in component ikur (ms).
C ALGBRC(6) is ikur_s_inf in component ikur (dimensionless).
C ALGBRC(20) is ikur_s_tau in component ikur (ms).
C STATES(30) is r in component ikur (mS_per_uF).
C STATES(31) is s in component ikur (mS_per_uF).
C ALGBRC(110) is ENa_jn in component nernst (mV).
C ALGBRC(114) is ENa_sl in component nernst (mV).
C ALGBRC(116) is INa in component ina (A_per_F).
C ALGBRC(111) is INa_jn in component ina (A_per_F).
C ALGBRC(115) is INa_sl in component ina (A_per_F).
C CONSTS(53) is gNa in component ina (mS_per_uF).
C STATES(32) is h in component ina (mS_per_uF).
C ALGBRC(7) is ina_h_alpha in component ina (mS_per_uF).
C ALGBRC(21) is ina_h_beta in component ina (mS_per_uF).
C ALGBRC(28) is ina_h_inf in component ina (dimensionless).
C ALGBRC(32) is ina_h_tau in component ina (ms).
C ALGBRC(8) is ina_j_alpha in component ina (mS_per_uF).
C ALGBRC(22) is ina_j_beta in component ina (mS_per_uF).
C ALGBRC(29) is ina_j_inf in component ina (dimensionless).
C ALGBRC(33) is ina_j_tau in component ina (ms).
C ALGBRC(9) is ina_m_alpha in component ina (mS_per_uF).
C ALGBRC(23) is ina_m_beta in component ina (mS_per_uF).
C ALGBRC(30) is ina_m_inf in component ina (dimensionless).
C ALGBRC(34) is ina_m_tau in component ina (ms).
C STATES(33) is j in component ina (mS_per_uF).
C STATES(34) is m in component ina (mS_per_uF).
C ALGBRC(118) is INaB in component inab (A_per_F).
C ALGBRC(112) is INaB_jn in component inab (A_per_F).
C ALGBRC(117) is INaB_sl in component inab (A_per_F).
C CONSTS(54) is gNaB in component inab (mS_per_uF).
C ALGBRC(77) is INaCa in component inaca (A_per_F).
C CONSTS(105) is IbarNCX in component inaca (A_per_F).
C ALGBRC(66) is Ka_jn in component inaca (dimensionless).
C ALGBRC(67) is Ka_sl in component inaca (dimensionless).
C CONSTS(55) is Kdact in component inaca (mM).
C CONSTS(56) is KmCai in component inaca (mM).
C CONSTS(57) is KmCao in component inaca (mM).
C CONSTS(58) is KmNai in component inaca (mM).
C CONSTS(59) is KmNao in component inaca (mM).
C CONSTS(60) is Q10NCX in component inaca (dimensionless).
C ALGBRC(68) is inaca_INaCa_jn_s1 in component inaca (mol4_per_m12).
C ALGBRC(69) is inaca_INaCa_jn_s2 in component inaca (mol4_per_m12).
C ALGBRC(70) is inaca_INaCa_jn_s3 in component inaca (mol4_per_m12).
C ALGBRC(72) is inaca_INaCa_sl_s1 in component inaca (mol4_per_m12).
C ALGBRC(73) is inaca_INaCa_sl_s2 in component inaca (mol4_per_m12).
C ALGBRC(74) is inaca_INaCa_sl_s3 in component inaca (mol4_per_m12).
C CONSTS(61) is ksat in component inaca (dimensionless).
C CONSTS(62) is nu in component inaca (dimensionless).
C ALGBRC(80) is INaK in component inak (A_per_F).
C ALGBRC(78) is INaK_jn in component inak (A_per_F).
C ALGBRC(79) is INaK_sl in component inak (A_per_F).
C CONSTS(63) is IbarNaK in component inak (A_per_F).
C CONSTS(64) is KmKo in component inak (mM).
C CONSTS(65) is KmNaip in component inak (mM).
C ALGBRC(76) is fnak in component inak (dimensionless).
C CONSTS(106) is sigma in component inak (dimensionless).
C ALGBRC(120) is INaL in component inal (A_per_F).
C ALGBRC(113) is INaL_jn in component inal (A_per_F).
C ALGBRC(119) is INaL_sl in component inal (A_per_F).
C CONSTS(107) is gNaL in component inal (mS_per_uF).
C STATES(35) is hl in component inal (mS_per_uF).
C ALGBRC(10) is inal_hl_inf in component inal (dimensionless).
C CONSTS(66) is inal_hl_tau in component inal (ms).
C ALGBRC(11) is inal_ml_a in component inal (mS_per_uF).
C ALGBRC(24) is inal_ml_b in component inal (mS_per_uF).
C STATES(36) is ml in component inal (mS_per_uF).
C CONSTS(67) is Cl_i in component ion (mM).
C CONSTS(68) is Cl_o in component ion (mM).
C CONSTS(69) is IbarSLCaP in component ipca (A_per_F).
C ALGBRC(86) is IpCa in component ipca (A_per_F).
C CONSTS(70) is KmPCa in component ipca (mM).
C CONSTS(71) is Q10SLCaP in component ipca (dimensionless).
C CONSTS(90) is b in component ipca (dimensionless).
C ALGBRC(81) is ipca_IpCa_jn_a in component ipca (dimensionless).
C ALGBRC(83) is ipca_IpCa_sl_a in component ipca (dimensionless).
C ALGBRC(109) is Ito in component ito (A_per_F).
C CONSTS(108) is gto in component ito (mS_per_uF).
C ALGBRC(12) is ito_x_inf in component ito (dimensionless).
C ALGBRC(25) is ito_x_tau in component ito (ms).
C ALGBRC(13) is ito_y_inf in component ito (dimensionless).
C ALGBRC(26) is ito_y_tau in component ito (ms).
C STATES(37) is x in component ito (mS_per_uF).
C STATES(38) is y in component ito (mS_per_uF).
C ALGBRC(97) is ICa_tot in component membrane (A_per_F).
C ALGBRC(85) is ICl_tot in component membrane (A_per_F).
C ALGBRC(121) is IK_tot in component potassium (A_per_F).
C ALGBRC(124) is INa_tot in component membrane (A_per_F).
C ALGBRC(122) is INa_tot_jn in component sodium (A_per_F).
C ALGBRC(123) is INa_tot_sl in component sodium (A_per_F).
C ALGBRC(126) is I_stim in component stimulus (A_per_F).
C ALGBRC(125) is I_tot in component membrane (A_per_F).
C CONSTS(72) is R in component phys (mJ_per_mol_per_K).
C CONSTS(73) is T in component phys (kelvin).
C CONSTS(109) is Kmf in component ryr (mM).
C CONSTS(74) is Kmr in component ryr (mM).
C CONSTS(75) is MaxSR in component ryr (dimensionless).
C CONSTS(76) is MinSR in component ryr (dimensionless).
C CONSTS(77) is Q10SRCaP in component ryr (dimensionless).
C ALGBRC(14) is RI in component ryr (dimensionless).
C CONSTS(78) is Vmax_SRCaP in component ryr (mM_per_ms).
C CONSTS(79) is ec50SR in component ryr (mM).
C CONSTS(80) is hillSRCaP in component ryr (dimensionless).
C STATES(39) is i in component ryr (mS_per_uF).
C ALGBRC(27) is kCaSR in component ryr (dimensionless).
C CONSTS(81) is kiCa in component ryr (per_mM_per_ms).
C ALGBRC(31) is kiSRCa in component ryr (per_mM_per_ms).
C CONSTS(82) is kim in component ryr (mS_per_uF).
C CONSTS(110) is koCa in component ryr (per_mM2_per_ms).
C ALGBRC(35) is koSRCa in component ryr (per_mM2_per_ms).
C CONSTS(83) is kom in component ryr (mS_per_uF).
C CONSTS(84) is ks in component ryr (mS_per_uF).
C STATES(40) is o in component ryr (mS_per_uF).
C STATES(41) is r in component ryr (mS_per_uF).
C CONSTS(111) is JNa_jnsl in component sodium (m3_per_s).
C CONSTS(112) is JNa_slmyo in component sodium (m3_per_s).
C CONSTS(113) is amplitude in component stimulus (A_per_F).
C CONSTS(85) is duration in component stimulus (ms).
C CONSTS(86) is offset in component stimulus (ms).
C CONSTS(87) is period in component stimulus (ms).
C RATES(1) is d/dt CaM in component buffca (mM).
C RATES(14) is d/dt TnCL in component buffca (mM).
C RATES(12) is d/dt TnCHc in component buffca (mM).
C RATES(13) is d/dt TnCHm in component buffca (mM).
C RATES(5) is d/dt Myoc in component buffca (mM).
C RATES(6) is d/dt Myom in component buffca (mM).
C RATES(11) is d/dt SRB in component buffca (mM).
C RATES(9) is d/dt SLL_jn in component buffca (mM).
C RATES(7) is d/dt SLH_jn in component buffca (mM).
C RATES(10) is d/dt SLL_sl in component buffca (mM).
C RATES(8) is d/dt SLH_sl in component buffca (mM).
C RATES(15) is d/dt NaB_jn in component buffna (mM).
C RATES(16) is d/dt NaB_sl in component buffna (mM).
C RATES(2) is d/dt Ca_i in component calcium (mM).
C RATES(3) is d/dt Ca_jn in component calcium (mM).
C RATES(4) is d/dt Ca_sl in component calcium (mM).
C RATES(19) is d/dt Ca_sr in component calcium (mM).
C RATES(20) is d/dt Csqn in component calcium (mM).
C RATES(23) is d/dt d in component ical (mS_per_uF).
C RATES(24) is d/dt f in component ical (mS_per_uF).
C RATES(25) is d/dt fCaB_jn in component ical (mS_per_uF).
C RATES(26) is d/dt fCaB_sl in component ical (mS_per_uF).
C RATES(27) is d/dt x in component ikr (mS_per_uF).
C RATES(29) is d/dt x in component iks (mS_per_uF).
C RATES(30) is d/dt r in component ikur (mS_per_uF).
C RATES(31) is d/dt s in component ikur (mS_per_uF).
C RATES(32) is d/dt h in component ina (mS_per_uF).
C RATES(33) is d/dt j in component ina (mS_per_uF).
C RATES(34) is d/dt m in component ina (mS_per_uF).
C RATES(35) is d/dt hl in component inal (mS_per_uF).
C RATES(36) is d/dt ml in component inal (mS_per_uF).
C RATES(37) is d/dt x in component ito (mS_per_uF).
C RATES(38) is d/dt y in component ito (mS_per_uF).
C RATES(21) is d/dt V in component membrane (mV).
C RATES(22) is d/dt K_i in component potassium (mM).
C RATES(39) is d/dt i in component ryr (mS_per_uF).
C RATES(40) is d/dt o in component ryr (mS_per_uF).
C RATES(41) is d/dt r in component ryr (mS_per_uF).
C RATES(28) is d/dt Na_i in component sodium (mM).
C RATES(17) is d/dt Na_jn in component sodium (mM).
C RATES(18) is d/dt Na_sl in component sodium (mM).
C
      SUBROUTINE initConsts(CONSTS, RATES, STATES)
      REAL CONSTS(*), RATES(*), STATES(*)
      CONSTS(1) = 0.024
      CONSTS(2) = 0.14
      CONSTS(3) = 0.07
      CONSTS(4) = 0.14
      STATES(1) = 6.73710089221736985e-04
      STATES(2) = 2.02054825252250719e-04
      STATES(3) = 3.07333085373605341e-04
      STATES(4) = 2.23134214147860355e-04
      CONSTS(5) = 1.0
      STATES(5) = 3.79608844523014136e-03
      STATES(6) = 1.35691489581683838e-01
      STATES(7) = 1.00754933940878755e-01
      STATES(8) = 1.86055242143676608e-01
      STATES(9) = 1.28122161143722785e-02
      STATES(10) = 2.05131045874987414e-02
      STATES(11) = 4.31383413366585346e-03
      STATES(12) = 1.27405935029765827e-01
      STATES(13) = 5.91106798633337510e-03
      STATES(14) = 1.77305527980331397e-02
      CONSTS(6) = 0.238
      CONSTS(7) = 0.00046
      CONSTS(8) = 5.7e-05
      CONSTS(9) = 0.03
      CONSTS(10) = 1.3
      CONSTS(11) = 0.06
      CONSTS(12) = 3.2e-05
      CONSTS(13) = 0.00333
      CONSTS(14) = 0.0196
      CONSTS(15) = 34.0
      CONSTS(16) = 13.8
      CONSTS(17) = 0.0157
      CONSTS(18) = 100.0
      CONSTS(19) = 100.0
      CONSTS(20) = 100.0
      CONSTS(21) = 2.37
      CONSTS(22) = 0.003
      CONSTS(23) = 32.7
      CONSTS(24) = 7.561
      CONSTS(25) = 1.65
      STATES(15) = 3.62527560419928152e+00
      STATES(16) = 7.91087217252140484e-01
      STATES(17) = 9.20484970072274145e+00
      STATES(18) = 9.20559631626608166e+00
      CONSTS(26) = 0.001
      CONSTS(27) = 0.0001
      CONSTS(28) = 1.381e-10
      STATES(19) = 4.85784491491899340e-01
      STATES(20) = 1.11204132576763315e+00
      CONSTS(29) = 96485.0
      CONSTS(30) = 65.0
      CONSTS(31) = 100.0
      CONSTS(32) = 0.0
      CONSTS(33) = 100.0
      CONSTS(34) = 10.25
      CONSTS(35) = 3.14159265358979312e+00
      CONSTS(36) = 0.11
      STATES(21) = -7.49738877185916408e+01
      CONSTS(37) = 6.06430000000000033e-04
      CONSTS(38) = 1.8
      CONSTS(39) = 0.9
      STATES(22) = 120.0
      CONSTS(40) = 5.4
      CONSTS(41) = 140.0
      CONSTS(42) = 1.8
      STATES(23) = 1.67750282273476489e-05
      STATES(24) = 9.98760022198537767e-01
      STATES(25) = 4.24066845471226944e-02
      STATES(26) = 3.13717989771996886e-02
      CONSTS(43) = 0.0
      CONSTS(44) = 0.0
      CONSTS(45) = 0.009
      CONSTS(46) = 0.1
      CONSTS(47) = 0.0548
      CONSTS(48) = 2.1
      CONSTS(49) = 0.0
      CONSTS(50) = 0.0
      CONSTS(51) = 0.002
      STATES(27) = 4.42405976310802831e-03
      STATES(28) = 9.20582356442186978e+00
      CONSTS(52) = 0.01833
      STATES(29) = 6.73017121702351208e-03
      STATES(30) = 3.28872423495696863e-04
      STATES(31) = 9.62950458643225149e-01
      CONSTS(53) = 23.0
      STATES(32) = 8.70955463748630310e-01
      STATES(33) = 8.92501441492474679e-01
      STATES(34) = 7.97426794491632243e-03
      CONSTS(54) = 0.000597
      CONSTS(55) = 0.000384
      CONSTS(56) = 0.00359
      CONSTS(57) = 1.3
      CONSTS(58) = 12.29
      CONSTS(59) = 87.5
      CONSTS(60) = 1.57
      CONSTS(61) = 0.27
      CONSTS(62) = 0.35
      CONSTS(63) = 1.26
      CONSTS(64) = 1.5
      CONSTS(65) = 11.0
      STATES(35) = 5.18117114324953484e-02
      CONSTS(66) = 600.0
      STATES(36) = 7.97426794490581868e-03
      CONSTS(67) = 15.0
      CONSTS(68) = 150.0
      CONSTS(69) = 0.0471
      CONSTS(70) = 0.0005
      CONSTS(71) = 2.35
      STATES(37) = 1.19930453889315167e-03
      STATES(38) = 9.52396284498915668e-01
      CONSTS(72) = 8314.0
      CONSTS(73) = 310.0
      CONSTS(74) = 1.7
      CONSTS(75) = 15.0
      CONSTS(76) = 1.0
      CONSTS(77) = 2.6
      CONSTS(78) = 0.0053114
      CONSTS(79) = 0.45
      CONSTS(80) = 1.787
      STATES(39) = 4.16351235655844508e-07
      CONSTS(81) = 0.5
      CONSTS(82) = 0.005
      CONSTS(83) = 0.06
      CONSTS(84) = 25.0
      STATES(40) = 1.73377710603823675e-06
      STATES(41) = 8.06359263514647706e-01
      CONSTS(85) = 0.5
      CONSTS(86) = 50.0
      CONSTS(87) = 1000.0
      CONSTS(88) =  19.0000*0.000900000
      CONSTS(89) =  ( ( CONSTS(35)*CONSTS(34) ** 2.00000)*CONSTS(33))*1.00000e-15
      CONSTS(90) =  CONSTS(70)*1.00000 ** 1.60000
      CONSTS(91) = 1.00000/1.21340e+12
      CONSTS(92) = 1.00000/2.68510e+11
      CONSTS(93) = (CONSTS(29)/CONSTS(72))/CONSTS(73)
      CONSTS(94) = 1.00000 - CONSTS(39)
      CONSTS(95) =  (1.00000 -  0.500000*CONSTS(32))*0.000270000
      CONSTS(96) =  (1.00000 -  0.500000*CONSTS(32))*1.35000e-07
      CONSTS(97) =  (1.00000 -  0.500000*CONSTS(32))*7.50000e-09
      CONSTS(98) =  ( (1.00000+CONSTS(32))* (CONSTS(40)/5.40000) ** (1.0 / 2))*0.0525000
      CONSTS(99) = CONSTS(50)+( (1.00000 - CONSTS(50))*CONSTS(49))/(CONSTS(49)+0.125000)
      CONSTS(100) = 0.100000 -  0.0500000*CONSTS(32)
      CONSTS(101) =  0.0350000* (CONSTS(40)/5.40000) ** (1.0 / 2)
      CONSTS(102) =  (1.00000+CONSTS(32))*0.00350000
      CONSTS(103) =  (1.00000+CONSTS(32))*0.00350000
      CONSTS(104) =  (1.00000 -  0.500000*CONSTS(32))*0.0450000
      CONSTS(105) =  (1.00000+ 0.400000*CONSTS(32))*3.15000
      CONSTS(106) = (EXP(CONSTS(41)/67.3000) - 1.00000)/7.00000
      CONSTS(107) =  0.00250000*CONSTS(32)
      CONSTS(108) =  (1.00000 -  0.700000*CONSTS(32))*0.165000
      CONSTS(109) =  2.50000*0.000246000
      CONSTS(110) =  (10.0000+ 20.0000*CONSTS(32))*1.00000
      CONSTS(111) = 1.00000/( (1.63820e+12/3.00000)*100.000)
      CONSTS(112) = 1.00000/( (1.83080e+10/3.00000)*100.000)
      CONSTS(113) = - 90.0000
      CONSTS(125) = 0.00000
      CONSTS(114) =  ( 0.0539000*0.0100000)*CONSTS(89)
      CONSTS(115) = 1.00000 - CONSTS(36)
      CONSTS(116) =  (1.00000/CONSTS(93))*log(CONSTS(67)/CONSTS(68))
      CONSTS(117) =  0.650000*CONSTS(89)
      CONSTS(118) = (CONSTS(73) - 310.000)/10.0000
      CONSTS(119) =  (( 0.00165000*CONSTS(117))/CONSTS(114))*0.100000
      CONSTS(120) =  (( 0.00460000*CONSTS(117))/CONSTS(114))*0.100000
      CONSTS(121) =  0.0200000*CONSTS(89)
      CONSTS(122) =  0.0350000*CONSTS(89)
      CONSTS(123) =  (CONSTS(117)/CONSTS(121))*0.0134000
      CONSTS(124) =  (CONSTS(117)/CONSTS(121))*0.0374000
      CONSTS(125) =  (CONSTS(117)/CONSTS(122))*0.140000
      RETURN
      END
      SUBROUTINE computeRates(VOI, CONSTS,  RATES, STATES, ALGBRC)
      REAL VOI, CONSTS(*), RATES(*), STATES(*), ALGBRC(*)
      RATES(22) = CONSTS(125)
      RATES(1) =  ( CONSTS(15)*STATES(2))*(CONSTS(1) - STATES(1)) -  CONSTS(6)*STATES(1)
      RATES(25) =  ( ( 1.70000*STATES(3))*(1.00000 - STATES(25)) -  0.0119000*STATES(25))*1.00000
      RATES(26) =  ( ( 1.70000*STATES(4))*(1.00000 - STATES(26)) -  0.0119000*STATES(26))*1.00000
      RATES(28) =  (CONSTS(112)/CONSTS(117))*(STATES(18) - STATES(28))
      RATES(5) =  ( CONSTS(16)*STATES(2))*((CONSTS(4) - STATES(5)) - STATES(6)) -  CONSTS(7)*STATES(5)
      ALGBRC(10) = 1.00000/(1.00000+EXP((STATES(21)+91.0000)/6.10000))
      RATES(35) = (ALGBRC(10) - STATES(35))/CONSTS(66)
      RATES(6) =  ( CONSTS(17)*CONSTS(5))*((CONSTS(4) - STATES(5)) - STATES(6)) -  CONSTS(8)*STATES(6)
      ALGBRC(1) = 1.00000/(1.00000+EXP(- (STATES(21)+9.00000)/6.00000))
      ALGBRC(15) = ( ALGBRC(1)*(1.00000 - EXP(- (STATES(21)+9.00000)/6.00000)))/( 0.0350000*(STATES(21)+9.00000))
      RATES(23) = (ALGBRC(1) - STATES(23))/ALGBRC(15)
      ALGBRC(2) = 1.00000/(1.00000+EXP((STATES(21)+30.0000)/7.00000))+0.200000/(1.00000+EXP((50.0000 - STATES(21))/20.0000))
      ALGBRC(16) = 1.00000/( 0.0197000*EXP(-  0.0337000*(STATES(21)+25.0000) ** 2.00000)+0.0200000)
      RATES(24) = (ALGBRC(2) - STATES(24))/ALGBRC(16)
      ALGBRC(3) = 1.00000/(1.00000+EXP(- (STATES(21)+10.0000)/5.00000))
      ALGBRC(17) = ( ((550.000)/(1.00000+EXP((- 22.0000 - STATES(21))/9.00000)))*6.00000)/(1.00000+EXP((STATES(21)+11.0000)/9.00000))+230.000/(1.00000+EXP((STATES(21)+40.0000)/20.0000))
      RATES(27) = (ALGBRC(3) - STATES(27))/ALGBRC(17)
      ALGBRC(4) = 1.00000/(1.00000+EXP(- (STATES(21)+3.80000)/14.2500))
      ALGBRC(18) = 990.100/(1.00000+EXP(- (STATES(21)+2.43600)/14.1200))
      RATES(29) = (ALGBRC(4) - STATES(29))/ALGBRC(18)
      ALGBRC(5) = 1.00000/(1.00000+EXP((STATES(21)+6.00000)/- 8.60000))
      ALGBRC(19) = 9.00000/(1.00000+EXP((STATES(21)+5.00000)/12.0000))+0.500000
      RATES(30) = (ALGBRC(5) - STATES(30))/ALGBRC(19)
      ALGBRC(6) = 1.00000/(1.00000+EXP((STATES(21)+7.50000)/10.0000))
      ALGBRC(20) = 590.000/(1.00000+EXP((STATES(21)+60.0000)/10.0000))+3050.00
      RATES(31) = (ALGBRC(6) - STATES(31))/ALGBRC(20)
      ALGBRC(11) = ( 0.320000*(STATES(21)+47.1300))/(1.00000 - EXP( - 0.100000*(STATES(21)+47.1300)))
      ALGBRC(24) =  0.0800000*EXP(- STATES(21)/11.0000)
      RATES(36) =  ALGBRC(11)*(1.00000 - STATES(36)) -  ALGBRC(24)*STATES(36)
      ALGBRC(12) = 1.00000/(1.00000+EXP(- (STATES(21)+1.00000)/11.0000))
      ALGBRC(25) =  3.50000*EXP(- STATES(21)/30.0000 ** 2.00000)+1.50000
      RATES(37) = (ALGBRC(12) - STATES(37))/ALGBRC(25)
      ALGBRC(13) = 1.00000/(1.00000+EXP((STATES(21)+40.5000)/11.5000))
      ALGBRC(26) =  25.6350*EXP(- (STATES(21)+52.4500)/15.8827 ** 2.00000)+24.1400
      RATES(38) = (ALGBRC(13) - STATES(38))/ALGBRC(26)
      RATES(7) =  ( CONSTS(18)*STATES(3))*(CONSTS(119) - STATES(7)) -  CONSTS(9)*STATES(7)
      RATES(8) =  ( CONSTS(18)*STATES(4))*(CONSTS(123) - STATES(8)) -  CONSTS(9)*STATES(8)
      ALGBRC(7) = TERNRY(STATES(21).LT.- 40.0000,  0.135000*EXP((STATES(21)+80.0000)/- 6.80000), 0.00000)
      ALGBRC(21) = TERNRY(STATES(21).LT.- 40.0000,  3.56000*EXP( 0.0790000*STATES(21))+ 310000.*EXP( 0.350000*STATES(21)), 1.00000/( 0.130000*(1.00000+EXP((STATES(21)+10.6600)/- 11.1000))))
      ALGBRC(28) = ALGBRC(7)/(ALGBRC(7)+ALGBRC(21))
      ALGBRC(32) = 1.00000/(ALGBRC(7)+ALGBRC(21))
      RATES(32) = (ALGBRC(28) - STATES(32))/ALGBRC(32)
      ALGBRC(8) = TERNRY(STATES(21).LT.- 40.0000, ( ( - 127140.*EXP( 0.244400*STATES(21)) -  3.47400e-05*EXP( - 0.0439100*STATES(21)))*(STATES(21)+37.7800))/(1.00000+EXP( 0.311000*(STATES(21)+79.2300))), 0.00000)
      ALGBRC(22) = TERNRY(STATES(21).LT.- 40.0000, ( 0.121200*EXP( - 0.0105200*STATES(21)))/(1.00000+EXP( - 0.137800*(STATES(21)+40.1400))), ( 0.300000*EXP( - 2.53500e-07*STATES(21)))/(1.00000+EXP( - 0.100000*(STATES(21)+32.0000))))
      ALGBRC(29) = ALGBRC(8)/(ALGBRC(8)+ALGBRC(22))
      ALGBRC(33) = 1.00000/(ALGBRC(8)+ALGBRC(22))
      RATES(33) = (ALGBRC(29) - STATES(33))/ALGBRC(33)
      ALGBRC(9) = TERNRY(STATES(21).EQ.- 47.1300, 3.20000, ( 0.320000*(STATES(21)+47.1300))/(1.00000 - EXP( - 0.100000*(STATES(21)+47.1300))))
      ALGBRC(23) =  0.0800000*EXP(- STATES(21)/11.0000)
      ALGBRC(30) = ALGBRC(9)/(ALGBRC(9)+ALGBRC(23))
      ALGBRC(34) = 1.00000/(ALGBRC(9)+ALGBRC(23))
      RATES(34) = (ALGBRC(30) - STATES(34))/ALGBRC(34)
      ALGBRC(14) = ((1.00000 - STATES(41)) - STATES(40)) - STATES(39)
      ALGBRC(27) = CONSTS(75) - (CONSTS(75) - CONSTS(76))/(1.00000+CONSTS(79)/STATES(19) ** 2.50000)
      ALGBRC(31) =  CONSTS(81)*ALGBRC(27)
      ALGBRC(35) = CONSTS(110)/ALGBRC(27)
      RATES(39) = ( ( ALGBRC(31)*STATES(3))*STATES(40) -  CONSTS(82)*STATES(39)) - ( CONSTS(83)*STATES(39) -  ( ALGBRC(35)*STATES(3) ** 2.00000)*ALGBRC(14))
      RATES(40) = ( ( ALGBRC(35)*STATES(3) ** 2.00000)*STATES(41) -  CONSTS(83)*STATES(40)) - ( ( ALGBRC(31)*STATES(3))*STATES(40) -  CONSTS(82)*STATES(39))
      RATES(41) = ( CONSTS(82)*ALGBRC(14) -  ( ALGBRC(31)*STATES(3))*STATES(41)) - ( ( ALGBRC(35)*STATES(3) ** 2.00000)*STATES(41) -  CONSTS(83)*STATES(40))
      RATES(9) =  ( CONSTS(19)*STATES(3))*(CONSTS(120) - STATES(9)) -  CONSTS(10)*STATES(9)
      RATES(10) =  ( CONSTS(19)*STATES(4))*(CONSTS(124) - STATES(10)) -  CONSTS(10)*STATES(10)
      RATES(11) =  ( CONSTS(20)*STATES(2))*(CONSTS(88) - STATES(11)) -  CONSTS(11)*STATES(11)
      RATES(12) =  ( CONSTS(21)*STATES(2))*((CONSTS(2) - STATES(12)) - STATES(13)) -  CONSTS(12)*STATES(12)
      RATES(13) =  ( CONSTS(22)*CONSTS(5))*((CONSTS(2) - STATES(12)) - STATES(13)) -  CONSTS(13)*STATES(13)
      RATES(14) =  ( CONSTS(23)*STATES(2))*(CONSTS(3) - STATES(14)) -  CONSTS(14)*STATES(14)
      RATES(15) =  ( CONSTS(27)*STATES(17))*(CONSTS(24) - STATES(15)) -  CONSTS(26)*STATES(15)
      RATES(16) =  ( CONSTS(27)*STATES(18))*(CONSTS(25) - STATES(16)) -  CONSTS(26)*STATES(16)
      RATES(20) =  ( CONSTS(31)*STATES(19))*(CONSTS(125) - STATES(20)) -  CONSTS(30)*STATES(20)
      ALGBRC(36) = RATES(9)+RATES(7)
      ALGBRC(87) =  ((1.00000/CONSTS(93))/2.00000)*log(CONSTS(38)/STATES(3))
      ALGBRC(88) =  ( CONSTS(36)*CONSTS(37))*(STATES(21) - ALGBRC(87))
      ALGBRC(39) = ( ( ( ( ( CONSTS(95)*4.00000)*STATES(21))*CONSTS(29))*CONSTS(93))*( ( 0.341000*STATES(3))*EXP( ( 2.00000*STATES(21))*CONSTS(93)) -  0.341000*CONSTS(38)))/(EXP( ( 2.00000*STATES(21))*CONSTS(93)) - 1.00000)
      ALGBRC(40) =  ( ( ( ( ( CONSTS(39)*ALGBRC(39))*STATES(23))*STATES(24))*((1.00000 - STATES(25))+CONSTS(44)))*CONSTS(42) ** CONSTS(118))*0.450000
      ALGBRC(66) = 1.00000/(1.00000+CONSTS(55)/STATES(3) ** 2.00000)
      ALGBRC(68) =  ( EXP( ( CONSTS(62)*STATES(21))*CONSTS(93))*STATES(17) ** 3.00000)*CONSTS(38)
      ALGBRC(69) =  ( EXP( ( (CONSTS(62) - 1.00000)*STATES(21))*CONSTS(93))*CONSTS(41) ** 3.00000)*STATES(3)
      ALGBRC(70) = ((( ( CONSTS(56)*CONSTS(41) ** 3.00000)*(1.00000+STATES(17)/CONSTS(58) ** 3.00000)+ ( CONSTS(59) ** 3.00000*STATES(3))*(1.00000+STATES(3)/CONSTS(56)))+ CONSTS(57)*STATES(17) ** 3.00000)+ STATES(17) ** 3.00000*CONSTS(38))+ CONSTS(41) ** 3.00000*STATES(3)
      ALGBRC(71) = (( ( ( ( CONSTS(36)*CONSTS(105))*CONSTS(60) ** CONSTS(118))*ALGBRC(66))*(ALGBRC(68) - ALGBRC(69)))/ALGBRC(70))/(1.00000+ CONSTS(61)*EXP( ( (CONSTS(62) - 1.00000)*STATES(21))*CONSTS(93)))
      ALGBRC(81) =  STATES(3)*1.00000 ** 1.60000
      ALGBRC(82) = ( ( ( CONSTS(36)*CONSTS(71) ** CONSTS(118))*CONSTS(69))*ALGBRC(81))/(ALGBRC(81)+CONSTS(90))
      ALGBRC(89) = ((ALGBRC(40)+ALGBRC(88))+ALGBRC(82)) -  2.00000*ALGBRC(71)
      ALGBRC(90) =  ( CONSTS(84)*STATES(40))*(STATES(19) - STATES(3))
      ALGBRC(92) =  ( (1.00000+ 0.250000*CONSTS(32))*(STATES(19) - STATES(3)))*5.34800e-06
      RATES(3) = (((( - ALGBRC(89)*CONSTS(28))/( ( CONSTS(114)*2.00000)*CONSTS(29))+ (CONSTS(91)/CONSTS(114))*(STATES(4) - STATES(3))) - ALGBRC(36))+( ALGBRC(90)*CONSTS(122))/CONSTS(114))+( ALGBRC(92)*CONSTS(117))/CONSTS(114)
      ALGBRC(38) = (((((RATES(14)+RATES(12))+RATES(13))+RATES(1))+RATES(5))+RATES(6))+RATES(11)
      ALGBRC(94) = ( ( CONSTS(77) ** CONSTS(118)*CONSTS(78))*(STATES(2)/CONSTS(109) ** CONSTS(80) - STATES(19)/CONSTS(74) ** CONSTS(80)))/((1.00000+STATES(2)/CONSTS(109) ** CONSTS(80))+STATES(19)/CONSTS(74) ** CONSTS(80))
      RATES(2) = (( - ALGBRC(94)*CONSTS(122))/CONSTS(117) - ALGBRC(38))+ (CONSTS(92)/CONSTS(117))*(STATES(4) - STATES(2))
      ALGBRC(37) = RATES(10)+RATES(8)
      ALGBRC(91) =  ((1.00000/CONSTS(93))/2.00000)*log(CONSTS(38)/STATES(4))
      ALGBRC(93) =  ( CONSTS(115)*CONSTS(37))*(STATES(21) - ALGBRC(91))
      ALGBRC(41) = ( ( ( ( ( CONSTS(95)*4.00000)*STATES(21))*CONSTS(29))*CONSTS(93))*( ( 0.341000*STATES(4))*EXP( ( 2.00000*STATES(21))*CONSTS(93)) -  0.341000*CONSTS(38)))/(EXP( ( 2.00000*STATES(21))*CONSTS(93)) - 1.00000)
      ALGBRC(42) =  ( ( ( ( ( CONSTS(94)*ALGBRC(41))*STATES(23))*STATES(24))*((1.00000 - STATES(26))+CONSTS(43)))*CONSTS(42) ** CONSTS(118))*0.450000
      ALGBRC(67) = 1.00000/(1.00000+CONSTS(55)/STATES(4) ** 2.00000)
      ALGBRC(72) =  ( EXP( ( CONSTS(62)*STATES(21))*CONSTS(93))*STATES(18) ** 3.00000)*CONSTS(38)
      ALGBRC(73) =  ( EXP( ( (CONSTS(62) - 1.00000)*STATES(21))*CONSTS(93))*CONSTS(41) ** 3.00000)*STATES(4)
      ALGBRC(74) = ((( ( CONSTS(56)*CONSTS(41) ** 3.00000)*(1.00000+STATES(18)/CONSTS(58) ** 3.00000)+ ( CONSTS(59) ** 3.00000*STATES(4))*(1.00000+STATES(4)/CONSTS(56)))+ CONSTS(57)*STATES(18) ** 3.00000)+ STATES(18) ** 3.00000*CONSTS(38))+ CONSTS(41) ** 3.00000*STATES(4)
      ALGBRC(75) = (( ( ( ( CONSTS(115)*CONSTS(105))*CONSTS(60) ** CONSTS(118))*ALGBRC(67))*(ALGBRC(72) - ALGBRC(73)))/ALGBRC(74))/(1.00000+ CONSTS(61)*EXP( ( (CONSTS(62) - 1.00000)*STATES(21))*CONSTS(93)))
      ALGBRC(83) =  STATES(4)*1.00000 ** 1.60000
      ALGBRC(84) = ( ( ( CONSTS(115)*CONSTS(71) ** CONSTS(118))*CONSTS(69))*ALGBRC(83))/(ALGBRC(83)+CONSTS(90))
      ALGBRC(96) = ((ALGBRC(42)+ALGBRC(93))+ALGBRC(84)) -  2.00000*ALGBRC(75)
      RATES(4) = ((( - ALGBRC(96)*CONSTS(28))/( ( CONSTS(121)*2.00000)*CONSTS(29))+ (CONSTS(91)/CONSTS(121))*(STATES(3) - STATES(4)))+ (CONSTS(92)/CONSTS(121))*(STATES(2) - STATES(4))) - ALGBRC(37)
      RATES(19) = (ALGBRC(94) - (( ALGBRC(92)*CONSTS(117))/CONSTS(122)+ALGBRC(90))) - RATES(20)
      ALGBRC(46) = ( ( ( ( CONSTS(97)*STATES(21))*CONSTS(29))*CONSTS(93))*( ( 0.750000*STATES(17))*EXP( STATES(21)*CONSTS(93)) -  0.750000*CONSTS(41)))/(EXP( STATES(21)*CONSTS(93)) - 1.00000)
      ALGBRC(47) =  ( ( ( ( ( CONSTS(39)*ALGBRC(46))*STATES(23))*STATES(24))*((1.00000 - STATES(25))+CONSTS(44)))*CONSTS(42) ** CONSTS(118))*0.450000
      ALGBRC(110) =  (1.00000/CONSTS(93))*log(CONSTS(41)/STATES(17))
      ALGBRC(111) =  ( ( ( ( CONSTS(36)*CONSTS(53))*STATES(34) ** 3.00000)*STATES(32))*STATES(33))*(STATES(21) - ALGBRC(110))
      ALGBRC(112) =  ( CONSTS(36)*CONSTS(54))*(STATES(21) - ALGBRC(110))
      ALGBRC(76) = 1.00000/((1.00000+ 0.124500*EXP( ( - 0.100000*STATES(21))*CONSTS(93)))+ ( 0.0365000*CONSTS(106))*EXP( - STATES(21)*CONSTS(93)))
      ALGBRC(78) = (( ( ( CONSTS(36)*CONSTS(63))*ALGBRC(76))*CONSTS(40))/(1.00000+CONSTS(65)/STATES(17) ** 4.00000))/(CONSTS(40)+CONSTS(64))
      ALGBRC(113) =  ( ( ( CONSTS(36)*CONSTS(107))*STATES(36) ** 3.00000)*STATES(35))*(STATES(21) - ALGBRC(110))
      ALGBRC(122) = ((((ALGBRC(111)+ALGBRC(112))+ 3.00000*ALGBRC(71))+ 3.00000*ALGBRC(78))+ALGBRC(47))+ALGBRC(113)
      RATES(17) = (( - ALGBRC(122)*CONSTS(28))/( CONSTS(114)*CONSTS(29))+ (CONSTS(111)/CONSTS(114))*(STATES(18) - STATES(17))) - RATES(15)
      ALGBRC(48) = ( ( ( ( CONSTS(97)*STATES(21))*CONSTS(29))*CONSTS(93))*( ( 0.750000*STATES(18))*EXP( STATES(21)*CONSTS(93)) -  0.750000*CONSTS(41)))/(EXP( STATES(21)*CONSTS(93)) - 1.00000)
      ALGBRC(49) =  ( ( ( ( ( CONSTS(94)*ALGBRC(48))*STATES(23))*STATES(24))*((1.00000 - STATES(26))+CONSTS(43)))*CONSTS(42) ** CONSTS(118))*0.450000
      ALGBRC(114) =  (1.00000/CONSTS(93))*log(CONSTS(41)/STATES(18))
      ALGBRC(115) =  ( ( ( ( CONSTS(115)*CONSTS(53))*STATES(34) ** 3.00000)*STATES(32))*STATES(33))*(STATES(21) - ALGBRC(114))
      ALGBRC(117) =  ( CONSTS(115)*CONSTS(54))*(STATES(21) - ALGBRC(114))
      ALGBRC(79) = (( ( ( CONSTS(115)*CONSTS(63))*ALGBRC(76))*CONSTS(40))/(1.00000+CONSTS(65)/STATES(18) ** 4.00000))/(CONSTS(40)+CONSTS(64))
      ALGBRC(119) =  ( ( ( CONSTS(115)*CONSTS(107))*STATES(36) ** 3.00000)*STATES(35))*(STATES(21) - ALGBRC(114))
      ALGBRC(123) = ((((ALGBRC(115)+ALGBRC(117))+ 3.00000*ALGBRC(75))+ 3.00000*ALGBRC(79))+ALGBRC(49))+ALGBRC(119)
      RATES(18) = ((( - ALGBRC(123)*CONSTS(28))/( CONSTS(121)*CONSTS(29))+ (CONSTS(111)/CONSTS(121))*(STATES(17) - STATES(18)))+ (CONSTS(112)/CONSTS(121))*(STATES(28) - STATES(18))) - RATES(16)
      ALGBRC(126) =  (TERNRY((VOI - CONSTS(86)) -  CONSTS(87)*INT((VOI - CONSTS(86))/CONSTS(87)).LT.CONSTS(85), 1.00000, 0.00000))*CONSTS(113)
      ALGBRC(97) = ALGBRC(89)+ALGBRC(96)
      ALGBRC(50) =  CONSTS(45)*(STATES(21) - CONSTS(116))
      ALGBRC(52) =  (( CONSTS(36)*CONSTS(47))/(1.00000+CONSTS(46)/STATES(3)))*(STATES(21) - CONSTS(116))
      ALGBRC(54) =  (( CONSTS(115)*CONSTS(47))/(1.00000+CONSTS(46)/STATES(4)))*(STATES(21) - CONSTS(116))
      ALGBRC(55) = ALGBRC(52)+ALGBRC(54)
      ALGBRC(85) = ALGBRC(55)+ALGBRC(50)
      ALGBRC(44) = ( ( ( ( CONSTS(96)*STATES(21))*CONSTS(29))*CONSTS(93))*( ( 0.750000*STATES(22))*EXP( STATES(21)*CONSTS(93)) -  0.750000*CONSTS(40)))/(EXP( STATES(21)*CONSTS(93)) - 1.00000)
      ALGBRC(45) =  ( ( ( ( ALGBRC(44)*STATES(23))*STATES(24))*( CONSTS(39)*(CONSTS(44)+(1.00000 - STATES(25)))+ CONSTS(94)*(CONSTS(43)+(1.00000 - STATES(26)))))*CONSTS(42) ** CONSTS(118))*0.450000
      ALGBRC(98) =  (1.00000/CONSTS(93))*log(CONSTS(40)/STATES(22))
      ALGBRC(56) = STATES(18)
      ALGBRC(57) = 0.100000+0.900000/(1.00000+ALGBRC(56)/7.00000 ** 2.00000)
      ALGBRC(99) = ( ALGBRC(57)*1.00000)/(1.00000+EXP( 0.238500*((STATES(21) - ALGBRC(98)) - 59.2150)))
      ALGBRC(100) =  1.00000*(( 0.491240*EXP( 0.0803200*((STATES(21) - ALGBRC(98))+5.47600))+EXP( 0.0617500*((STATES(21) - ALGBRC(98)) - 594.310)))/(1.00000+EXP( - 0.514300*((STATES(21) - ALGBRC(98))+4.75300))))
      ALGBRC(101) = ALGBRC(99)/(ALGBRC(99)+ALGBRC(100))
      ALGBRC(102) =  ( ( CONSTS(48)*CONSTS(98))*ALGBRC(101))*(STATES(21) - ALGBRC(98))
      ALGBRC(58) = STATES(18)
      ALGBRC(59) = TERNRY(CONSTS(32).LT.1.00000, 1.00000+1.50000/(1.00000+9.00000/ALGBRC(58) ** 4.00000), 1.00000)
      ALGBRC(103) =  ( ( ( ( CONSTS(100)*ALGBRC(59))*CONSTS(99))*(0.0550000+0.400000/(1.00000+EXP(((STATES(21) - ALGBRC(98))+9.53000)/17.1800))))*(STATES(21) - ALGBRC(98)))* (CONSTS(40)/5.40000) ** (1.0 / 2)
      ALGBRC(60) = 1.00000/(1.00000+EXP(7.48800 - STATES(21)/5.98000))
      ALGBRC(104) =  ( ( CONSTS(36)*CONSTS(51))*ALGBRC(60))*(STATES(21) - ALGBRC(98))
      ALGBRC(105) =  ( ( CONSTS(115)*CONSTS(51))*ALGBRC(60))*(STATES(21) - ALGBRC(98))
      ALGBRC(106) = ALGBRC(104)+ALGBRC(105)
      ALGBRC(61) = 1.00000/(1.00000+EXP((STATES(21)+74.0000)/24.0000))
      ALGBRC(107) =  ( ( CONSTS(101)*STATES(27))*ALGBRC(61))*(STATES(21) - ALGBRC(98))
      ALGBRC(62) =  (1.00000/CONSTS(93))*log((CONSTS(40)+ CONSTS(52)*CONSTS(41))/(STATES(22)+ CONSTS(52)*STATES(28)))
      ALGBRC(63) =  ( ( CONSTS(36)*CONSTS(102))*STATES(29) ** 2.00000)*(STATES(21) - ALGBRC(62))
      ALGBRC(64) =  ( ( CONSTS(115)*CONSTS(103))*STATES(29) ** 2.00000)*(STATES(21) - ALGBRC(62))
      ALGBRC(65) = ALGBRC(63)+ALGBRC(64)
      ALGBRC(108) =  ( ( CONSTS(104)*STATES(30))*STATES(31))*(STATES(21) - ALGBRC(98))
      ALGBRC(80) = ALGBRC(78)+ALGBRC(79)
      ALGBRC(109) =  ( ( CONSTS(108)*STATES(37))*STATES(38))*(STATES(21) - ALGBRC(98))
      ALGBRC(121) = (((((((ALGBRC(109)+ALGBRC(107))+ALGBRC(65))+ALGBRC(102)) -  2.00000*ALGBRC(80))+ALGBRC(45))+ALGBRC(106))+ALGBRC(108))+ALGBRC(103)
      ALGBRC(124) = ALGBRC(122)+ALGBRC(123)
      ALGBRC(125) = ((ALGBRC(124)+ALGBRC(85))+ALGBRC(97))+ALGBRC(121)
      RATES(21) = - (ALGBRC(125)+ALGBRC(126))
      RETURN
      END
      SUBROUTINE computeVariables(VOI, CONSTS, RATES, STATES, ALGBRC)
      REAL VOI, CONSTS(*), RATES(*), STATES(*), ALGBRC(*)
      ALGBRC(10) = 1.00000/(1.00000+EXP((STATES(21)+91.0000)/6.10000))
      ALGBRC(1) = 1.00000/(1.00000+EXP(- (STATES(21)+9.00000)/6.00000))
      ALGBRC(15) = ( ALGBRC(1)*(1.00000 - EXP(- (STATES(21)+9.00000)/6.00000)))/( 0.0350000*(STATES(21)+9.00000))
      ALGBRC(2) = 1.00000/(1.00000+EXP((STATES(21)+30.0000)/7.00000))+0.200000/(1.00000+EXP((50.0000 - STATES(21))/20.0000))
      ALGBRC(16) = 1.00000/( 0.0197000*EXP(-  0.0337000*(STATES(21)+25.0000) ** 2.00000)+0.0200000)
      ALGBRC(3) = 1.00000/(1.00000+EXP(- (STATES(21)+10.0000)/5.00000))
      ALGBRC(17) = ( ((550.000)/(1.00000+EXP((- 22.0000 - STATES(21))/9.00000)))*6.00000)/(1.00000+EXP((STATES(21)+11.0000)/9.00000))+230.000/(1.00000+EXP((STATES(21)+40.0000)/20.0000))
      ALGBRC(4) = 1.00000/(1.00000+EXP(- (STATES(21)+3.80000)/14.2500))
      ALGBRC(18) = 990.100/(1.00000+EXP(- (STATES(21)+2.43600)/14.1200))
      ALGBRC(5) = 1.00000/(1.00000+EXP((STATES(21)+6.00000)/- 8.60000))
      ALGBRC(19) = 9.00000/(1.00000+EXP((STATES(21)+5.00000)/12.0000))+0.500000
      ALGBRC(6) = 1.00000/(1.00000+EXP((STATES(21)+7.50000)/10.0000))
      ALGBRC(20) = 590.000/(1.00000+EXP((STATES(21)+60.0000)/10.0000))+3050.00
      ALGBRC(11) = ( 0.320000*(STATES(21)+47.1300))/(1.00000 - EXP( - 0.100000*(STATES(21)+47.1300)))
      ALGBRC(24) =  0.0800000*EXP(- STATES(21)/11.0000)
      ALGBRC(12) = 1.00000/(1.00000+EXP(- (STATES(21)+1.00000)/11.0000))
      ALGBRC(25) =  3.50000*EXP(- STATES(21)/30.0000 ** 2.00000)+1.50000
      ALGBRC(13) = 1.00000/(1.00000+EXP((STATES(21)+40.5000)/11.5000))
      ALGBRC(26) =  25.6350*EXP(- (STATES(21)+52.4500)/15.8827 ** 2.00000)+24.1400
      ALGBRC(7) = TERNRY(STATES(21).LT.- 40.0000,  0.135000*EXP((STATES(21)+80.0000)/- 6.80000), 0.00000)
      ALGBRC(21) = TERNRY(STATES(21).LT.- 40.0000,  3.56000*EXP( 0.0790000*STATES(21))+ 310000.*EXP( 0.350000*STATES(21)), 1.00000/( 0.130000*(1.00000+EXP((STATES(21)+10.6600)/- 11.1000))))
      ALGBRC(28) = ALGBRC(7)/(ALGBRC(7)+ALGBRC(21))
      ALGBRC(32) = 1.00000/(ALGBRC(7)+ALGBRC(21))
      ALGBRC(8) = TERNRY(STATES(21).LT.- 40.0000, ( ( - 127140.*EXP( 0.244400*STATES(21)) -  3.47400e-05*EXP( - 0.0439100*STATES(21)))*(STATES(21)+37.7800))/(1.00000+EXP( 0.311000*(STATES(21)+79.2300))), 0.00000)
      ALGBRC(22) = TERNRY(STATES(21).LT.- 40.0000, ( 0.121200*EXP( - 0.0105200*STATES(21)))/(1.00000+EXP( - 0.137800*(STATES(21)+40.1400))), ( 0.300000*EXP( - 2.53500e-07*STATES(21)))/(1.00000+EXP( - 0.100000*(STATES(21)+32.0000))))
      ALGBRC(29) = ALGBRC(8)/(ALGBRC(8)+ALGBRC(22))
      ALGBRC(33) = 1.00000/(ALGBRC(8)+ALGBRC(22))
      ALGBRC(9) = TERNRY(STATES(21).EQ.- 47.1300, 3.20000, ( 0.320000*(STATES(21)+47.1300))/(1.00000 - EXP( - 0.100000*(STATES(21)+47.1300))))
      ALGBRC(23) =  0.0800000*EXP(- STATES(21)/11.0000)
      ALGBRC(30) = ALGBRC(9)/(ALGBRC(9)+ALGBRC(23))
      ALGBRC(34) = 1.00000/(ALGBRC(9)+ALGBRC(23))
      ALGBRC(14) = ((1.00000 - STATES(41)) - STATES(40)) - STATES(39)
      ALGBRC(27) = CONSTS(75) - (CONSTS(75) - CONSTS(76))/(1.00000+CONSTS(79)/STATES(19) ** 2.50000)
      ALGBRC(31) =  CONSTS(81)*ALGBRC(27)
      ALGBRC(35) = CONSTS(110)/ALGBRC(27)
      ALGBRC(36) = RATES(9)+RATES(7)
      ALGBRC(87) =  ((1.00000/CONSTS(93))/2.00000)*log(CONSTS(38)/STATES(3))
      ALGBRC(88) =  ( CONSTS(36)*CONSTS(37))*(STATES(21) - ALGBRC(87))
      ALGBRC(39) = ( ( ( ( ( CONSTS(95)*4.00000)*STATES(21))*CONSTS(29))*CONSTS(93))*( ( 0.341000*STATES(3))*EXP( ( 2.00000*STATES(21))*CONSTS(93)) -  0.341000*CONSTS(38)))/(EXP( ( 2.00000*STATES(21))*CONSTS(93)) - 1.00000)
      ALGBRC(40) =  ( ( ( ( ( CONSTS(39)*ALGBRC(39))*STATES(23))*STATES(24))*((1.00000 - STATES(25))+CONSTS(44)))*CONSTS(42) ** CONSTS(118))*0.450000
      ALGBRC(66) = 1.00000/(1.00000+CONSTS(55)/STATES(3) ** 2.00000)
      ALGBRC(68) =  ( EXP( ( CONSTS(62)*STATES(21))*CONSTS(93))*STATES(17) ** 3.00000)*CONSTS(38)
      ALGBRC(69) =  ( EXP( ( (CONSTS(62) - 1.00000)*STATES(21))*CONSTS(93))*CONSTS(41) ** 3.00000)*STATES(3)
      ALGBRC(70) = ((( ( CONSTS(56)*CONSTS(41) ** 3.00000)*(1.00000+STATES(17)/CONSTS(58) ** 3.00000)+ ( CONSTS(59) ** 3.00000*STATES(3))*(1.00000+STATES(3)/CONSTS(56)))+ CONSTS(57)*STATES(17) ** 3.00000)+ STATES(17) ** 3.00000*CONSTS(38))+ CONSTS(41) ** 3.00000*STATES(3)
      ALGBRC(71) = (( ( ( ( CONSTS(36)*CONSTS(105))*CONSTS(60) ** CONSTS(118))*ALGBRC(66))*(ALGBRC(68) - ALGBRC(69)))/ALGBRC(70))/(1.00000+ CONSTS(61)*EXP( ( (CONSTS(62) - 1.00000)*STATES(21))*CONSTS(93)))
      ALGBRC(81) =  STATES(3)*1.00000 ** 1.60000
      ALGBRC(82) = ( ( ( CONSTS(36)*CONSTS(71) ** CONSTS(118))*CONSTS(69))*ALGBRC(81))/(ALGBRC(81)+CONSTS(90))
      ALGBRC(89) = ((ALGBRC(40)+ALGBRC(88))+ALGBRC(82)) -  2.00000*ALGBRC(71)
      ALGBRC(90) =  ( CONSTS(84)*STATES(40))*(STATES(19) - STATES(3))
      ALGBRC(92) =  ( (1.00000+ 0.250000*CONSTS(32))*(STATES(19) - STATES(3)))*5.34800e-06
      ALGBRC(38) = (((((RATES(14)+RATES(12))+RATES(13))+RATES(1))+RATES(5))+RATES(6))+RATES(11)
      ALGBRC(94) = ( ( CONSTS(77) ** CONSTS(118)*CONSTS(78))*(STATES(2)/CONSTS(109) ** CONSTS(80) - STATES(19)/CONSTS(74) ** CONSTS(80)))/((1.00000+STATES(2)/CONSTS(109) ** CONSTS(80))+STATES(19)/CONSTS(74) ** CONSTS(80))
      ALGBRC(37) = RATES(10)+RATES(8)
      ALGBRC(91) =  ((1.00000/CONSTS(93))/2.00000)*log(CONSTS(38)/STATES(4))
      ALGBRC(93) =  ( CONSTS(115)*CONSTS(37))*(STATES(21) - ALGBRC(91))
      ALGBRC(41) = ( ( ( ( ( CONSTS(95)*4.00000)*STATES(21))*CONSTS(29))*CONSTS(93))*( ( 0.341000*STATES(4))*EXP( ( 2.00000*STATES(21))*CONSTS(93)) -  0.341000*CONSTS(38)))/(EXP( ( 2.00000*STATES(21))*CONSTS(93)) - 1.00000)
      ALGBRC(42) =  ( ( ( ( ( CONSTS(94)*ALGBRC(41))*STATES(23))*STATES(24))*((1.00000 - STATES(26))+CONSTS(43)))*CONSTS(42) ** CONSTS(118))*0.450000
      ALGBRC(67) = 1.00000/(1.00000+CONSTS(55)/STATES(4) ** 2.00000)
      ALGBRC(72) =  ( EXP( ( CONSTS(62)*STATES(21))*CONSTS(93))*STATES(18) ** 3.00000)*CONSTS(38)
      ALGBRC(73) =  ( EXP( ( (CONSTS(62) - 1.00000)*STATES(21))*CONSTS(93))*CONSTS(41) ** 3.00000)*STATES(4)
      ALGBRC(74) = ((( ( CONSTS(56)*CONSTS(41) ** 3.00000)*(1.00000+STATES(18)/CONSTS(58) ** 3.00000)+ ( CONSTS(59) ** 3.00000*STATES(4))*(1.00000+STATES(4)/CONSTS(56)))+ CONSTS(57)*STATES(18) ** 3.00000)+ STATES(18) ** 3.00000*CONSTS(38))+ CONSTS(41) ** 3.00000*STATES(4)
      ALGBRC(75) = (( ( ( ( CONSTS(115)*CONSTS(105))*CONSTS(60) ** CONSTS(118))*ALGBRC(67))*(ALGBRC(72) - ALGBRC(73)))/ALGBRC(74))/(1.00000+ CONSTS(61)*EXP( ( (CONSTS(62) - 1.00000)*STATES(21))*CONSTS(93)))
      ALGBRC(83) =  STATES(4)*1.00000 ** 1.60000
      ALGBRC(84) = ( ( ( CONSTS(115)*CONSTS(71) ** CONSTS(118))*CONSTS(69))*ALGBRC(83))/(ALGBRC(83)+CONSTS(90))
      ALGBRC(96) = ((ALGBRC(42)+ALGBRC(93))+ALGBRC(84)) -  2.00000*ALGBRC(75)
      ALGBRC(46) = ( ( ( ( CONSTS(97)*STATES(21))*CONSTS(29))*CONSTS(93))*( ( 0.750000*STATES(17))*EXP( STATES(21)*CONSTS(93)) -  0.750000*CONSTS(41)))/(EXP( STATES(21)*CONSTS(93)) - 1.00000)
      ALGBRC(47) =  ( ( ( ( ( CONSTS(39)*ALGBRC(46))*STATES(23))*STATES(24))*((1.00000 - STATES(25))+CONSTS(44)))*CONSTS(42) ** CONSTS(118))*0.450000
      ALGBRC(110) =  (1.00000/CONSTS(93))*log(CONSTS(41)/STATES(17))
      ALGBRC(111) =  ( ( ( ( CONSTS(36)*CONSTS(53))*STATES(34) ** 3.00000)*STATES(32))*STATES(33))*(STATES(21) - ALGBRC(110))
      ALGBRC(112) =  ( CONSTS(36)*CONSTS(54))*(STATES(21) - ALGBRC(110))
      ALGBRC(76) = 1.00000/((1.00000+ 0.124500*EXP( ( - 0.100000*STATES(21))*CONSTS(93)))+ ( 0.0365000*CONSTS(106))*EXP( - STATES(21)*CONSTS(93)))
      ALGBRC(78) = (( ( ( CONSTS(36)*CONSTS(63))*ALGBRC(76))*CONSTS(40))/(1.00000+CONSTS(65)/STATES(17) ** 4.00000))/(CONSTS(40)+CONSTS(64))
      ALGBRC(113) =  ( ( ( CONSTS(36)*CONSTS(107))*STATES(36) ** 3.00000)*STATES(35))*(STATES(21) - ALGBRC(110))
      ALGBRC(122) = ((((ALGBRC(111)+ALGBRC(112))+ 3.00000*ALGBRC(71))+ 3.00000*ALGBRC(78))+ALGBRC(47))+ALGBRC(113)
      ALGBRC(48) = ( ( ( ( CONSTS(97)*STATES(21))*CONSTS(29))*CONSTS(93))*( ( 0.750000*STATES(18))*EXP( STATES(21)*CONSTS(93)) -  0.750000*CONSTS(41)))/(EXP( STATES(21)*CONSTS(93)) - 1.00000)
      ALGBRC(49) =  ( ( ( ( ( CONSTS(94)*ALGBRC(48))*STATES(23))*STATES(24))*((1.00000 - STATES(26))+CONSTS(43)))*CONSTS(42) ** CONSTS(118))*0.450000
      ALGBRC(114) =  (1.00000/CONSTS(93))*log(CONSTS(41)/STATES(18))
      ALGBRC(115) =  ( ( ( ( CONSTS(115)*CONSTS(53))*STATES(34) ** 3.00000)*STATES(32))*STATES(33))*(STATES(21) - ALGBRC(114))
      ALGBRC(117) =  ( CONSTS(115)*CONSTS(54))*(STATES(21) - ALGBRC(114))
      ALGBRC(79) = (( ( ( CONSTS(115)*CONSTS(63))*ALGBRC(76))*CONSTS(40))/(1.00000+CONSTS(65)/STATES(18) ** 4.00000))/(CONSTS(40)+CONSTS(64))
      ALGBRC(119) =  ( ( ( CONSTS(115)*CONSTS(107))*STATES(36) ** 3.00000)*STATES(35))*(STATES(21) - ALGBRC(114))
      ALGBRC(123) = ((((ALGBRC(115)+ALGBRC(117))+ 3.00000*ALGBRC(75))+ 3.00000*ALGBRC(79))+ALGBRC(49))+ALGBRC(119)
      ALGBRC(126) =  (TERNRY((VOI - CONSTS(86)) -  CONSTS(87)*INT((VOI - CONSTS(86))/CONSTS(87)).LT.CONSTS(85), 1.00000, 0.00000))*CONSTS(113)
      ALGBRC(97) = ALGBRC(89)+ALGBRC(96)
      ALGBRC(50) =  CONSTS(45)*(STATES(21) - CONSTS(116))
      ALGBRC(52) =  (( CONSTS(36)*CONSTS(47))/(1.00000+CONSTS(46)/STATES(3)))*(STATES(21) - CONSTS(116))
      ALGBRC(54) =  (( CONSTS(115)*CONSTS(47))/(1.00000+CONSTS(46)/STATES(4)))*(STATES(21) - CONSTS(116))
      ALGBRC(55) = ALGBRC(52)+ALGBRC(54)
      ALGBRC(85) = ALGBRC(55)+ALGBRC(50)
      ALGBRC(44) = ( ( ( ( CONSTS(96)*STATES(21))*CONSTS(29))*CONSTS(93))*( ( 0.750000*STATES(22))*EXP( STATES(21)*CONSTS(93)) -  0.750000*CONSTS(40)))/(EXP( STATES(21)*CONSTS(93)) - 1.00000)
      ALGBRC(45) =  ( ( ( ( ALGBRC(44)*STATES(23))*STATES(24))*( CONSTS(39)*(CONSTS(44)+(1.00000 - STATES(25)))+ CONSTS(94)*(CONSTS(43)+(1.00000 - STATES(26)))))*CONSTS(42) ** CONSTS(118))*0.450000
      ALGBRC(98) =  (1.00000/CONSTS(93))*log(CONSTS(40)/STATES(22))
      ALGBRC(56) = STATES(18)
      ALGBRC(57) = 0.100000+0.900000/(1.00000+ALGBRC(56)/7.00000 ** 2.00000)
      ALGBRC(99) = ( ALGBRC(57)*1.00000)/(1.00000+EXP( 0.238500*((STATES(21) - ALGBRC(98)) - 59.2150)))
      ALGBRC(100) =  1.00000*(( 0.491240*EXP( 0.0803200*((STATES(21) - ALGBRC(98))+5.47600))+EXP( 0.0617500*((STATES(21) - ALGBRC(98)) - 594.310)))/(1.00000+EXP( - 0.514300*((STATES(21) - ALGBRC(98))+4.75300))))
      ALGBRC(101) = ALGBRC(99)/(ALGBRC(99)+ALGBRC(100))
      ALGBRC(102) =  ( ( CONSTS(48)*CONSTS(98))*ALGBRC(101))*(STATES(21) - ALGBRC(98))
      ALGBRC(58) = STATES(18)
      ALGBRC(59) = TERNRY(CONSTS(32).LT.1.00000, 1.00000+1.50000/(1.00000+9.00000/ALGBRC(58) ** 4.00000), 1.00000)
      ALGBRC(103) =  ( ( ( ( CONSTS(100)*ALGBRC(59))*CONSTS(99))*(0.0550000+0.400000/(1.00000+EXP(((STATES(21) - ALGBRC(98))+9.53000)/17.1800))))*(STATES(21) - ALGBRC(98)))* (CONSTS(40)/5.40000) ** (1.0 / 2)
      ALGBRC(60) = 1.00000/(1.00000+EXP(7.48800 - STATES(21)/5.98000))
      ALGBRC(104) =  ( ( CONSTS(36)*CONSTS(51))*ALGBRC(60))*(STATES(21) - ALGBRC(98))
      ALGBRC(105) =  ( ( CONSTS(115)*CONSTS(51))*ALGBRC(60))*(STATES(21) - ALGBRC(98))
      ALGBRC(106) = ALGBRC(104)+ALGBRC(105)
      ALGBRC(61) = 1.00000/(1.00000+EXP((STATES(21)+74.0000)/24.0000))
      ALGBRC(107) =  ( ( CONSTS(101)*STATES(27))*ALGBRC(61))*(STATES(21) - ALGBRC(98))
      ALGBRC(62) =  (1.00000/CONSTS(93))*log((CONSTS(40)+ CONSTS(52)*CONSTS(41))/(STATES(22)+ CONSTS(52)*STATES(28)))
      ALGBRC(63) =  ( ( CONSTS(36)*CONSTS(102))*STATES(29) ** 2.00000)*(STATES(21) - ALGBRC(62))
      ALGBRC(64) =  ( ( CONSTS(115)*CONSTS(103))*STATES(29) ** 2.00000)*(STATES(21) - ALGBRC(62))
      ALGBRC(65) = ALGBRC(63)+ALGBRC(64)
      ALGBRC(108) =  ( ( CONSTS(104)*STATES(30))*STATES(31))*(STATES(21) - ALGBRC(98))
      ALGBRC(80) = ALGBRC(78)+ALGBRC(79)
      ALGBRC(109) =  ( ( CONSTS(108)*STATES(37))*STATES(38))*(STATES(21) - ALGBRC(98))
      ALGBRC(121) = (((((((ALGBRC(109)+ALGBRC(107))+ALGBRC(65))+ALGBRC(102)) -  2.00000*ALGBRC(80))+ALGBRC(45))+ALGBRC(106))+ALGBRC(108))+ALGBRC(103)
      ALGBRC(124) = ALGBRC(122)+ALGBRC(123)
      ALGBRC(125) = ((ALGBRC(124)+ALGBRC(85))+ALGBRC(97))+ALGBRC(121)
      ALGBRC(43) = ALGBRC(40)+ALGBRC(42)
      ALGBRC(51) = ALGBRC(47)+ALGBRC(49)
      ALGBRC(53) = (ALGBRC(43)+ALGBRC(51))+ALGBRC(45)
      ALGBRC(77) = ALGBRC(71)+ALGBRC(75)
      ALGBRC(86) = ALGBRC(82)+ALGBRC(84)
      ALGBRC(95) = ALGBRC(88)+ALGBRC(93)
      ALGBRC(116) = ALGBRC(111)+ALGBRC(115)
      ALGBRC(118) = ALGBRC(112)+ALGBRC(117)
      ALGBRC(120) = ALGBRC(113)+ALGBRC(119)
      RETURN
      END
      REAL FUNCTION TERNRY(TEST, VALA, VALB)
      LOGICAL TEST
      REAL VALA, VALB
      IF (TEST) THEN
        TERNRY = VALA
      ELSE
        TERNRY = VALB
      ENDIF
      RETURN
      END
Source
Derived from workspace Voigt, Heijman et al. 2013 human atrial AP model at changeset d163c98c4971.
Collaboration
To begin collaborating on this work, please use your git client and issue this command:
License
The terms of use/license for this work is unspecified.