Generated Code

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

The raw code is available.

/*
   There are a total of 101 entries in the algebraic variable array.
   There are a total of 33 entries in each of the rate and state variable arrays.
   There are a total of 116 entries in the constant variable array.
 */
/*
 * VOI is time in component environment (second).
 * CONSTANTS[0] is R in component Membrane (joule_per_kilomole_kelvin).
 * CONSTANTS[1] is T in component Membrane (kelvin).
 * CONSTANTS[2] is F in component Membrane (coulomb_per_mole).
 * CONSTANTS[3] is C in component Membrane (microF).
 * CONSTANTS[91] is RTONF in component Membrane (millivolt).
 * ALGEBRAIC[27] is i_f in component i_f (nanoA).
 * ALGEBRAIC[30] is i_NaK in component i_NaK (nanoA).
 * ALGEBRAIC[99] is i_NaCa in component i_NaCa (nanoA).
 * ALGEBRAIC[37] is i_Na in component i_Na (nanoA).
 * ALGEBRAIC[71] is i_Kr in component i_Kr (nanoA).
 * ALGEBRAIC[79] is i_Ks in component i_Ks (nanoA).
 * ALGEBRAIC[66] is i_to in component i_to (nanoA).
 * ALGEBRAIC[50] is i_CaL in component i_CaL (nanoA).
 * ALGEBRAIC[56] is i_CaT in component i_CaT (nanoA).
 * ALGEBRAIC[83] is i_KACh in component i_KACh (nanoA).
 * ALGEBRAIC[61] is i_Kur in component i_Kur (nanoA).
 * ALGEBRAIC[23] is V in component Membrane (millivolt).
 * CONSTANTS[4] is clamp_mode in component Membrane (dimensionless).
 * ALGEBRAIC[0] is V_clamp in component Voltage_clamp (millivolt).
 * STATES[0] is V_ode in component Membrane (millivolt).
 * ALGEBRAIC[100] is i_tot in component Membrane (nanoA).
 * CONSTANTS[5] is t_holding in component Voltage_clamp (second).
 * CONSTANTS[6] is t_test in component Voltage_clamp (second).
 * CONSTANTS[7] is V_test in component Voltage_clamp (millivolt).
 * CONSTANTS[8] is V_holding in component Voltage_clamp (millivolt).
 * CONSTANTS[9] is ACh in component Rate_modulation_experiments (millimolar).
 * CONSTANTS[10] is Iso_1_uM in component Rate_modulation_experiments (dimensionless).
 * ALGEBRAIC[2] is Nai in component Nai_concentration (millimolar).
 * CONSTANTS[11] is Nao in component Ionic_values (millimolar).
 * CONSTANTS[12] is Ki in component Ionic_values (millimolar).
 * CONSTANTS[13] is Ko in component Ionic_values (millimolar).
 * STATES[1] is Ca_sub in component Ca_dynamics (millimolar).
 * CONSTANTS[14] is Cao in component Ionic_values (millimolar).
 * ALGEBRAIC[24] is E_Na in component Ionic_values (millivolt).
 * CONSTANTS[96] is E_K in component Ionic_values (millivolt).
 * ALGEBRAIC[1] is E_Ca in component Ionic_values (millivolt).
 * CONSTANTS[110] is V_sub in component Cell_parameters (millimetre3).
 * CONSTANTS[112] is V_i in component Cell_parameters (millimetre3).
 * ALGEBRAIC[25] is i_fNa in component i_f (nanoA).
 * ALGEBRAIC[49] is i_siNa in component i_CaL (nanoA).
 * STATES[2] is Nai_ in component Nai_concentration (millimolar).
 * CONSTANTS[15] is Nai_clamp in component Nai_concentration (dimensionless).
 * ALGEBRAIC[26] is i_fK in component i_f (nanoA).
 * CONSTANTS[16] is g_f in component i_f (microS).
 * CONSTANTS[92] is G_f in component i_f (microS).
 * CONSTANTS[103] is g_f_Na in component i_f (microS).
 * CONSTANTS[100] is G_f_Na in component i_f (microS).
 * CONSTANTS[101] is g_f_K in component i_f (microS).
 * CONSTANTS[97] is G_f_K in component i_f (microS).
 * CONSTANTS[17] is Km_f in component i_f (millimolar).
 * CONSTANTS[18] is alpha in component i_f (dimensionless).
 * STATES[3] is y in component i_f_y_gate (dimensionless).
 * CONSTANTS[19] is blockade in component i_f (dimensionless).
 * ALGEBRAIC[28] is tau_y in component i_f_y_gate (second).
 * ALGEBRAIC[29] is y_infinity in component i_f_y_gate (dimensionless).
 * CONSTANTS[95] is ACh_shift in component i_f_y_gate (millivolt).
 * CONSTANTS[99] is Iso_shift in component i_f_y_gate (millivolt).
 * CONSTANTS[20] is y_shift in component i_f_y_gate (millivolt).
 * CONSTANTS[21] is Km_Kp in component i_NaK (millimolar).
 * CONSTANTS[22] is Km_Nap in component i_NaK (millimolar).
 * CONSTANTS[23] is i_NaK_max in component i_NaK (nanoA).
 * CONSTANTS[102] is Iso_increase in component i_NaK (dimensionless).
 * CONSTANTS[24] is K_NaCa in component i_NaCa (nanoA).
 * ALGEBRAIC[94] is x1 in component i_NaCa (dimensionless).
 * ALGEBRAIC[95] is x2 in component i_NaCa (dimensionless).
 * ALGEBRAIC[96] is x3 in component i_NaCa (dimensionless).
 * ALGEBRAIC[97] is x4 in component i_NaCa (dimensionless).
 * ALGEBRAIC[31] is k41 in component i_NaCa (dimensionless).
 * CONSTANTS[104] is k34 in component i_NaCa (dimensionless).
 * ALGEBRAIC[90] is k23 in component i_NaCa (dimensionless).
 * ALGEBRAIC[89] is k21 in component i_NaCa (dimensionless).
 * ALGEBRAIC[33] is k32 in component i_NaCa (dimensionless).
 * ALGEBRAIC[3] is k43 in component i_NaCa (dimensionless).
 * ALGEBRAIC[87] is k12 in component i_NaCa (dimensionless).
 * ALGEBRAIC[88] is k14 in component i_NaCa (dimensionless).
 * CONSTANTS[25] is Qci in component i_NaCa (dimensionless).
 * CONSTANTS[26] is Qn in component i_NaCa (dimensionless).
 * CONSTANTS[27] is Qco in component i_NaCa (dimensionless).
 * CONSTANTS[28] is K3ni in component i_NaCa (millimolar).
 * CONSTANTS[29] is Kci in component i_NaCa (millimolar).
 * CONSTANTS[30] is K1ni in component i_NaCa (millimolar).
 * CONSTANTS[31] is K2ni in component i_NaCa (millimolar).
 * CONSTANTS[32] is Kcni in component i_NaCa (millimolar).
 * CONSTANTS[33] is K3no in component i_NaCa (millimolar).
 * CONSTANTS[34] is K1no in component i_NaCa (millimolar).
 * CONSTANTS[35] is K2no in component i_NaCa (millimolar).
 * CONSTANTS[36] is Kco in component i_NaCa (millimolar).
 * ALGEBRAIC[34] is do in component i_NaCa (dimensionless).
 * ALGEBRAIC[32] is di in component i_NaCa (dimensionless).
 * CONSTANTS[37] is blockade_NaCa in component i_NaCa (dimensionless).
 * ALGEBRAIC[35] is i_Na_ in component i_Na (nanoA).
 * ALGEBRAIC[36] is i_Na_L in component i_Na (nanoA).
 * CONSTANTS[38] is g_Na in component i_Na (microS).
 * CONSTANTS[39] is g_Na_L in component i_Na (microS).
 * ALGEBRAIC[4] is E_mh in component i_Na (millivolt).
 * STATES[4] is m in component i_Na_m_gate (dimensionless).
 * STATES[5] is h in component i_Na_h_gate (dimensionless).
 * ALGEBRAIC[40] is alpha_m in component i_Na_m_gate (per_second).
 * ALGEBRAIC[41] is beta_m in component i_Na_m_gate (per_second).
 * ALGEBRAIC[38] is m_infinity in component i_Na_m_gate (dimensionless).
 * ALGEBRAIC[42] is tau_m in component i_Na_m_gate (second).
 * CONSTANTS[40] is delta_m in component i_Na_m_gate (millivolt).
 * ALGEBRAIC[39] is E0_m in component i_Na_m_gate (millivolt).
 * ALGEBRAIC[44] is alpha_h in component i_Na_h_gate (per_second).
 * ALGEBRAIC[45] is beta_h in component i_Na_h_gate (per_second).
 * ALGEBRAIC[43] is h_infinity in component i_Na_h_gate (dimensionless).
 * ALGEBRAIC[46] is tau_h in component i_Na_h_gate (second).
 * ALGEBRAIC[47] is i_siCa in component i_CaL (nanoA).
 * ALGEBRAIC[48] is i_siK in component i_CaL (nanoA).
 * CONSTANTS[106] is ACh_block in component i_CaL (dimensionless).
 * CONSTANTS[41] is P_CaL in component i_CaL (nanoA_per_millimolar).
 * STATES[6] is dL in component i_CaL_dL_gate (dimensionless).
 * STATES[7] is fL in component i_CaL_fL_gate (dimensionless).
 * STATES[8] is fCa in component i_CaL_fCa_gate (dimensionless).
 * CONSTANTS[105] is Iso_increase in component i_CaL (dimensionless).
 * ALGEBRAIC[51] is dL_infinity in component i_CaL_dL_gate (dimensionless).
 * ALGEBRAIC[98] is tau_dL in component i_CaL_dL_gate (second).
 * ALGEBRAIC[91] is alpha_dL in component i_CaL_dL_gate (per_second).
 * ALGEBRAIC[92] is beta_dL in component i_CaL_dL_gate (per_second).
 * ALGEBRAIC[52] is adVm in component i_CaL_dL_gate (millivolt).
 * ALGEBRAIC[53] is bdVm in component i_CaL_dL_gate (millivolt).
 * CONSTANTS[42] is k_dL in component i_CaL_dL_gate (millivolt).
 * CONSTANTS[43] is V_dL in component i_CaL_dL_gate (millivolt).
 * CONSTANTS[107] is Iso_shift_dL in component i_CaL_dL_gate (millivolt).
 * CONSTANTS[108] is Iso_slope_dL in component i_CaL_dL_gate (dimensionless).
 * ALGEBRAIC[54] is fL_infinity in component i_CaL_fL_gate (dimensionless).
 * ALGEBRAIC[55] is tau_fL in component i_CaL_fL_gate (second).
 * CONSTANTS[44] is shift_fL in component i_CaL_fL_gate (millivolt).
 * CONSTANTS[45] is k_fL in component i_CaL_fL_gate (millivolt).
 * CONSTANTS[46] is alpha_fCa in component i_CaL_fCa_gate (per_second).
 * ALGEBRAIC[5] is fCa_infinity in component i_CaL_fCa_gate (dimensionless).
 * ALGEBRAIC[6] is tau_fCa in component i_CaL_fCa_gate (second).
 * CONSTANTS[47] is Km_fCa in component i_CaL_fCa_gate (millimolar).
 * CONSTANTS[48] is P_CaT in component i_CaT (nanoA_per_millimolar).
 * STATES[9] is dT in component i_CaT_dT_gate (dimensionless).
 * STATES[10] is fT in component i_CaT_fT_gate (dimensionless).
 * ALGEBRAIC[57] is dT_infinity in component i_CaT_dT_gate (dimensionless).
 * ALGEBRAIC[58] is tau_dT in component i_CaT_dT_gate (second).
 * ALGEBRAIC[59] is fT_infinity in component i_CaT_fT_gate (dimensionless).
 * ALGEBRAIC[60] is tau_fT in component i_CaT_fT_gate (second).
 * CONSTANTS[49] is offset_fT in component i_CaT_fT_gate (second).
 * ALGEBRAIC[7] is j_SRCarel in component Ca_SR_release (millimolar_per_second).
 * STATES[11] is R in component Ca_SR_release (dimensionless).
 * STATES[12] is O in component Ca_SR_release (dimensionless).
 * STATES[13] is I in component Ca_SR_release (dimensionless).
 * STATES[14] is RI in component Ca_SR_release (dimensionless).
 * CONSTANTS[50] is ks in component Ca_SR_release (per_second).
 * CONSTANTS[51] is MaxSR in component Ca_SR_release (dimensionless).
 * CONSTANTS[52] is MinSR in component Ca_SR_release (dimensionless).
 * CONSTANTS[53] is EC50_SR in component Ca_SR_release (millimolar).
 * CONSTANTS[54] is HSR in component Ca_SR_release (dimensionless).
 * ALGEBRAIC[10] is koSRCa in component Ca_SR_release (per_millimolar2_second).
 * ALGEBRAIC[11] is kiSRCa in component Ca_SR_release (per_millimolar_second).
 * CONSTANTS[55] is koCa in component Ca_SR_release (per_millimolar2_second).
 * CONSTANTS[56] is kiCa in component Ca_SR_release (per_millimolar_second).
 * ALGEBRAIC[9] is kCaSR in component Ca_SR_release (dimensionless).
 * CONSTANTS[57] is kim in component Ca_SR_release (per_second).
 * CONSTANTS[58] is kom in component Ca_SR_release (per_second).
 * STATES[15] is Ca_jsr in component Ca_dynamics (millimolar).
 * ALGEBRAIC[8] is diff in component Ca_SR_release (millimolar).
 * ALGEBRAIC[12] is P_tot in component Ca_SR_release (dimensionless).
 * ALGEBRAIC[13] is j_Ca_dif in component Ca_intracellular_fluxes (millimolar_per_second).
 * ALGEBRAIC[14] is j_up in component Ca_intracellular_fluxes (millimolar_per_second).
 * ALGEBRAIC[15] is j_tr in component Ca_intracellular_fluxes (millimolar_per_second).
 * CONSTANTS[59] is tau_dif_Ca in component Ca_intracellular_fluxes (second).
 * CONSTANTS[60] is tau_tr in component Ca_intracellular_fluxes (second).
 * CONSTANTS[98] is P_up in component Ca_intracellular_fluxes (millimolar_per_second).
 * CONSTANTS[61] is P_up_basal in component Ca_intracellular_fluxes (millimolar_per_second).
 * CONSTANTS[93] is b_up in component Ca_intracellular_fluxes (dimensionless).
 * CONSTANTS[62] is K_up in component Ca_intracellular_fluxes (millimolar).
 * STATES[16] is Ca_nsr in component Ca_dynamics (millimolar).
 * STATES[17] is Cai in component Ca_dynamics (millimolar).
 * CONSTANTS[63] is slope_up in component Ca_intracellular_fluxes (millimolar).
 * CONSTANTS[64] is TC_tot in component Ca_buffering (millimolar).
 * CONSTANTS[65] is TMC_tot in component Ca_buffering (millimolar).
 * CONSTANTS[66] is CM_tot in component Ca_buffering (millimolar).
 * CONSTANTS[67] is CQ_tot in component Ca_buffering (millimolar).
 * ALGEBRAIC[16] is delta_fTC in component Ca_buffering (per_second).
 * ALGEBRAIC[17] is delta_fTMC in component Ca_buffering (per_second).
 * ALGEBRAIC[20] is delta_fCMs in component Ca_buffering (per_second).
 * ALGEBRAIC[19] is delta_fCMi in component Ca_buffering (per_second).
 * ALGEBRAIC[21] is delta_fCQ in component Ca_buffering (per_second).
 * ALGEBRAIC[18] is delta_fTMM in component Ca_buffering (per_second).
 * STATES[18] is fTMM in component Ca_buffering (dimensionless).
 * STATES[19] is fCMi in component Ca_buffering (dimensionless).
 * STATES[20] is fCMs in component Ca_buffering (dimensionless).
 * STATES[21] is fTC in component Ca_buffering (dimensionless).
 * STATES[22] is fTMC in component Ca_buffering (dimensionless).
 * STATES[23] is fCQ in component Ca_buffering (dimensionless).
 * CONSTANTS[68] is kf_TC in component Ca_buffering (per_millimolar_second).
 * CONSTANTS[69] is kf_TMM in component Ca_buffering (per_millimolar_second).
 * CONSTANTS[70] is kf_TMC in component Ca_buffering (per_millimolar_second).
 * CONSTANTS[71] is kf_CM in component Ca_buffering (per_millimolar_second).
 * CONSTANTS[72] is kf_CQ in component Ca_buffering (per_millimolar_second).
 * CONSTANTS[73] is kb_TC in component Ca_buffering (per_second).
 * CONSTANTS[74] is kb_TMC in component Ca_buffering (per_second).
 * CONSTANTS[75] is kb_TMM in component Ca_buffering (per_second).
 * CONSTANTS[76] is kb_CM in component Ca_buffering (per_second).
 * CONSTANTS[77] is kb_CQ in component Ca_buffering (per_second).
 * CONSTANTS[78] is Mgi in component Ca_buffering (millimolar).
 * CONSTANTS[111] is V_jsr in component Cell_parameters (millimetre3).
 * CONSTANTS[113] is V_nsr in component Cell_parameters (millimetre3).
 * CONSTANTS[109] is V_cell in component Cell_parameters (millimetre3).
 * CONSTANTS[79] is V_jsr_part in component Cell_parameters (dimensionless).
 * CONSTANTS[80] is V_i_part in component Cell_parameters (dimensionless).
 * CONSTANTS[81] is V_nsr_part in component Cell_parameters (dimensionless).
 * CONSTANTS[82] is R_cell in component Cell_parameters (micrometre).
 * CONSTANTS[83] is L_cell in component Cell_parameters (micrometre).
 * CONSTANTS[84] is L_sub in component Cell_parameters (micrometre).
 * CONSTANTS[85] is g_Kur in component i_Kur (microS).
 * STATES[24] is r_Kur in component i_Kur_rKur_gate (dimensionless).
 * STATES[25] is s_Kur in component i_Kur_sKur_gate (dimensionless).
 * ALGEBRAIC[63] is tau_r_Kur in component i_Kur_rKur_gate (second).
 * ALGEBRAIC[62] is r_Kur_infinity in component i_Kur_rKur_gate (dimensionless).
 * ALGEBRAIC[65] is tau_s_Kur in component i_Kur_sKur_gate (second).
 * ALGEBRAIC[64] is s_Kur_infinity in component i_Kur_sKur_gate (dimensionless).
 * CONSTANTS[86] is g_to in component i_to (microS).
 * STATES[26] is q in component i_to_q_gate (dimensionless).
 * STATES[27] is r in component i_to_r_gate (dimensionless).
 * ALGEBRAIC[67] is q_infinity in component i_to_q_gate (dimensionless).
 * ALGEBRAIC[68] is tau_q in component i_to_q_gate (second).
 * ALGEBRAIC[69] is r_infinity in component i_to_r_gate (dimensionless).
 * ALGEBRAIC[70] is tau_r in component i_to_r_gate (second).
 * CONSTANTS[87] is g_Kr in component i_Kr (microS).
 * STATES[28] is paS in component i_Kr_pa_gate (dimensionless).
 * STATES[29] is paF in component i_Kr_pa_gate (dimensionless).
 * STATES[30] is piy in component i_Kr_pi_gate (dimensionless).
 * ALGEBRAIC[74] is pa_infinity in component i_Kr_pa_gate (dimensionless).
 * ALGEBRAIC[72] is alfapaF in component i_Kr_pa_gate (per_second).
 * ALGEBRAIC[73] is betapaF in component i_Kr_pa_gate (per_second).
 * ALGEBRAIC[75] is tau_paS in component i_Kr_pa_gate (second).
 * ALGEBRAIC[76] is tau_paF in component i_Kr_pa_gate (second).
 * ALGEBRAIC[78] is pi_infinity in component i_Kr_pi_gate (dimensionless).
 * ALGEBRAIC[77] is tau_pi in component i_Kr_pi_gate (second).
 * CONSTANTS[94] is g_Ks in component i_Ks (microS).
 * CONSTANTS[88] is g_Ks_ in component i_Ks (microS).
 * ALGEBRAIC[22] is E_Ks in component i_Ks (millivolt).
 * STATES[31] is n in component i_Ks_n_gate (dimensionless).
 * ALGEBRAIC[80] is n_infinity in component i_Ks_n_gate (dimensionless).
 * ALGEBRAIC[93] is tau_n in component i_Ks_n_gate (second).
 * CONSTANTS[114] is Iso_shift in component i_Ks_n_gate (millivolt).
 * ALGEBRAIC[81] is alpha_n in component i_Ks_n_gate (per_second).
 * ALGEBRAIC[82] is beta_n in component i_Ks_n_gate (per_second).
 * CONSTANTS[89] is g_KACh in component i_KACh (microS).
 * STATES[32] is a in component i_KACh_a_gate (dimensionless).
 * CONSTANTS[90] is ACh_on in component i_KACh (dimensionless).
 * CONSTANTS[115] is alpha_a in component i_KACh_a_gate (per_second).
 * ALGEBRAIC[84] is beta_a in component i_KACh_a_gate (per_second).
 * ALGEBRAIC[85] is a_infinity in component i_KACh_a_gate (dimensionless).
 * ALGEBRAIC[86] is tau_a in component i_KACh_a_gate (second).
 * RATES[0] is d/dt V_ode in component Membrane (millivolt).
 * RATES[2] is d/dt Nai_ in component Nai_concentration (millimolar).
 * RATES[3] is d/dt y in component i_f_y_gate (dimensionless).
 * RATES[4] is d/dt m in component i_Na_m_gate (dimensionless).
 * RATES[5] is d/dt h in component i_Na_h_gate (dimensionless).
 * RATES[6] is d/dt dL in component i_CaL_dL_gate (dimensionless).
 * RATES[7] is d/dt fL in component i_CaL_fL_gate (dimensionless).
 * RATES[8] is d/dt fCa in component i_CaL_fCa_gate (dimensionless).
 * RATES[9] is d/dt dT in component i_CaT_dT_gate (dimensionless).
 * RATES[10] is d/dt fT in component i_CaT_fT_gate (dimensionless).
 * RATES[11] is d/dt R in component Ca_SR_release (dimensionless).
 * RATES[12] is d/dt O in component Ca_SR_release (dimensionless).
 * RATES[13] is d/dt I in component Ca_SR_release (dimensionless).
 * RATES[14] is d/dt RI in component Ca_SR_release (dimensionless).
 * RATES[21] is d/dt fTC in component Ca_buffering (dimensionless).
 * RATES[22] is d/dt fTMC in component Ca_buffering (dimensionless).
 * RATES[18] is d/dt fTMM in component Ca_buffering (dimensionless).
 * RATES[19] is d/dt fCMi in component Ca_buffering (dimensionless).
 * RATES[20] is d/dt fCMs in component Ca_buffering (dimensionless).
 * RATES[23] is d/dt fCQ in component Ca_buffering (dimensionless).
 * RATES[17] is d/dt Cai in component Ca_dynamics (millimolar).
 * RATES[1] is d/dt Ca_sub in component Ca_dynamics (millimolar).
 * RATES[16] is d/dt Ca_nsr in component Ca_dynamics (millimolar).
 * RATES[15] is d/dt Ca_jsr in component Ca_dynamics (millimolar).
 * RATES[24] is d/dt r_Kur in component i_Kur_rKur_gate (dimensionless).
 * RATES[25] is d/dt s_Kur in component i_Kur_sKur_gate (dimensionless).
 * RATES[26] is d/dt q in component i_to_q_gate (dimensionless).
 * RATES[27] is d/dt r in component i_to_r_gate (dimensionless).
 * RATES[28] is d/dt paS in component i_Kr_pa_gate (dimensionless).
 * RATES[29] is d/dt paF in component i_Kr_pa_gate (dimensionless).
 * RATES[30] is d/dt piy in component i_Kr_pi_gate (dimensionless).
 * RATES[31] is d/dt n in component i_Ks_n_gate (dimensionless).
 * RATES[32] is d/dt a in component i_KACh_a_gate (dimensionless).
 * There are a total of 6 condition variables.
 */
void
initConsts(double* CONSTANTS, double* RATES, double *STATES)
{
CONSTANTS[0] = 8314.472;
CONSTANTS[1] = 310;
CONSTANTS[2] = 96485.3415;
CONSTANTS[3] = 5.7e-5;
CONSTANTS[4] = 0;
STATES[0] = -47.787168;
CONSTANTS[5] = 0.5;
CONSTANTS[6] = 0.5;
CONSTANTS[7] = -35;
CONSTANTS[8] = -45;
CONSTANTS[9] = 0;
CONSTANTS[10] = 0;
CONSTANTS[11] = 140;
CONSTANTS[12] = 140;
CONSTANTS[13] = 5.4;
STATES[1] = 6.226104e-5;
CONSTANTS[14] = 1.8;
STATES[2] = 5;
CONSTANTS[15] = 1;
CONSTANTS[16] = 0.00427;
CONSTANTS[17] = 45;
CONSTANTS[18] = 0.5927;
STATES[3] = 0.009508;
CONSTANTS[19] = 0;
CONSTANTS[20] = 0;
CONSTANTS[21] = 1.4;
CONSTANTS[22] = 14;
CONSTANTS[23] = 0.08105;
CONSTANTS[24] = 3.343;
CONSTANTS[25] = 0.1369;
CONSTANTS[26] = 0.4315;
CONSTANTS[27] = 0;
CONSTANTS[28] = 26.44;
CONSTANTS[29] = 0.0207;
CONSTANTS[30] = 395.3;
CONSTANTS[31] = 2.289;
CONSTANTS[32] = 26.44;
CONSTANTS[33] = 4.663;
CONSTANTS[34] = 1628;
CONSTANTS[35] = 561.4;
CONSTANTS[36] = 3.663;
CONSTANTS[37] = 0;
CONSTANTS[38] = 0.0223;
CONSTANTS[39] = 0;
STATES[4] = 0.447724;
STATES[5] = 0.003058;
CONSTANTS[40] = 1e-5;
CONSTANTS[41] = 0.4578;
STATES[6] = 0.001921;
STATES[7] = 0.846702;
STATES[8] = 0.844449;
CONSTANTS[42] = 4.3371;
CONSTANTS[43] = -16.4508;
CONSTANTS[44] = 0;
CONSTANTS[45] = 0;
CONSTANTS[46] = 0.0075;
CONSTANTS[47] = 0.000338;
CONSTANTS[48] = 0.04132;
STATES[9] = 0.268909;
STATES[10] = 0.020484;
CONSTANTS[49] = 0;
STATES[11] = 0.9308;
STATES[12] = 6.181512e-9;
STATES[13] = 4.595622e-10;
STATES[14] = 0.069199;
CONSTANTS[50] = 148041085.1;
CONSTANTS[51] = 15;
CONSTANTS[52] = 1;
CONSTANTS[53] = 0.45;
CONSTANTS[54] = 2.5;
CONSTANTS[55] = 10000;
CONSTANTS[56] = 500;
CONSTANTS[57] = 5;
CONSTANTS[58] = 660;
STATES[15] = 0.409551;
CONSTANTS[59] = 5.469e-5;
CONSTANTS[60] = 0.04;
CONSTANTS[61] = 5;
CONSTANTS[62] = 0.000286113;
STATES[16] = 0.435148;
STATES[17] = 9.15641e-6;
CONSTANTS[63] = 5e-5;
CONSTANTS[64] = 0.031;
CONSTANTS[65] = 0.062;
CONSTANTS[66] = 0.045;
CONSTANTS[67] = 10;
STATES[18] = 0.653777;
STATES[19] = 0.217311;
STATES[20] = 0.158521;
STATES[21] = 0.017929;
STATES[22] = 0.259947;
STATES[23] = 0.138975;
CONSTANTS[68] = 88800;
CONSTANTS[69] = 2277;
CONSTANTS[70] = 227700;
CONSTANTS[71] = 1.642e6;
CONSTANTS[72] = 175.4;
CONSTANTS[73] = 446;
CONSTANTS[74] = 7.51;
CONSTANTS[75] = 751;
CONSTANTS[76] = 542;
CONSTANTS[77] = 445;
CONSTANTS[78] = 2.5;
CONSTANTS[79] = 0.0012;
CONSTANTS[80] = 0.46;
CONSTANTS[81] = 0.0116;
CONSTANTS[82] = 3.9;
CONSTANTS[83] = 67;
CONSTANTS[84] = 0.02;
CONSTANTS[85] = 0.1539e-3;
STATES[24] = 0.011845;
STATES[25] = 0.845304;
CONSTANTS[86] = 3.5e-3;
STATES[26] = 0.430836;
STATES[27] = 0.014523;
CONSTANTS[87] = 0.00424;
STATES[28] = 0.283185;
STATES[29] = 0.011068;
STATES[30] = 0.709051;
CONSTANTS[88] = 0.00065;
STATES[31] = 0.1162;
CONSTANTS[89] = 0.00345;
STATES[32] = 0.00277;
CONSTANTS[90] = 1;
CONSTANTS[91] = ( CONSTANTS[0]*CONSTANTS[1])/CONSTANTS[2];
CONSTANTS[92] = CONSTANTS[16]/(CONSTANTS[13]/(CONSTANTS[13]+CONSTANTS[17]));
CONSTANTS[93] = (CONSTANTS[10]>0.00000 ? - 0.250000 : CONSTANTS[9]>0.00000 ? ( 0.700000*CONSTANTS[9])/(9.00000e-05+CONSTANTS[9]) : 0.00000);
CONSTANTS[94] = (CONSTANTS[10]>0.00000 ?  1.20000*CONSTANTS[88] : CONSTANTS[88]);
CONSTANTS[95] = (CONSTANTS[9]>0.00000 ? - 1.00000 - ( 9.89800*pow( 1.00000*CONSTANTS[9], 0.618000))/(pow( 1.00000*CONSTANTS[9], 0.618000)+0.00122423) : 0.00000);
CONSTANTS[96] =  CONSTANTS[91]*log(CONSTANTS[13]/CONSTANTS[12]);
CONSTANTS[97] = CONSTANTS[92]/(CONSTANTS[18]+1.00000);
CONSTANTS[98] =  CONSTANTS[61]*(1.00000 - CONSTANTS[93]);
CONSTANTS[99] = (CONSTANTS[10]>0.00000 ? 7.50000 : 0.00000);
CONSTANTS[100] =  CONSTANTS[18]*CONSTANTS[97];
CONSTANTS[101] = ( CONSTANTS[97]*CONSTANTS[13])/(CONSTANTS[13]+CONSTANTS[17]);
CONSTANTS[102] = (CONSTANTS[10]>0.00000 ? 1.20000 : 1.00000);
CONSTANTS[103] = ( CONSTANTS[100]*CONSTANTS[13])/(CONSTANTS[13]+CONSTANTS[17]);
CONSTANTS[104] = CONSTANTS[11]/(CONSTANTS[33]+CONSTANTS[11]);
CONSTANTS[105] = (CONSTANTS[10]>0.00000 ? 1.23000 : 1.00000);
CONSTANTS[106] = ( 0.310000*CONSTANTS[9])/(CONSTANTS[9]+9.00000e-05);
CONSTANTS[107] = (CONSTANTS[10]>0.00000 ? - 8.00000 : 0.00000);
CONSTANTS[108] = (CONSTANTS[10]>0.00000 ? - 27.0000 : 0.00000);
CONSTANTS[109] =  1.00000e-09* 3.14159265358979*pow(CONSTANTS[82], 2.00000)*CONSTANTS[83];
CONSTANTS[110] =  1.00000e-09*2.00000* 3.14159265358979*CONSTANTS[84]*(CONSTANTS[82] - CONSTANTS[84]/2.00000)*CONSTANTS[83];
CONSTANTS[111] =  CONSTANTS[79]*CONSTANTS[109];
CONSTANTS[112] =  CONSTANTS[80]*CONSTANTS[109] - CONSTANTS[110];
CONSTANTS[113] =  CONSTANTS[81]*CONSTANTS[109];
CONSTANTS[114] = (CONSTANTS[10]>0.00000 ? - 14.0000 : 0.00000);
CONSTANTS[115] = (3.59880 - 0.0256410)/(1.00000+1.21550e-06/pow( 1.00000*CONSTANTS[9], 1.69510))+0.0256410;
RATES[0] = 0.1001;
RATES[2] = 0.1001;
RATES[3] = 0.1001;
RATES[4] = 0.1001;
RATES[5] = 0.1001;
RATES[6] = 0.1001;
RATES[7] = 0.1001;
RATES[8] = 0.1001;
RATES[9] = 0.1001;
RATES[10] = 0.1001;
RATES[11] = 0.1001;
RATES[12] = 0.1001;
RATES[13] = 0.1001;
RATES[14] = 0.1001;
RATES[21] = 0.1001;
RATES[22] = 0.1001;
RATES[18] = 0.1001;
RATES[19] = 0.1001;
RATES[20] = 0.1001;
RATES[23] = 0.1001;
RATES[17] = 0.1001;
RATES[1] = 0.1001;
RATES[16] = 0.1001;
RATES[15] = 0.1001;
RATES[24] = 0.1001;
RATES[25] = 0.1001;
RATES[26] = 0.1001;
RATES[27] = 0.1001;
RATES[28] = 0.1001;
RATES[29] = 0.1001;
RATES[30] = 0.1001;
RATES[31] = 0.1001;
RATES[32] = 0.1001;
}
void
computeResiduals(double VOI, double* CONSTANTS, double* RATES, double* OLDRATES, double* STATES,
                 double* OLDSTATES, double* ALGEBRAIC, double* CONDVARS)
{
resid[0] = RATES[0] - - ALGEBRAIC[100]/CONSTANTS[3];
resid[1] = RATES[2] - ( (1.00000 - CONSTANTS[15])*- 1.00000*(ALGEBRAIC[37]+ALGEBRAIC[25]+ALGEBRAIC[49]+ 3.00000*ALGEBRAIC[30]+ 3.00000*ALGEBRAIC[99]))/( 1.00000*(CONSTANTS[112]+CONSTANTS[110])*CONSTANTS[2]);
resid[2] = RATES[3] - (ALGEBRAIC[29] - STATES[3])/ALGEBRAIC[28];
resid[3] = RATES[4] - (ALGEBRAIC[38] - STATES[4])/ALGEBRAIC[42];
resid[4] = RATES[5] - (ALGEBRAIC[43] - STATES[5])/ALGEBRAIC[46];
resid[5] = RATES[6] - (ALGEBRAIC[51] - STATES[6])/ALGEBRAIC[98];
resid[6] = RATES[7] - (ALGEBRAIC[54] - STATES[7])/ALGEBRAIC[55];
resid[7] = RATES[8] - (ALGEBRAIC[5] - STATES[8])/ALGEBRAIC[6];
resid[8] = RATES[9] - (ALGEBRAIC[57] - STATES[9])/ALGEBRAIC[58];
resid[9] = RATES[10] - (ALGEBRAIC[59] - STATES[10])/ALGEBRAIC[60];
resid[10] = RATES[11] - ( CONSTANTS[57]*STATES[14] -  ALGEBRAIC[11]*STATES[1]*STATES[11]) - ( ALGEBRAIC[10]*pow(STATES[1], 2.00000)*STATES[11] -  CONSTANTS[58]*STATES[12]);
resid[11] = RATES[12] - ( ALGEBRAIC[10]*pow(STATES[1], 2.00000)*STATES[11] -  CONSTANTS[58]*STATES[12]) - ( ALGEBRAIC[11]*STATES[1]*STATES[12] -  CONSTANTS[57]*STATES[13]);
resid[12] = RATES[13] - ( ALGEBRAIC[11]*STATES[1]*STATES[12] -  CONSTANTS[57]*STATES[13]) - ( CONSTANTS[58]*STATES[13] -  ALGEBRAIC[10]*pow(STATES[1], 2.00000)*STATES[14]);
resid[13] = RATES[14] - ( CONSTANTS[58]*STATES[13] -  ALGEBRAIC[10]*pow(STATES[1], 2.00000)*STATES[14]) - ( CONSTANTS[57]*STATES[14] -  ALGEBRAIC[11]*STATES[1]*STATES[11]);
resid[14] = RATES[21] - ALGEBRAIC[16];
resid[15] = RATES[22] - ALGEBRAIC[17];
resid[16] = RATES[18] - ALGEBRAIC[18];
resid[17] = RATES[19] - ALGEBRAIC[19];
resid[18] = RATES[20] - ALGEBRAIC[20];
resid[19] = RATES[23] - ALGEBRAIC[21];
resid[20] = RATES[17] - ( 1.00000*( ALGEBRAIC[13]*CONSTANTS[110] -  ALGEBRAIC[14]*CONSTANTS[113]))/CONSTANTS[112] - ( CONSTANTS[66]*ALGEBRAIC[19]+ CONSTANTS[64]*ALGEBRAIC[16]+ CONSTANTS[65]*ALGEBRAIC[17]);
resid[21] = RATES[1] - ( ALGEBRAIC[7]*CONSTANTS[111])/CONSTANTS[110] - (((ALGEBRAIC[47]+ALGEBRAIC[56]) -  2.00000*ALGEBRAIC[99])/( 2.00000*CONSTANTS[2]*CONSTANTS[110])+ALGEBRAIC[13]+ CONSTANTS[66]*ALGEBRAIC[20]);
resid[22] = RATES[16] - ALGEBRAIC[14] - ( ALGEBRAIC[15]*CONSTANTS[111])/CONSTANTS[113];
resid[23] = RATES[15] - ALGEBRAIC[15] - (ALGEBRAIC[7]+ CONSTANTS[67]*ALGEBRAIC[21]);
resid[24] = RATES[24] - (ALGEBRAIC[62] - STATES[24])/ALGEBRAIC[63];
resid[25] = RATES[25] - (ALGEBRAIC[64] - STATES[25])/ALGEBRAIC[65];
resid[26] = RATES[26] - (ALGEBRAIC[67] - STATES[26])/ALGEBRAIC[68];
resid[27] = RATES[27] - (ALGEBRAIC[69] - STATES[27])/ALGEBRAIC[70];
resid[28] = RATES[28] - (ALGEBRAIC[74] - STATES[28])/ALGEBRAIC[75];
resid[29] = RATES[29] - (ALGEBRAIC[74] - STATES[29])/ALGEBRAIC[76];
resid[30] = RATES[30] - (ALGEBRAIC[78] - STATES[30])/ALGEBRAIC[77];
resid[31] = RATES[31] - (ALGEBRAIC[80] - STATES[31])/ALGEBRAIC[93];
resid[32] = RATES[32] - (ALGEBRAIC[85] - STATES[32])/ALGEBRAIC[86];
}
void
computeVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
ALGEBRAIC[1] =  0.500000*CONSTANTS[91]*log(CONSTANTS[14]/STATES[1]);
ALGEBRAIC[8] = STATES[15] - STATES[1];
ALGEBRAIC[12] = STATES[11]+STATES[12]+STATES[13]+STATES[14];
ALGEBRAIC[72] = (1.00000/(1.00000+exp(- (ALGEBRAIC[23]+23.2000)/6.60000)))/(0.846554/( 37.2000*exp(ALGEBRAIC[23]/11.9000)+ 0.960000*exp(- ALGEBRAIC[23]/18.5000)));
ALGEBRAIC[73] =  4.00000*(( 37.2000*exp(ALGEBRAIC[23]/15.9000)+ 0.960000*exp(- ALGEBRAIC[23]/22.5000))/0.846554 - (1.00000/(1.00000+exp(- (ALGEBRAIC[23]+23.2000)/10.6000)))/(0.846554/( 37.2000*exp(ALGEBRAIC[23]/15.9000)+ 0.960000*exp(- ALGEBRAIC[23]/22.5000))));
}
void
computeEssentialVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
ALGEBRAIC[5] = CONSTANTS[47]/(CONSTANTS[47]+STATES[1]);
ALGEBRAIC[6] = ( 0.00100000*ALGEBRAIC[5])/CONSTANTS[46];
ALGEBRAIC[7] =  CONSTANTS[50]*STATES[12]*(STATES[15] - STATES[1]);
ALGEBRAIC[9] = CONSTANTS[51] - (CONSTANTS[51] - CONSTANTS[52])/(1.00000+pow(CONSTANTS[53]/STATES[15], CONSTANTS[54]));
ALGEBRAIC[10] = CONSTANTS[55]/ALGEBRAIC[9];
ALGEBRAIC[11] =  CONSTANTS[56]*ALGEBRAIC[9];
ALGEBRAIC[13] = (STATES[1] - STATES[17])/CONSTANTS[59];
ALGEBRAIC[14] = CONSTANTS[98]/(1.00000+exp((- STATES[17]+CONSTANTS[62])/CONSTANTS[63]));
ALGEBRAIC[15] = (STATES[16] - STATES[15])/CONSTANTS[60];
ALGEBRAIC[16] =  CONSTANTS[68]*STATES[17]*(1.00000 - STATES[21]) -  CONSTANTS[73]*STATES[21];
ALGEBRAIC[17] =  CONSTANTS[70]*STATES[17]*(1.00000 - (STATES[22]+STATES[18])) -  CONSTANTS[74]*STATES[22];
ALGEBRAIC[18] =  CONSTANTS[69]*CONSTANTS[78]*(1.00000 - (STATES[22]+STATES[18])) -  CONSTANTS[75]*STATES[18];
ALGEBRAIC[19] =  CONSTANTS[71]*STATES[17]*(1.00000 - STATES[19]) -  CONSTANTS[76]*STATES[19];
ALGEBRAIC[20] =  CONSTANTS[71]*STATES[1]*(1.00000 - STATES[20]) -  CONSTANTS[76]*STATES[20];
ALGEBRAIC[21] =  CONSTANTS[72]*STATES[15]*(1.00000 - STATES[23]) -  CONSTANTS[77]*STATES[23];
ALGEBRAIC[0] = (CONDVAR[1]>0.00000&&CONDVAR[2]<0.00000 ? CONSTANTS[7] : CONSTANTS[8]);
ALGEBRAIC[23] = (CONDVAR[0]>=0.00000 ? ALGEBRAIC[0] : STATES[0]);
ALGEBRAIC[2] = STATES[2];
ALGEBRAIC[24] =  CONSTANTS[91]*log(CONSTANTS[11]/ALGEBRAIC[2]);
ALGEBRAIC[25] =  STATES[3]*CONSTANTS[103]*(ALGEBRAIC[23] - ALGEBRAIC[24])*(1.00000 - CONSTANTS[19]);
ALGEBRAIC[28] = 1.00000/(( 0.360000*(((ALGEBRAIC[23]+148.800) - CONSTANTS[95]) - CONSTANTS[99]))/(exp( 0.0660000*(((ALGEBRAIC[23]+148.800) - CONSTANTS[95]) - CONSTANTS[99])) - 1.00000)+( 0.100000*(((ALGEBRAIC[23]+87.3000) - CONSTANTS[95]) - CONSTANTS[99]))/(1.00000 - exp( - 0.200000*(((ALGEBRAIC[23]+87.3000) - CONSTANTS[95]) - CONSTANTS[99])))) - 0.0540000;
ALGEBRAIC[29] = (CONDVAR[3]<0.00000 ? 0.0132900+0.999210/(1.00000+exp(((((ALGEBRAIC[23]+97.1340) - CONSTANTS[95]) - CONSTANTS[99]) - CONSTANTS[20])/8.17520)) :  0.000250100*exp(- (((ALGEBRAIC[23] - CONSTANTS[95]) - CONSTANTS[99]) - CONSTANTS[20])/12.8610));
ALGEBRAIC[30] =  CONSTANTS[102]*CONSTANTS[23]*pow(1.00000+pow(CONSTANTS[21]/CONSTANTS[13], 1.20000), - 1.00000)*pow(1.00000+pow(CONSTANTS[22]/ALGEBRAIC[2], 1.30000), - 1.00000)*pow(1.00000+exp(- ((ALGEBRAIC[23] - ALGEBRAIC[24])+110.000)/20.0000), - 1.00000);
ALGEBRAIC[4] =  CONSTANTS[91]*log((CONSTANTS[11]+ 0.120000*CONSTANTS[13])/(ALGEBRAIC[2]+ 0.120000*CONSTANTS[12]));
ALGEBRAIC[35] =  CONSTANTS[38]*pow(STATES[4], 3.00000)*STATES[5]*(ALGEBRAIC[23] - ALGEBRAIC[4]);
ALGEBRAIC[36] =  CONSTANTS[39]*pow(STATES[4], 3.00000)*(ALGEBRAIC[23] - ALGEBRAIC[4]);
ALGEBRAIC[37] = ALGEBRAIC[35]+ALGEBRAIC[36];
ALGEBRAIC[38] = 1.00000/(1.00000+exp(- (ALGEBRAIC[23]+42.0504)/8.31060));
ALGEBRAIC[39] = ALGEBRAIC[23]+41.0000;
ALGEBRAIC[40] = (CONDVAR[4]<0.00000 ? 2000.00 : ( 200.000*ALGEBRAIC[39])/(1.00000 - exp( - 0.100000*ALGEBRAIC[39])));
ALGEBRAIC[41] =  8000.00*exp( - 0.0560000*(ALGEBRAIC[23]+66.0000));
ALGEBRAIC[42] = 1.00000/(ALGEBRAIC[40]+ALGEBRAIC[41]);
ALGEBRAIC[43] = 1.00000/(1.00000+exp((ALGEBRAIC[23]+69.8040)/4.45650));
ALGEBRAIC[44] =  20.0000*exp( - 0.125000*(ALGEBRAIC[23]+75.0000));
ALGEBRAIC[45] = 2000.00/( 320.000*exp( - 0.100000*(ALGEBRAIC[23]+75.0000))+1.00000);
ALGEBRAIC[46] = 1.00000/(ALGEBRAIC[44]+ALGEBRAIC[45]);
ALGEBRAIC[47] =  (( 2.00000*CONSTANTS[41]*(ALGEBRAIC[23] - 0.00000))/( CONSTANTS[91]*(1.00000 - exp(( - 1.00000*(ALGEBRAIC[23] - 0.00000)*2.00000)/CONSTANTS[91]))))*(STATES[1] -  CONSTANTS[14]*exp(( - 2.00000*(ALGEBRAIC[23] - 0.00000))/CONSTANTS[91]))*STATES[6]*STATES[7]*STATES[8];
ALGEBRAIC[49] =  (( 1.85000e-05*CONSTANTS[41]*(ALGEBRAIC[23] - 0.00000))/( CONSTANTS[91]*(1.00000 - exp(( - 1.00000*(ALGEBRAIC[23] - 0.00000))/CONSTANTS[91]))))*(ALGEBRAIC[2] -  CONSTANTS[11]*exp(( - 1.00000*(ALGEBRAIC[23] - 0.00000))/CONSTANTS[91]))*STATES[6]*STATES[7]*STATES[8];
ALGEBRAIC[51] = 1.00000/(1.00000+exp(- ((ALGEBRAIC[23] - CONSTANTS[43]) - CONSTANTS[107])/( CONSTANTS[42]*(1.00000+CONSTANTS[108]/100.000))));
ALGEBRAIC[54] = 1.00000/(1.00000+exp((ALGEBRAIC[23]+37.4000+CONSTANTS[44])/(5.30000+CONSTANTS[45])));
ALGEBRAIC[55] =  0.00100000*(44.3000+ 230.000*exp(- pow((ALGEBRAIC[23]+36.0000)/10.0000, 2.00000)));
ALGEBRAIC[56] =  (( 2.00000*CONSTANTS[48]*ALGEBRAIC[23])/( CONSTANTS[91]*(1.00000 - exp(( - 1.00000*ALGEBRAIC[23]*2.00000)/CONSTANTS[91]))))*(STATES[1] -  CONSTANTS[14]*exp(( - 2.00000*ALGEBRAIC[23])/CONSTANTS[91]))*STATES[9]*STATES[10];
ALGEBRAIC[57] = 1.00000/(1.00000+exp(- (ALGEBRAIC[23]+38.3000)/5.50000));
ALGEBRAIC[58] = 0.00100000/( 1.06800*exp((ALGEBRAIC[23]+38.3000)/30.0000)+ 1.06800*exp(- (ALGEBRAIC[23]+38.3000)/30.0000));
ALGEBRAIC[59] = 1.00000/(1.00000+exp((ALGEBRAIC[23]+58.7000)/3.80000));
ALGEBRAIC[60] = 1.00000/( 16.6700*exp(- (ALGEBRAIC[23]+75.0000)/83.3000)+ 16.6700*exp((ALGEBRAIC[23]+75.0000)/15.3800))+CONSTANTS[49];
ALGEBRAIC[62] = 1.00000/(1.00000+exp((ALGEBRAIC[23]+6.00000)/- 8.60000));
ALGEBRAIC[63] = 0.00900000/(1.00000+exp((ALGEBRAIC[23]+5.00000)/12.0000))+0.000500000;
ALGEBRAIC[64] = 1.00000/(1.00000+exp((ALGEBRAIC[23]+7.50000)/10.0000));
ALGEBRAIC[65] = 0.590000/(1.00000+exp((ALGEBRAIC[23]+60.0000)/10.0000))+3.05000;
ALGEBRAIC[67] = 1.00000/(1.00000+exp((ALGEBRAIC[23]+49.0000)/13.0000));
ALGEBRAIC[68] =  0.00100000*0.600000*(65.1700/( 0.570000*exp( - 0.0800000*(ALGEBRAIC[23]+44.0000))+ 0.0650000*exp( 0.100000*(ALGEBRAIC[23]+45.9300)))+10.1000);
ALGEBRAIC[69] = 1.00000/(1.00000+exp(- (ALGEBRAIC[23] - 19.3000)/15.0000));
ALGEBRAIC[70] =  0.00100000*0.660000*1.40000*(15.5900/( 1.03700*exp( 0.0900000*(ALGEBRAIC[23]+30.6100))+ 0.369000*exp( - 0.120000*(ALGEBRAIC[23]+23.8400)))+2.98000);
ALGEBRAIC[74] = 1.00000/(1.00000+exp(- (ALGEBRAIC[23]+10.0144)/7.66070));
ALGEBRAIC[75] = 0.846554/( 4.20000*exp(ALGEBRAIC[23]/17.0000)+ 0.150000*exp(- ALGEBRAIC[23]/21.6000));
ALGEBRAIC[76] = 1.00000/( 30.0000*exp(ALGEBRAIC[23]/10.0000)+exp(- ALGEBRAIC[23]/12.0000));
ALGEBRAIC[77] = 1.00000/( 100.000*exp(- ALGEBRAIC[23]/54.6450)+ 656.000*exp(ALGEBRAIC[23]/106.157));
ALGEBRAIC[78] = 1.00000/(1.00000+exp((ALGEBRAIC[23]+28.6000)/17.1000));
ALGEBRAIC[80] =  pow((1.00000/(1.00000+exp(- ((ALGEBRAIC[23]+0.638300) - CONSTANTS[114])/10.7071))), 1.0 / 2);
ALGEBRAIC[84] =  10.0000*exp( 0.0133000*(ALGEBRAIC[23]+40.0000));
ALGEBRAIC[85] = CONSTANTS[115]/(CONSTANTS[115]+ALGEBRAIC[84]);
ALGEBRAIC[86] = 1.00000/(CONSTANTS[115]+ALGEBRAIC[84]);
ALGEBRAIC[81] = 28.0000/(1.00000+exp(- ((ALGEBRAIC[23] - 40.0000) - CONSTANTS[114])/3.00000));
ALGEBRAIC[82] =  1.00000*exp(- ((ALGEBRAIC[23] - CONSTANTS[114]) - 5.00000)/25.0000);
ALGEBRAIC[93] = 1.00000/(ALGEBRAIC[81]+ALGEBRAIC[82]);
ALGEBRAIC[52] = (ALGEBRAIC[23]==- 41.8000 ? - 41.8000 : ALGEBRAIC[23]==0.00000 ? 0.00000 : ALGEBRAIC[23]==- 6.80000 ? - 6.80001 : ALGEBRAIC[23]);
ALGEBRAIC[91] = ( - 0.0283900*(ALGEBRAIC[52]+41.8000))/(exp(- (ALGEBRAIC[52]+41.8000)/2.50000) - 1.00000) - ( 0.0849000*(ALGEBRAIC[52]+6.80000))/(exp(- (ALGEBRAIC[52]+6.80000)/4.80000) - 1.00000);
ALGEBRAIC[53] = (ALGEBRAIC[23]==- 1.80000 ? - 1.80001 : ALGEBRAIC[23]);
ALGEBRAIC[92] = ( 0.0114300*(ALGEBRAIC[53]+1.80000))/(exp((ALGEBRAIC[53]+1.80000)/2.50000) - 1.00000);
ALGEBRAIC[98] = 0.00100000/(ALGEBRAIC[91]+ALGEBRAIC[92]);
ALGEBRAIC[31] = exp(( - CONSTANTS[26]*ALGEBRAIC[23])/( 2.00000*CONSTANTS[91]));
ALGEBRAIC[34] = 1.00000+ (CONSTANTS[14]/CONSTANTS[36])*(1.00000+exp(( CONSTANTS[27]*ALGEBRAIC[23])/CONSTANTS[91]))+ (CONSTANTS[11]/CONSTANTS[34])*(1.00000+ (CONSTANTS[11]/CONSTANTS[35])*(1.00000+CONSTANTS[11]/CONSTANTS[33]));
ALGEBRAIC[90] = ( (( (CONSTANTS[11]/CONSTANTS[34])*CONSTANTS[11])/CONSTANTS[35])*(1.00000+CONSTANTS[11]/CONSTANTS[33])*exp(( - CONSTANTS[26]*ALGEBRAIC[23])/( 2.00000*CONSTANTS[91])))/ALGEBRAIC[34];
ALGEBRAIC[89] = ( (CONSTANTS[14]/CONSTANTS[36])*exp(( CONSTANTS[27]*ALGEBRAIC[23])/CONSTANTS[91]))/ALGEBRAIC[34];
ALGEBRAIC[33] = exp(( CONSTANTS[26]*ALGEBRAIC[23])/( 2.00000*CONSTANTS[91]));
ALGEBRAIC[3] = ALGEBRAIC[2]/(CONSTANTS[28]+ALGEBRAIC[2]);
ALGEBRAIC[94] =  ALGEBRAIC[31]*CONSTANTS[104]*(ALGEBRAIC[90]+ALGEBRAIC[89])+ ALGEBRAIC[89]*ALGEBRAIC[33]*(ALGEBRAIC[3]+ALGEBRAIC[31]);
ALGEBRAIC[32] = 1.00000+ (STATES[1]/CONSTANTS[29])*(1.00000+exp(( - CONSTANTS[25]*ALGEBRAIC[23])/CONSTANTS[91])+ALGEBRAIC[2]/CONSTANTS[32])+ (ALGEBRAIC[2]/CONSTANTS[30])*(1.00000+ (ALGEBRAIC[2]/CONSTANTS[31])*(1.00000+ALGEBRAIC[2]/CONSTANTS[28]));
ALGEBRAIC[87] = ( (STATES[1]/CONSTANTS[29])*exp(( - CONSTANTS[25]*ALGEBRAIC[23])/CONSTANTS[91]))/ALGEBRAIC[32];
ALGEBRAIC[88] = ( (( (ALGEBRAIC[2]/CONSTANTS[30])*ALGEBRAIC[2])/CONSTANTS[31])*(1.00000+ALGEBRAIC[2]/CONSTANTS[28])*exp(( CONSTANTS[26]*ALGEBRAIC[23])/( 2.00000*CONSTANTS[91])))/ALGEBRAIC[32];
ALGEBRAIC[95] =  ALGEBRAIC[33]*ALGEBRAIC[3]*(ALGEBRAIC[88]+ALGEBRAIC[87])+ ALGEBRAIC[31]*ALGEBRAIC[87]*(CONSTANTS[104]+ALGEBRAIC[33]);
ALGEBRAIC[96] =  ALGEBRAIC[88]*ALGEBRAIC[3]*(ALGEBRAIC[90]+ALGEBRAIC[89])+ ALGEBRAIC[87]*ALGEBRAIC[90]*(ALGEBRAIC[3]+ALGEBRAIC[31]);
ALGEBRAIC[97] =  ALGEBRAIC[90]*CONSTANTS[104]*(ALGEBRAIC[88]+ALGEBRAIC[87])+ ALGEBRAIC[88]*ALGEBRAIC[89]*(CONSTANTS[104]+ALGEBRAIC[33]);
ALGEBRAIC[99] = ( (1.00000 - CONSTANTS[37])*CONSTANTS[24]*( ALGEBRAIC[95]*ALGEBRAIC[89] -  ALGEBRAIC[94]*ALGEBRAIC[87]))/(ALGEBRAIC[94]+ALGEBRAIC[95]+ALGEBRAIC[96]+ALGEBRAIC[97]);
ALGEBRAIC[26] =  STATES[3]*CONSTANTS[101]*(ALGEBRAIC[23] - CONSTANTS[96])*(1.00000 - CONSTANTS[19]);
ALGEBRAIC[27] = ALGEBRAIC[25]+ALGEBRAIC[26];
ALGEBRAIC[71] =  CONSTANTS[87]*(ALGEBRAIC[23] - CONSTANTS[96])*( 0.900000*STATES[29]+ 0.100000*STATES[28])*STATES[30];
ALGEBRAIC[22] =  CONSTANTS[91]*log((CONSTANTS[13]+ 0.120000*CONSTANTS[11])/(CONSTANTS[12]+ 0.120000*ALGEBRAIC[2]));
ALGEBRAIC[79] =  CONSTANTS[94]*(ALGEBRAIC[23] - ALGEBRAIC[22])*pow(STATES[31], 2.00000);
ALGEBRAIC[66] =  CONSTANTS[86]*(ALGEBRAIC[23] - CONSTANTS[96])*STATES[26]*STATES[27];
ALGEBRAIC[48] =  (( 0.000365000*CONSTANTS[41]*(ALGEBRAIC[23] - 0.00000))/( CONSTANTS[91]*(1.00000 - exp(( - 1.00000*(ALGEBRAIC[23] - 0.00000))/CONSTANTS[91]))))*(CONSTANTS[12] -  CONSTANTS[13]*exp(( - 1.00000*(ALGEBRAIC[23] - 0.00000))/CONSTANTS[91]))*STATES[6]*STATES[7]*STATES[8];
ALGEBRAIC[50] =  (ALGEBRAIC[47]+ALGEBRAIC[48]+ALGEBRAIC[49])*(1.00000 - CONSTANTS[106])*1.00000*CONSTANTS[105];
ALGEBRAIC[83] = (CONDVAR[5]>0.00000 ?  CONSTANTS[90]*CONSTANTS[89]*(ALGEBRAIC[23] - CONSTANTS[96])*(1.00000+exp((ALGEBRAIC[23]+20.0000)/20.0000))*STATES[32] : 0.00000);
ALGEBRAIC[61] =  CONSTANTS[85]*STATES[24]*STATES[25]*(ALGEBRAIC[23] - CONSTANTS[96]);
ALGEBRAIC[100] = ALGEBRAIC[27]+ALGEBRAIC[71]+ALGEBRAIC[79]+ALGEBRAIC[66]+ALGEBRAIC[30]+ALGEBRAIC[99]+ALGEBRAIC[37]+ALGEBRAIC[50]+ALGEBRAIC[56]+ALGEBRAIC[83]+ALGEBRAIC[61];
}
void
getStateInformation(double* SI)
{
SI[0] = 1.0;
SI[1] = 1.0;
SI[2] = 1.0;
SI[3] = 1.0;
SI[4] = 1.0;
SI[5] = 1.0;
SI[6] = 1.0;
SI[7] = 1.0;
SI[8] = 1.0;
SI[9] = 1.0;
SI[10] = 1.0;
SI[11] = 1.0;
SI[12] = 1.0;
SI[13] = 1.0;
SI[14] = 1.0;
SI[15] = 1.0;
SI[16] = 1.0;
SI[17] = 1.0;
SI[18] = 1.0;
SI[19] = 1.0;
SI[20] = 1.0;
SI[21] = 1.0;
SI[22] = 1.0;
SI[23] = 1.0;
SI[24] = 1.0;
SI[25] = 1.0;
SI[26] = 1.0;
SI[27] = 1.0;
SI[28] = 1.0;
SI[29] = 1.0;
SI[30] = 1.0;
SI[31] = 1.0;
SI[32] = 1.0;
}
void
computeRoots(double VOI, double* CONSTANTS, double* RATES, double* OLDRATES, double* STATES,
             double* OLDSTATES, double* ALGEBRAIC, double* CONDVARS)
{
CONDVAR[0] = CONSTANTS[4] - 1.00000;
CONDVAR[1] = VOI - CONSTANTS[5];
CONDVAR[2] = VOI - (CONSTANTS[5]+CONSTANTS[6]);
CONDVAR[3] = ALGEBRAIC[23] - - (((80.0000 - CONSTANTS[95]) - CONSTANTS[99]) - CONSTANTS[20]);
CONDVAR[4] = fabs(ALGEBRAIC[39]) - CONSTANTS[40];
CONDVAR[5] = CONSTANTS[9] - 0.00000;
}