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 65 entries in the algebraic variable array.
   There are a total of 15 entries in each of the rate and state variable arrays.
   There are a total of 39 entries in the constant variable array.
 */
/*
 * VOI is t in component environment (second).
 * STATES[0] is q_Ca_i in component environment (fmol).
 * STATES[1] is q_Ca_SR in component environment (fmol).
 * STATES[2] is q_H_i in component environment (fmol).
 * STATES[3] is q_Pi in component environment (fmol).
 * STATES[4] is q_MgADP in component environment (fmol).
 * STATES[5] is q_MgATP in component environment (fmol).
 * STATES[6] is q_P1_SERCA in component environment (fmol).
 * STATES[7] is q_P2_SERCA in component environment (fmol).
 * STATES[8] is q_P2a_SERCA in component environment (fmol).
 * STATES[9] is q_P4_SERCA in component environment (fmol).
 * STATES[10] is q_P5_SERCA in component environment (fmol).
 * STATES[11] is q_P10_SERCA in component environment (fmol).
 * STATES[12] is q_P6_SERCA in component environment (fmol).
 * STATES[13] is q_P8_SERCA in component environment (fmol).
 * STATES[14] is q_P9_SERCA in component environment (fmol).
 * CONSTANTS[0] is q_PLBp in component environment (fmol).
 * CONSTANTS[1] is q_PLBp_baseline in component environment (fmol).
 * ALGEBRAIC[50] is v_Ca_i_SERCA in component SERCA (fmol_per_sec).
 * ALGEBRAIC[51] is v_Ca_SR_SERCA in component SERCA (fmol_per_sec).
 * ALGEBRAIC[52] is v_H_SERCA in component SERCA (fmol_per_sec).
 * ALGEBRAIC[53] is v_MgADP_SERCA in component SERCA (fmol_per_sec).
 * ALGEBRAIC[54] is v_MgATP_SERCA in component SERCA (fmol_per_sec).
 * ALGEBRAIC[55] is v_Pi_SERCA in component SERCA (fmol_per_sec).
 * CONSTANTS[2] is kappa_SERCA_R1_2 in component SERCA_parameters (fmol_per_sec).
 * CONSTANTS[3] is kappa_SERCA_R2_4 in component SERCA_parameters (fmol_per_sec).
 * CONSTANTS[4] is kappa_SERCA_R2_2a in component SERCA_parameters (fmol_per_sec).
 * CONSTANTS[5] is kappa_SERCA_R4_5 in component SERCA_parameters (fmol_per_sec).
 * CONSTANTS[6] is kappa_SERCA_R5_6 in component SERCA_parameters (fmol_per_sec).
 * CONSTANTS[7] is kappa_SERCA_R6_8 in component SERCA_parameters (fmol_per_sec).
 * CONSTANTS[8] is kappa_SERCA_R8_9 in component SERCA_parameters (fmol_per_sec).
 * CONSTANTS[9] is kappa_SERCA_R9_10 in component SERCA_parameters (fmol_per_sec).
 * CONSTANTS[10] is kappa_SERCA_R10_1 in component SERCA_parameters (fmol_per_sec).
 * CONSTANTS[11] is K_P1_SERCA in component SERCA_parameters (per_fmol).
 * CONSTANTS[12] is K_P2_SERCA in component SERCA_parameters (per_fmol).
 * CONSTANTS[13] is K_P2a_SERCA in component SERCA_parameters (per_fmol).
 * CONSTANTS[14] is K_P4_SERCA in component SERCA_parameters (per_fmol).
 * CONSTANTS[15] is K_P5_SERCA in component SERCA_parameters (per_fmol).
 * CONSTANTS[16] is K_P6_SERCA in component SERCA_parameters (per_fmol).
 * CONSTANTS[17] is K_P8_SERCA in component SERCA_parameters (per_fmol).
 * CONSTANTS[18] is K_P9_SERCA in component SERCA_parameters (per_fmol).
 * CONSTANTS[19] is K_P10_SERCA in component SERCA_parameters (per_fmol).
 * CONSTANTS[20] is K_H in component SERCA_parameters (per_fmol).
 * CONSTANTS[21] is K_Ca_i in component SERCA_parameters (per_fmol).
 * CONSTANTS[22] is K_Ca_SR in component SERCA_parameters (per_fmol).
 * CONSTANTS[23] is K_MgATP in component SERCA_parameters (per_fmol).
 * CONSTANTS[24] is K_MgADP in component SERCA_parameters (per_fmol).
 * CONSTANTS[25] is K_Pi in component SERCA_parameters (per_fmol).
 * CONSTANTS[26] is K_PLBp in component SERCA_parameters (per_fmol).
 * CONSTANTS[27] is R in component constants (J_per_K_per_mol).
 * CONSTANTS[28] is T in component constants (kelvin).
 * CONSTANTS[29] is F in component constants (C_per_mol).
 * CONSTANTS[30] is n_Ca_i in component SERCA (dimensionless).
 * CONSTANTS[31] is n_Ca_SR in component SERCA (dimensionless).
 * CONSTANTS[32] is n_H in component SERCA (dimensionless).
 * ALGEBRAIC[0] is q_SERCA_Ca_complexes in component SERCA (fmol).
 * ALGEBRAIC[1] is c_Ca_i in component SERCA (mM).
 * ALGEBRAIC[2] is c_Ca_SR in component SERCA (mM).
 * ALGEBRAIC[3] is c_H in component SERCA (mM).
 * ALGEBRAIC[4] is c_MgADP in component SERCA (mM).
 * ALGEBRAIC[5] is c_MgATP in component SERCA (mM).
 * ALGEBRAIC[6] is c_Pi in component SERCA (mM).
 * CONSTANTS[33] is vol_i in component SERCA (pL).
 * CONSTANTS[34] is vol_sr in component SERCA (pL).
 * CONSTANTS[36] is vol_isr in component SERCA (pL).
 * ALGEBRAIC[7] is mu_Ca_i in component SERCA (J_per_mol).
 * ALGEBRAIC[8] is mu_Ca_SR in component SERCA (J_per_mol).
 * ALGEBRAIC[9] is mu_H in component SERCA (J_per_mol).
 * ALGEBRAIC[10] is mu_MgADP in component SERCA (J_per_mol).
 * ALGEBRAIC[11] is mu_MgATP in component SERCA (J_per_mol).
 * ALGEBRAIC[13] is mu_P1 in component SERCA (J_per_mol).
 * ALGEBRAIC[56] is v_P1 in component SERCA (fmol_per_sec).
 * ALGEBRAIC[12] is mu_Pi in component SERCA (J_per_mol).
 * ALGEBRAIC[14] is mu_P2 in component SERCA (J_per_mol).
 * ALGEBRAIC[57] is v_P2 in component SERCA (fmol_per_sec).
 * ALGEBRAIC[15] is mu_P2a in component SERCA (J_per_mol).
 * ALGEBRAIC[58] is v_P2a in component SERCA (fmol_per_sec).
 * ALGEBRAIC[16] is mu_P4 in component SERCA (J_per_mol).
 * ALGEBRAIC[59] is v_P4 in component SERCA (fmol_per_sec).
 * ALGEBRAIC[17] is mu_P5 in component SERCA (J_per_mol).
 * ALGEBRAIC[60] is v_P5 in component SERCA (fmol_per_sec).
 * ALGEBRAIC[19] is mu_P6 in component SERCA (J_per_mol).
 * ALGEBRAIC[62] is v_P6 in component SERCA (fmol_per_sec).
 * ALGEBRAIC[20] is mu_P8 in component SERCA (J_per_mol).
 * ALGEBRAIC[63] is v_P8 in component SERCA (fmol_per_sec).
 * ALGEBRAIC[21] is mu_P9 in component SERCA (J_per_mol).
 * ALGEBRAIC[64] is v_P9 in component SERCA (fmol_per_sec).
 * ALGEBRAIC[18] is mu_P10 in component SERCA (J_per_mol).
 * ALGEBRAIC[61] is v_P10 in component SERCA (fmol_per_sec).
 * CONSTANTS[35] is mu_PLBp_baseline in component SERCA (J_per_mol).
 * CONSTANTS[37] is mu_PLBp in component SERCA (J_per_mol).
 * CONSTANTS[38] is mu_PLBp_eff in component SERCA (J_per_mol).
 * ALGEBRAIC[24] is Af_R1_2 in component SERCA (J_per_mol).
 * ALGEBRAIC[25] is Ar_R1_2 in component SERCA (J_per_mol).
 * ALGEBRAIC[42] is v_SERCA_R1_2 in component SERCA (fmol_per_sec).
 * ALGEBRAIC[26] is Af_R5_6 in component SERCA (J_per_mol).
 * ALGEBRAIC[27] is Ar_R5_6 in component SERCA (J_per_mol).
 * ALGEBRAIC[43] is v_SERCA_R5_6 in component SERCA (fmol_per_sec).
 * ALGEBRAIC[28] is Af_R2_2a in component SERCA (J_per_mol).
 * ALGEBRAIC[29] is Ar_R2_2a in component SERCA (J_per_mol).
 * ALGEBRAIC[44] is v_SERCA_R2_2a in component SERCA (fmol_per_sec).
 * ALGEBRAIC[30] is Af_R2_4 in component SERCA (J_per_mol).
 * ALGEBRAIC[31] is Ar_R2_4 in component SERCA (J_per_mol).
 * ALGEBRAIC[45] is v_SERCA_R2_4 in component SERCA (fmol_per_sec).
 * ALGEBRAIC[32] is Af_R4_5 in component SERCA (J_per_mol).
 * ALGEBRAIC[33] is Ar_R4_5 in component SERCA (J_per_mol).
 * ALGEBRAIC[46] is v_SERCA_R4_5 in component SERCA (fmol_per_sec).
 * ALGEBRAIC[34] is Af_R6_8 in component SERCA (J_per_mol).
 * ALGEBRAIC[35] is Ar_R6_8 in component SERCA (J_per_mol).
 * ALGEBRAIC[47] is v_SERCA_R6_8 in component SERCA (fmol_per_sec).
 * ALGEBRAIC[36] is Af_R8_9 in component SERCA (J_per_mol).
 * ALGEBRAIC[37] is Ar_R8_9 in component SERCA (J_per_mol).
 * ALGEBRAIC[48] is v_SERCA_R8_9 in component SERCA (fmol_per_sec).
 * ALGEBRAIC[38] is Af_R9_10 in component SERCA (J_per_mol).
 * ALGEBRAIC[39] is Ar_R9_10 in component SERCA (J_per_mol).
 * ALGEBRAIC[49] is v_SERCA_R9_10 in component SERCA (fmol_per_sec).
 * ALGEBRAIC[22] is Af_R10_1 in component SERCA (J_per_mol).
 * ALGEBRAIC[23] is Ar_R10_1 in component SERCA (J_per_mol).
 * ALGEBRAIC[40] is v_SERCA_R10_1 in component SERCA (fmol_per_sec).
 * ALGEBRAIC[41] is v_SERCA_R10_1_noPLBp in component SERCA (fmol_per_sec).
 * RATES[0] is d/dt q_Ca_i in component environment (fmol).
 * RATES[1] is d/dt q_Ca_SR in component environment (fmol).
 * RATES[2] is d/dt q_H_i in component environment (fmol).
 * RATES[4] is d/dt q_MgADP in component environment (fmol).
 * RATES[5] is d/dt q_MgATP in component environment (fmol).
 * RATES[3] is d/dt q_Pi in component environment (fmol).
 * RATES[6] is d/dt q_P1_SERCA in component environment (fmol).
 * RATES[7] is d/dt q_P2_SERCA in component environment (fmol).
 * RATES[8] is d/dt q_P2a_SERCA in component environment (fmol).
 * RATES[9] is d/dt q_P4_SERCA in component environment (fmol).
 * RATES[10] is d/dt q_P5_SERCA in component environment (fmol).
 * RATES[11] is d/dt q_P10_SERCA in component environment (fmol).
 * RATES[12] is d/dt q_P6_SERCA in component environment (fmol).
 * RATES[13] is d/dt q_P8_SERCA in component environment (fmol).
 * RATES[14] is d/dt q_P9_SERCA in component environment (fmol).
 * There are a total of 0 condition variables.
 */
void
initConsts(double* CONSTANTS, double* RATES, double *STATES)
{
STATES[0] = 0.0057;
STATES[1] = 2.28;
STATES[2] = 0.004028;
STATES[3] = 570;
STATES[4] = 1.3794;
STATES[5] = 3.8;
STATES[6] = 0.11111;
STATES[7] = 0.11111;
STATES[8] = 0.11111;
STATES[9] = 0.11111;
STATES[10] = 0.11111;
STATES[11] = 0.11111;
STATES[12] = 0.11111;
STATES[13] = 0.11111;
STATES[14] = 0.11111;
CONSTANTS[0] = 4.028E+00;
CONSTANTS[1] = 4.028E+00;
CONSTANTS[2] = 6.91835e-08;
CONSTANTS[3] = 7.55655;
CONSTANTS[4] = 8506.72;
CONSTANTS[5] = 7.55655;
CONSTANTS[6] = 0.241033;
CONSTANTS[7] = 45.2524;
CONSTANTS[8] = 6662.34;
CONSTANTS[9] = 6662.34;
CONSTANTS[10] = 3.65954e-06;
CONSTANTS[11] = 45.8697;
CONSTANTS[12] = 2.31881;
CONSTANTS[13] = 0.242269;
CONSTANTS[14] = 272.733;
CONSTANTS[15] = 0.000838529;
CONSTANTS[16] = 228.515;
CONSTANTS[17] = 0.320649;
CONSTANTS[18] = 0.309339;
CONSTANTS[19] = 0.445746;
CONSTANTS[20] = 237.968;
CONSTANTS[21] = 0.313625;
CONSTANTS[22] = 5.22709;
CONSTANTS[23] = 17.0902;
CONSTANTS[24] = 2.55479e-06;
CONSTANTS[25] = 0.00185871;
CONSTANTS[26] = 93.2902;
CONSTANTS[27] = 8.31;
CONSTANTS[28] = 310;
CONSTANTS[29] = 96485;
CONSTANTS[30] = 2;
CONSTANTS[31] = 2;
CONSTANTS[32] = 2;
CONSTANTS[33] = 34.0;
CONSTANTS[34] =  CONSTANTS[33]*0.0350000;
CONSTANTS[35] =  CONSTANTS[27]*CONSTANTS[28]*log( CONSTANTS[26]*CONSTANTS[0]);
CONSTANTS[36] = CONSTANTS[33]+CONSTANTS[34];
CONSTANTS[37] =  CONSTANTS[27]*CONSTANTS[28]*log( CONSTANTS[26]*CONSTANTS[1]);
CONSTANTS[38] = CONSTANTS[35] - CONSTANTS[37];
RATES[0] = 0.1001;
RATES[1] = 0.1001;
RATES[2] = 0.1001;
RATES[4] = 0.1001;
RATES[5] = 0.1001;
RATES[3] = 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;
}
void
computeResiduals(double VOI, double* CONSTANTS, double* RATES, double* OLDRATES, double* STATES,
                 double* OLDSTATES, double* ALGEBRAIC, double* CONDVARS)
{
resid[0] = RATES[0] - ALGEBRAIC[50];
resid[1] = RATES[1] - ALGEBRAIC[51];
resid[2] = RATES[2] - ALGEBRAIC[52];
resid[3] = RATES[4] - ALGEBRAIC[53];
resid[4] = RATES[5] - ALGEBRAIC[54];
resid[5] = RATES[3] - ALGEBRAIC[55];
resid[6] = RATES[6] - ALGEBRAIC[56];
resid[7] = RATES[7] - ALGEBRAIC[57];
resid[8] = RATES[8] - ALGEBRAIC[58];
resid[9] = RATES[9] - ALGEBRAIC[59];
resid[10] = RATES[10] - ALGEBRAIC[60];
resid[11] = RATES[11] - ALGEBRAIC[61];
resid[12] = RATES[12] - ALGEBRAIC[62];
resid[13] = RATES[13] - ALGEBRAIC[63];
resid[14] = RATES[14] - ALGEBRAIC[64];
}
void
computeVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
ALGEBRAIC[0] =  CONSTANTS[30]*STATES[9]+ CONSTANTS[30]*STATES[10]+ CONSTANTS[31]*STATES[12];
ALGEBRAIC[1] = STATES[0]/CONSTANTS[33];
ALGEBRAIC[2] = STATES[1]/CONSTANTS[34];
ALGEBRAIC[3] = STATES[2]/CONSTANTS[36];
ALGEBRAIC[4] = STATES[4]/CONSTANTS[33];
ALGEBRAIC[5] = STATES[5]/CONSTANTS[33];
ALGEBRAIC[6] = STATES[3]/CONSTANTS[33];
ALGEBRAIC[41] =  CONSTANTS[10]*(exp(ALGEBRAIC[18]/( CONSTANTS[27]*CONSTANTS[28])) - exp((ALGEBRAIC[13]+ALGEBRAIC[12])/( CONSTANTS[27]*CONSTANTS[28])));
}
void
computeEssentialVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
ALGEBRAIC[7] =  CONSTANTS[27]*CONSTANTS[28]*log( CONSTANTS[21]*STATES[0]);
ALGEBRAIC[14] =  CONSTANTS[27]*CONSTANTS[28]*log( CONSTANTS[12]*STATES[7]);
ALGEBRAIC[30] = ALGEBRAIC[14]+ CONSTANTS[30]*ALGEBRAIC[7]+CONSTANTS[38];
ALGEBRAIC[16] =  CONSTANTS[27]*CONSTANTS[28]*log( CONSTANTS[14]*STATES[9]);
ALGEBRAIC[31] = ALGEBRAIC[16]+CONSTANTS[38];
ALGEBRAIC[45] =  CONSTANTS[3]*(exp(ALGEBRAIC[30]/( CONSTANTS[27]*CONSTANTS[28])) - exp(ALGEBRAIC[31]/( CONSTANTS[27]*CONSTANTS[28])));
ALGEBRAIC[50] =  - CONSTANTS[30]*ALGEBRAIC[45];
ALGEBRAIC[19] =  CONSTANTS[27]*CONSTANTS[28]*log( CONSTANTS[16]*STATES[12]);
ALGEBRAIC[34] = ALGEBRAIC[19]+CONSTANTS[38];
ALGEBRAIC[8] =  CONSTANTS[27]*CONSTANTS[28]*log( CONSTANTS[22]*STATES[1]);
ALGEBRAIC[20] =  CONSTANTS[27]*CONSTANTS[28]*log( CONSTANTS[17]*STATES[13]);
ALGEBRAIC[35] = ALGEBRAIC[20]+ CONSTANTS[31]*ALGEBRAIC[8]+CONSTANTS[38];
ALGEBRAIC[47] =  CONSTANTS[7]*(exp(ALGEBRAIC[34]/( CONSTANTS[27]*CONSTANTS[28])) - exp(ALGEBRAIC[35]/( CONSTANTS[27]*CONSTANTS[28])));
ALGEBRAIC[51] =  CONSTANTS[31]*ALGEBRAIC[47];
ALGEBRAIC[9] =  CONSTANTS[27]*CONSTANTS[28]*log( CONSTANTS[20]*STATES[2]);
ALGEBRAIC[28] = ALGEBRAIC[14]+ALGEBRAIC[9]+CONSTANTS[38];
ALGEBRAIC[15] =  CONSTANTS[27]*CONSTANTS[28]*log( CONSTANTS[13]*STATES[8]);
ALGEBRAIC[29] = ALGEBRAIC[15]+CONSTANTS[38];
ALGEBRAIC[44] =  CONSTANTS[4]*(exp(ALGEBRAIC[28]/( CONSTANTS[27]*CONSTANTS[28])) - exp(ALGEBRAIC[29]/( CONSTANTS[27]*CONSTANTS[28])));
ALGEBRAIC[32] = ALGEBRAIC[16]+CONSTANTS[38];
ALGEBRAIC[17] =  CONSTANTS[27]*CONSTANTS[28]*log( CONSTANTS[15]*STATES[10]);
ALGEBRAIC[33] = ALGEBRAIC[17]+ CONSTANTS[32]*ALGEBRAIC[9]+CONSTANTS[38];
ALGEBRAIC[46] =  CONSTANTS[5]*(exp(ALGEBRAIC[32]/( CONSTANTS[27]*CONSTANTS[28])) - exp(ALGEBRAIC[33]/( CONSTANTS[27]*CONSTANTS[28])));
ALGEBRAIC[36] = ALGEBRAIC[20]+ CONSTANTS[32]*ALGEBRAIC[9]+CONSTANTS[38];
ALGEBRAIC[21] =  CONSTANTS[27]*CONSTANTS[28]*log( CONSTANTS[18]*STATES[14]);
ALGEBRAIC[37] = ALGEBRAIC[21]+CONSTANTS[38];
ALGEBRAIC[48] =  CONSTANTS[8]*(exp(ALGEBRAIC[36]/( CONSTANTS[27]*CONSTANTS[28])) - exp(ALGEBRAIC[37]/( CONSTANTS[27]*CONSTANTS[28])));
ALGEBRAIC[38] = ALGEBRAIC[21]+CONSTANTS[38];
ALGEBRAIC[18] =  CONSTANTS[27]*CONSTANTS[28]*log( CONSTANTS[19]*STATES[11]);
ALGEBRAIC[39] = ALGEBRAIC[9]+ALGEBRAIC[18]+CONSTANTS[38];
ALGEBRAIC[49] =  CONSTANTS[9]*(exp(ALGEBRAIC[38]/( CONSTANTS[27]*CONSTANTS[28])) - exp(ALGEBRAIC[39]/( CONSTANTS[27]*CONSTANTS[28])));
ALGEBRAIC[52] = (( CONSTANTS[32]*ALGEBRAIC[46] - ALGEBRAIC[44]) -  CONSTANTS[32]*ALGEBRAIC[48])+ALGEBRAIC[49];
ALGEBRAIC[26] = ALGEBRAIC[17]+CONSTANTS[38];
ALGEBRAIC[10] =  CONSTANTS[27]*CONSTANTS[28]*log( CONSTANTS[24]*STATES[4]);
ALGEBRAIC[27] = ALGEBRAIC[10]+ALGEBRAIC[19]+CONSTANTS[38];
ALGEBRAIC[43] =  CONSTANTS[6]*(exp(ALGEBRAIC[26]/( CONSTANTS[27]*CONSTANTS[28])) - exp(ALGEBRAIC[27]/( CONSTANTS[27]*CONSTANTS[28])));
ALGEBRAIC[53] = ALGEBRAIC[43];
ALGEBRAIC[11] =  CONSTANTS[27]*CONSTANTS[28]*log( CONSTANTS[23]*STATES[5]);
ALGEBRAIC[13] =  CONSTANTS[27]*CONSTANTS[28]*log( CONSTANTS[11]*STATES[6]);
ALGEBRAIC[24] = ALGEBRAIC[13]+ALGEBRAIC[11]+CONSTANTS[38];
ALGEBRAIC[25] = ALGEBRAIC[14]+CONSTANTS[38];
ALGEBRAIC[42] =  CONSTANTS[2]*(exp(ALGEBRAIC[24]/( CONSTANTS[27]*CONSTANTS[28])) - exp(ALGEBRAIC[25]/( CONSTANTS[27]*CONSTANTS[28])));
ALGEBRAIC[54] = - ALGEBRAIC[42];
ALGEBRAIC[22] = ALGEBRAIC[18]+CONSTANTS[38];
ALGEBRAIC[12] =  CONSTANTS[27]*CONSTANTS[28]*log( CONSTANTS[25]*STATES[3]);
ALGEBRAIC[23] = ALGEBRAIC[13]+ALGEBRAIC[12]+CONSTANTS[38];
ALGEBRAIC[40] =  CONSTANTS[10]*(exp(ALGEBRAIC[22]/( CONSTANTS[27]*CONSTANTS[28])) - exp(ALGEBRAIC[23]/( CONSTANTS[27]*CONSTANTS[28])));
ALGEBRAIC[55] = ALGEBRAIC[40];
ALGEBRAIC[56] = ALGEBRAIC[40] - ALGEBRAIC[42];
ALGEBRAIC[57] = ALGEBRAIC[42] - ALGEBRAIC[45];
ALGEBRAIC[58] = ALGEBRAIC[44];
ALGEBRAIC[59] = ALGEBRAIC[45] - ALGEBRAIC[46];
ALGEBRAIC[60] = ALGEBRAIC[46] - ALGEBRAIC[43];
ALGEBRAIC[61] = ALGEBRAIC[49] - ALGEBRAIC[40];
ALGEBRAIC[62] = ALGEBRAIC[43] - ALGEBRAIC[47];
ALGEBRAIC[63] = ALGEBRAIC[47] - ALGEBRAIC[48];
ALGEBRAIC[64] = ALGEBRAIC[48] - ALGEBRAIC[49];
}
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;
}
void
computeRoots(double VOI, double* CONSTANTS, double* RATES, double* OLDRATES, double* STATES,
             double* OLDSTATES, double* ALGEBRAIC, double* CONDVARS)
{
}