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 42 entries in the algebraic variable array.
   There are a total of 31 entries in each of the rate and state variable arrays.
   There are a total of 57 entries in the constant variable array.
 */
/*
 * VOI is time in component environment (second).
 * STATES[0] is Casp8 in component Casp8 (micromolar).
 * STATES[1] is Casp8Bid in component Casp8 (micromolar).
 * STATES[2] is Bid in component Bid (micromolar).
 * ALGEBRAIC[2] is J_0 in component Casp8 (flux).
 * ALGEBRAIC[0] is J_f0 in component Casp8 (flux).
 * ALGEBRAIC[1] is J_Casp8 in component Casp8 (flux).
 * CONSTANTS[0] is k_f0 in component model_constant (first_order_rate_constant).
 * CONSTANTS[1] is k_10 in component model_constant (second_order_rate_constant).
 * CONSTANTS[2] is k_00 in component model_constant (first_order_rate_constant).
 * CONSTANTS[3] is u in component model_constant (first_order_rate_constant).
 * STATES[3] is Apaf_1 in component Apaf_1 (micromolar).
 * STATES[4] is CytcApaf_1 in component CytcApaf_1 (micromolar).
 * STATES[5] is Cytc in component Cytc (micromolar).
 * ALGEBRAIC[3] is J_Apaf_1 in component Apaf_1 (flux).
 * ALGEBRAIC[4] is J_1 in component Apaf_1 (flux).
 * CONSTANTS[4] is P_Apaf_1 in component model_constant (flux).
 * CONSTANTS[5] is k_11 in component model_constant (second_order_rate_constant).
 * CONSTANTS[6] is k_01 in component model_constant (first_order_rate_constant).
 * STATES[6] is Apop in component Apop (micromolar).
 * ALGEBRAIC[5] is J_1b in component CytcApaf_1 (flux).
 * CONSTANTS[7] is k_11b in component model_constant (rate).
 * CONSTANTS[8] is k_01b in component model_constant (first_order_rate_constant).
 * CONSTANTS[9] is p in component model_constant (dimensionless).
 * ALGEBRAIC[8] is J_14 in component Cytc_mito (flux).
 * ALGEBRAIC[6] is J_Cytc in component Cytc (flux).
 * STATES[7] is Cytc_mito in component Cytc_mito (micromolar).
 * STATES[8] is Bax_2 in component Bax_2 (micromolar).
 * ALGEBRAIC[7] is J_Cytc_mito in component Cytc_mito (flux).
 * CONSTANTS[10] is P_Cytc_mito in component model_constant (flux).
 * CONSTANTS[11] is k14 in component model_constant (second_order_rate_constant).
 * ALGEBRAIC[15] is J_12b in component tBidBax (flux).
 * ALGEBRAIC[9] is J_Bax_2 in component Bax_2 (flux).
 * STATES[9] is tBid_mito in component tBid_mito (micromolar).
 * STATES[10] is Bax in component Bax (micromolar).
 * ALGEBRAIC[12] is J_11 in component tBid (flux).
 * ALGEBRAIC[11] is J_12a in component tBid_mito (flux).
 * ALGEBRAIC[10] is J_tBid_mito in component tBid_mito (flux).
 * CONSTANTS[12] is k12a in component model_constant (second_order_rate_constant).
 * STATES[11] is tBid in component tBid (micromolar).
 * ALGEBRAIC[22] is J_f8 in component Casp3Bid (flux).
 * ALGEBRAIC[13] is J_tBid in component tBid (flux).
 * CONSTANTS[13] is k11 in component model_constant (first_order_rate_constant).
 * STATES[12] is tBidBax in component tBidBax (micromolar).
 * ALGEBRAIC[14] is J_tBidBax in component tBidBax (flux).
 * CONSTANTS[14] is k12b in component model_constant (second_order_rate_constant).
 * STATES[13] is Bcl_2 in component Bcl_2 (micromolar).
 * ALGEBRAIC[17] is J_13 in component Bax (flux).
 * ALGEBRAIC[16] is J_Bax in component Bax (flux).
 * CONSTANTS[55] is P_Bax in component Bax (flux).
 * CONSTANTS[15] is k13 in component model_constant (second_order_rate_constant).
 * CONSTANTS[16] is P_oBax in component model_constant (flux).
 * CONSTANTS[17] is p53 in component model_constant (micromolar).
 * CONSTANTS[18] is p53_thresh in component model_constant (micromolar).
 * CONSTANTS[19] is u_Bax in component model_constant (first_order_rate_constant).
 * STATES[14] is Casp3 in component Casp3 (micromolar).
 * STATES[15] is Casp3Bcl_2 in component Casp3Bcl_2 (micromolar).
 * ALGEBRAIC[18] is J_9 in component Bcl_2 (flux).
 * ALGEBRAIC[19] is J_Bcl_2 in component Bcl_2 (flux).
 * CONSTANTS[20] is k_19 in component model_constant (second_order_rate_constant).
 * CONSTANTS[21] is k_09 in component model_constant (first_order_rate_constant).
 * CONSTANTS[56] is P_Bcl_2 in component Bcl_2 (flux).
 * CONSTANTS[22] is P_oBcl_2 in component model_constant (flux).
 * CONSTANTS[23] is u_Bcl_2 in component model_constant (first_order_rate_constant).
 * ALGEBRAIC[20] is J_f9 in component Casp3Bcl_2 (flux).
 * CONSTANTS[24] is k_f9 in component model_constant (first_order_rate_constant).
 * STATES[16] is Casp3Bid in component Casp3Bid (micromolar).
 * ALGEBRAIC[21] is J_8 in component Casp3Bid (flux).
 * CONSTANTS[25] is k_18 in component model_constant (second_order_rate_constant).
 * CONSTANTS[26] is k_08 in component model_constant (first_order_rate_constant).
 * CONSTANTS[27] is k_f8 in component model_constant (first_order_rate_constant).
 * ALGEBRAIC[23] is J_Bid in component Bid (flux).
 * CONSTANTS[28] is P_Bid in component model_constant (flux).
 * STATES[17] is IAP in component IAP (micromolar).
 * STATES[18] is Casp3IAP in component Casp3 (micromolar).
 * ALGEBRAIC[32] is J_f6 in component Casp9Pro3 (flux).
 * ALGEBRAIC[31] is J_f6b in component ApopCasp9_2Pro3 (flux).
 * ALGEBRAIC[25] is J_7 in component Casp3 (flux).
 * ALGEBRAIC[24] is J_Casp3 in component Casp3 (flux).
 * CONSTANTS[29] is k_17 in component model_constant (second_order_rate_constant).
 * CONSTANTS[30] is k_07 in component model_constant (first_order_rate_constant).
 * ALGEBRAIC[27] is J_2 in component Pro9 (flux).
 * ALGEBRAIC[40] is J_4b in component ApopCasp9 (flux).
 * STATES[19] is Pro9 in component Pro9 (micromolar).
 * STATES[20] is ApopPro9 in component Pro9 (micromolar).
 * STATES[21] is ApopPro9_2 in component ApopPro9_2 (micromolar).
 * ALGEBRAIC[28] is J_3 in component Pro9 (flux).
 * ALGEBRAIC[26] is J_Pro9 in component Pro9 (flux).
 * CONSTANTS[31] is k_12 in component model_constant (second_order_rate_constant).
 * CONSTANTS[32] is k_02 in component model_constant (first_order_rate_constant).
 * CONSTANTS[33] is k_13 in component model_constant (second_order_rate_constant).
 * CONSTANTS[34] is k_03 in component model_constant (first_order_rate_constant).
 * CONSTANTS[35] is P_Pro9 in component model_constant (flux).
 * ALGEBRAIC[29] is J_f3 in component ApopPro9_2 (flux).
 * CONSTANTS[36] is k_f3 in component model_constant (first_order_rate_constant).
 * STATES[22] is ApopCasp9_2Pro3 in component ApopCasp9_2Pro3 (micromolar).
 * STATES[23] is ApopCasp9_2 in component ApopCasp9_2 (micromolar).
 * STATES[24] is Pro3 in component Pro3 (micromolar).
 * ALGEBRAIC[30] is J_6b in component ApopCasp9_2Pro3 (flux).
 * CONSTANTS[37] is k_16b in component model_constant (second_order_rate_constant).
 * CONSTANTS[38] is k_06b in component model_constant (first_order_rate_constant).
 * CONSTANTS[39] is k_f6b in component model_constant (first_order_rate_constant).
 * STATES[25] is Casp9Pro3 in component Casp9Pro3 (micromolar).
 * ALGEBRAIC[33] is J_6 in component Pro3 (flux).
 * CONSTANTS[40] is k_f6 in component model_constant (first_order_rate_constant).
 * STATES[26] is Casp9 in component Casp9 (micromolar).
 * ALGEBRAIC[34] is J_Pro3 in component Pro3 (flux).
 * CONSTANTS[41] is k_16 in component model_constant (second_order_rate_constant).
 * CONSTANTS[42] is k_06 in component model_constant (first_order_rate_constant).
 * CONSTANTS[43] is P_Pro3 in component model_constant (flux).
 * STATES[27] is Casp9IAP in component IAP (micromolar).
 * STATES[28] is ApopCasp9IAP in component IAP (micromolar).
 * STATES[29] is ApopCasp9_2IAP in component IAP (micromolar).
 * STATES[30] is ApopCasp9 in component ApopCasp9 (micromolar).
 * ALGEBRAIC[35] is J_5 in component IAP (flux).
 * ALGEBRAIC[36] is J_5b in component IAP (flux).
 * ALGEBRAIC[37] is J_5c in component IAP (flux).
 * ALGEBRAIC[38] is J_IAP in component IAP (flux).
 * CONSTANTS[44] is P_IAP in component model_constant (flux).
 * CONSTANTS[45] is k_15 in component model_constant (second_order_rate_constant).
 * CONSTANTS[46] is k_05 in component model_constant (first_order_rate_constant).
 * CONSTANTS[47] is k_15b in component model_constant (second_order_rate_constant).
 * CONSTANTS[48] is k_05b in component model_constant (first_order_rate_constant).
 * CONSTANTS[49] is k_15c in component model_constant (second_order_rate_constant).
 * CONSTANTS[50] is k_05c in component model_constant (first_order_rate_constant).
 * ALGEBRAIC[39] is J_4 in component ApopCasp9 (flux).
 * CONSTANTS[51] is k_14 in component model_constant (first_order_rate_constant).
 * CONSTANTS[52] is k_04 in component model_constant (second_order_rate_constant).
 * CONSTANTS[53] is k_14b in component model_constant (first_order_rate_constant).
 * CONSTANTS[54] is k_04b in component model_constant (second_order_rate_constant).
 * ALGEBRAIC[41] is J_Casp9 in component Casp9 (flux).
 * RATES[0] is d/dt Casp8 in component Casp8 (micromolar).
 * RATES[1] is d/dt Casp8Bid in component Casp8 (micromolar).
 * RATES[3] is d/dt Apaf_1 in component Apaf_1 (micromolar).
 * RATES[4] is d/dt CytcApaf_1 in component CytcApaf_1 (micromolar).
 * RATES[5] is d/dt Cytc in component Cytc (micromolar).
 * RATES[7] is d/dt Cytc_mito in component Cytc_mito (micromolar).
 * RATES[8] is d/dt Bax_2 in component Bax_2 (micromolar).
 * RATES[9] is d/dt tBid_mito in component tBid_mito (micromolar).
 * RATES[11] is d/dt tBid in component tBid (micromolar).
 * RATES[12] is d/dt tBidBax in component tBidBax (micromolar).
 * RATES[10] is d/dt Bax in component Bax (micromolar).
 * RATES[13] is d/dt Bcl_2 in component Bcl_2 (micromolar).
 * RATES[15] is d/dt Casp3Bcl_2 in component Casp3Bcl_2 (micromolar).
 * RATES[16] is d/dt Casp3Bid in component Casp3Bid (micromolar).
 * RATES[2] is d/dt Bid in component Bid (micromolar).
 * RATES[18] is d/dt Casp3IAP in component Casp3 (micromolar).
 * RATES[14] is d/dt Casp3 in component Casp3 (micromolar).
 * RATES[6] is d/dt Apop in component Apop (micromolar).
 * RATES[19] is d/dt Pro9 in component Pro9 (micromolar).
 * RATES[20] is d/dt ApopPro9 in component Pro9 (micromolar).
 * RATES[21] is d/dt ApopPro9_2 in component ApopPro9_2 (micromolar).
 * RATES[22] is d/dt ApopCasp9_2Pro3 in component ApopCasp9_2Pro3 (micromolar).
 * RATES[25] is d/dt Casp9Pro3 in component Casp9Pro3 (micromolar).
 * RATES[24] is d/dt Pro3 in component Pro3 (micromolar).
 * RATES[27] is d/dt Casp9IAP in component IAP (micromolar).
 * RATES[28] is d/dt ApopCasp9IAP in component IAP (micromolar).
 * RATES[29] is d/dt ApopCasp9_2IAP in component IAP (micromolar).
 * RATES[17] is d/dt IAP in component IAP (micromolar).
 * RATES[30] is d/dt ApopCasp9 in component ApopCasp9 (micromolar).
 * RATES[26] is d/dt Casp9 in component Casp9 (micromolar).
 * RATES[23] is d/dt ApopCasp9_2 in component ApopCasp9_2 (micromolar).
 * There are a total of 0 condition variables.
 */
void
initConsts(double* CONSTANTS, double* RATES, double *STATES)
{
STATES[0] = 0;
STATES[1] = 0;
STATES[2] = 0.004;
CONSTANTS[0] = 0.1;
CONSTANTS[1] = 10;
CONSTANTS[2] = 0.5;
CONSTANTS[3] = 0.006;
STATES[3] = 0.004;
STATES[4] = 0;
STATES[5] = 0;
CONSTANTS[4] = 0.0003;
CONSTANTS[5] = 5;
CONSTANTS[6] = 0.5;
STATES[6] = 0;
CONSTANTS[7] = 50000;
CONSTANTS[8] = 0.5;
CONSTANTS[9] = 4;
STATES[7] = 0.004;
STATES[8] = 0;
CONSTANTS[10] = 0.0003;
CONSTANTS[11] = 10;
STATES[9] = 0;
STATES[10] = 0.004;
CONSTANTS[12] = 10;
STATES[11] = 0;
CONSTANTS[13] = 10;
STATES[12] = 0;
CONSTANTS[14] = 10;
STATES[13] = 0.004;
CONSTANTS[15] = 10;
CONSTANTS[16] = 0.00003;
CONSTANTS[17] = 0.0066;
CONSTANTS[18] = 0.004;
CONSTANTS[19] = 0.006;
STATES[14] = 0;
STATES[15] = 0;
CONSTANTS[20] = 10;
CONSTANTS[21] = 0.5;
CONSTANTS[22] = 0.00008;
CONSTANTS[23] = 0.006;
CONSTANTS[24] = 0.1;
STATES[16] = 0;
CONSTANTS[25] = 10;
CONSTANTS[26] = 0.5;
CONSTANTS[27] = 0.1;
CONSTANTS[28] = 0.00003;
STATES[17] = 0.004;
STATES[18] = 0;
CONSTANTS[29] = 5;
CONSTANTS[30] = 0.0035;
STATES[19] = 0.004;
STATES[20] = 0;
STATES[21] = 0;
CONSTANTS[31] = 10;
CONSTANTS[32] = 0.5;
CONSTANTS[33] = 10;
CONSTANTS[34] = 0.5;
CONSTANTS[35] = 0.0003;
CONSTANTS[36] = 0.1;
STATES[22] = 0;
STATES[23] = 0;
STATES[24] = 0.004;
CONSTANTS[37] = 10;
CONSTANTS[38] = 0.5;
CONSTANTS[39] = 0.1;
STATES[25] = 0;
CONSTANTS[40] = 0.001;
STATES[26] = 0;
CONSTANTS[41] = 10;
CONSTANTS[42] = 0.5;
CONSTANTS[43] = 0.0003;
STATES[27] = 0;
STATES[28] = 0;
STATES[29] = 0;
STATES[30] = 0;
CONSTANTS[44] = 0.00003;
CONSTANTS[45] = 5;
CONSTANTS[46] = 0.0035;
CONSTANTS[47] = 5;
CONSTANTS[48] = 0.0035;
CONSTANTS[49] = 5;
CONSTANTS[50] = 0.0035;
CONSTANTS[51] = 5;
CONSTANTS[52] = 0.5;
CONSTANTS[53] = 5;
CONSTANTS[54] = 0.5;
CONSTANTS[55] =  CONSTANTS[16]*(1.00000+pow(CONSTANTS[17], 4.00000)/(pow(CONSTANTS[17], 4.00000)+pow(CONSTANTS[18], 4.00000)));
CONSTANTS[56] = ( CONSTANTS[22]*pow(CONSTANTS[18], 4.00000))/(pow(CONSTANTS[17], 4.00000)+pow(CONSTANTS[18], 4.00000));
RATES[0] = 0.1001;
RATES[1] = 0.1001;
RATES[3] = 0.1001;
RATES[4] = 0.1001;
RATES[5] = 0.1001;
RATES[7] = 0.1001;
RATES[8] = 0.1001;
RATES[9] = 0.1001;
RATES[11] = 0.1001;
RATES[12] = 0.1001;
RATES[10] = 0.1001;
RATES[13] = 0.1001;
RATES[15] = 0.1001;
RATES[16] = 0.1001;
RATES[2] = 0.1001;
RATES[18] = 0.1001;
RATES[14] = 0.1001;
RATES[6] = 0.1001;
RATES[19] = 0.1001;
RATES[20] = 0.1001;
RATES[21] = 0.1001;
RATES[22] = 0.1001;
RATES[25] = 0.1001;
RATES[24] = 0.1001;
RATES[27] = 0.1001;
RATES[28] = 0.1001;
RATES[29] = 0.1001;
RATES[17] = 0.1001;
RATES[30] = 0.1001;
RATES[26] = 0.1001;
RATES[23] = 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[2]+ALGEBRAIC[0]+ALGEBRAIC[1];
resid[1] = RATES[1] - ALGEBRAIC[2] - ALGEBRAIC[0];
resid[2] = RATES[3] - - ALGEBRAIC[4]+ALGEBRAIC[3];
resid[3] = RATES[4] - ALGEBRAIC[4] -  7.00000*ALGEBRAIC[5];
resid[4] = RATES[5] - (ALGEBRAIC[8] - ALGEBRAIC[4])+ALGEBRAIC[6];
resid[5] = RATES[7] - - ALGEBRAIC[8]+ALGEBRAIC[7];
resid[6] = RATES[8] - ALGEBRAIC[15]+ALGEBRAIC[9];
resid[7] = RATES[9] - (ALGEBRAIC[12] - ALGEBRAIC[11])+ALGEBRAIC[10];
resid[8] = RATES[11] - ((ALGEBRAIC[0]+ALGEBRAIC[22]) - ALGEBRAIC[12])+ALGEBRAIC[15]+ALGEBRAIC[13];
resid[9] = RATES[12] - (ALGEBRAIC[11] - ALGEBRAIC[15])+ALGEBRAIC[14];
resid[10] = RATES[10] - ((- ALGEBRAIC[11] - ALGEBRAIC[15]) - ALGEBRAIC[17])+ALGEBRAIC[16];
resid[11] = RATES[13] - (- ALGEBRAIC[18] - ALGEBRAIC[17])+ALGEBRAIC[19];
resid[12] = RATES[15] - ALGEBRAIC[18] - ALGEBRAIC[20];
resid[13] = RATES[16] - ALGEBRAIC[21] - ALGEBRAIC[22];
resid[14] = RATES[2] - (- ALGEBRAIC[2] - ALGEBRAIC[21])+ALGEBRAIC[23];
resid[15] = RATES[18] - ALGEBRAIC[25];
resid[16] = RATES[14] - (((((ALGEBRAIC[32]+ALGEBRAIC[31]) - ALGEBRAIC[25]) - ALGEBRAIC[21])+ALGEBRAIC[22]) - ALGEBRAIC[18])+ALGEBRAIC[20]+ALGEBRAIC[24];
resid[17] = RATES[6] - (ALGEBRAIC[5] - ALGEBRAIC[27])+ALGEBRAIC[40];
resid[18] = RATES[19] - (- ALGEBRAIC[27] - ALGEBRAIC[28])+ALGEBRAIC[26];
resid[19] = RATES[20] - ALGEBRAIC[27] - ALGEBRAIC[28];
resid[20] = RATES[21] - ALGEBRAIC[28] - ALGEBRAIC[29];
resid[21] = RATES[22] - ALGEBRAIC[30] - ALGEBRAIC[31];
resid[22] = RATES[25] - ALGEBRAIC[33] - ALGEBRAIC[32];
resid[23] = RATES[24] - (- ALGEBRAIC[33] - ALGEBRAIC[30])+ALGEBRAIC[34];
resid[24] = RATES[27] - ALGEBRAIC[35];
resid[25] = RATES[28] - ALGEBRAIC[36];
resid[26] = RATES[29] - ALGEBRAIC[37];
resid[27] = RATES[17] - (((- ALGEBRAIC[35] - ALGEBRAIC[36]) - ALGEBRAIC[37]) - ALGEBRAIC[25])+ALGEBRAIC[38];
resid[28] = RATES[30] - (ALGEBRAIC[39] - ALGEBRAIC[40]) - ALGEBRAIC[36];
resid[29] = RATES[26] - (((ALGEBRAIC[39]+ALGEBRAIC[40]) - ALGEBRAIC[35]) - ALGEBRAIC[33])+ALGEBRAIC[32]+ALGEBRAIC[41];
resid[30] = RATES[23] - (((ALGEBRAIC[29] - ALGEBRAIC[39]) - ALGEBRAIC[37]) - ALGEBRAIC[30])+ALGEBRAIC[31];
}
void
computeVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
}
void
computeEssentialVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
ALGEBRAIC[0] =  CONSTANTS[0]*STATES[1];
ALGEBRAIC[1] =  - CONSTANTS[3]*STATES[0];
ALGEBRAIC[2] =  CONSTANTS[1]*STATES[0]*STATES[2] -  CONSTANTS[2]*STATES[1];
ALGEBRAIC[3] = CONSTANTS[4] -  CONSTANTS[3]*STATES[3];
ALGEBRAIC[4] =  CONSTANTS[5]*STATES[5]*STATES[3] -  CONSTANTS[6]*STATES[4];
ALGEBRAIC[5] =  CONSTANTS[7]*pow(STATES[4], CONSTANTS[9]) -  CONSTANTS[8]*STATES[6];
ALGEBRAIC[6] =  - CONSTANTS[3]*STATES[5];
ALGEBRAIC[7] = CONSTANTS[10] -  CONSTANTS[3]*STATES[7];
ALGEBRAIC[8] =  CONSTANTS[11]*STATES[8]*STATES[7];
ALGEBRAIC[9] =  - CONSTANTS[3]*STATES[8];
ALGEBRAIC[10] =  - CONSTANTS[3]*STATES[9];
ALGEBRAIC[11] =  CONSTANTS[12]*STATES[9]*STATES[10];
ALGEBRAIC[12] =  CONSTANTS[13]*STATES[11];
ALGEBRAIC[13] =  - CONSTANTS[3]*STATES[11];
ALGEBRAIC[14] =  - CONSTANTS[3]*STATES[12];
ALGEBRAIC[15] =  CONSTANTS[14]*STATES[12]*STATES[10];
ALGEBRAIC[16] = CONSTANTS[55] -  CONSTANTS[19]*STATES[10];
ALGEBRAIC[17] =  CONSTANTS[15]*STATES[13]*STATES[10];
ALGEBRAIC[18] =  CONSTANTS[20]*STATES[14]*STATES[13] -  CONSTANTS[21]*STATES[15];
ALGEBRAIC[19] = CONSTANTS[56] -  CONSTANTS[23]*STATES[13];
ALGEBRAIC[20] =  CONSTANTS[24]*STATES[15];
ALGEBRAIC[21] =  CONSTANTS[25]*STATES[14]*STATES[2] -  CONSTANTS[26]*STATES[16];
ALGEBRAIC[22] =  CONSTANTS[27]*STATES[16];
ALGEBRAIC[23] = CONSTANTS[28] -  CONSTANTS[3]*STATES[2];
ALGEBRAIC[24] =  - CONSTANTS[3]*STATES[14];
ALGEBRAIC[25] =  CONSTANTS[29]*STATES[14]*STATES[17] -  CONSTANTS[30]*STATES[18];
ALGEBRAIC[26] = CONSTANTS[35] -  CONSTANTS[3]*STATES[19];
ALGEBRAIC[27] =  CONSTANTS[31]*STATES[6]*STATES[19] -  CONSTANTS[32]*STATES[20];
ALGEBRAIC[28] =  CONSTANTS[33]*STATES[20]*STATES[19] -  CONSTANTS[34]*STATES[21];
ALGEBRAIC[29] =  CONSTANTS[36]*STATES[21];
ALGEBRAIC[30] =  CONSTANTS[37]*STATES[23]*STATES[24] -  CONSTANTS[38]*STATES[22];
ALGEBRAIC[31] =  CONSTANTS[39]*STATES[22];
ALGEBRAIC[32] =  CONSTANTS[40]*STATES[25];
ALGEBRAIC[33] =  CONSTANTS[41]*STATES[26]*STATES[24] -  CONSTANTS[42]*STATES[25];
ALGEBRAIC[34] = CONSTANTS[43] -  CONSTANTS[3]*STATES[24];
ALGEBRAIC[35] =  CONSTANTS[45]*STATES[26]*STATES[17] -  CONSTANTS[46]*STATES[27];
ALGEBRAIC[36] =  CONSTANTS[47]*STATES[30]*STATES[17] -  CONSTANTS[48]*STATES[28];
ALGEBRAIC[37] =  CONSTANTS[49]*STATES[23]*STATES[17] -  CONSTANTS[50]*STATES[29];
ALGEBRAIC[38] = CONSTANTS[44] -  CONSTANTS[3]*STATES[17];
ALGEBRAIC[39] =  CONSTANTS[51]*STATES[23] -  CONSTANTS[52]*STATES[30]*STATES[26];
ALGEBRAIC[40] =  CONSTANTS[53]*STATES[30] -  CONSTANTS[54]*STATES[6]*STATES[26];
ALGEBRAIC[41] =  - CONSTANTS[3]*STATES[26];
}
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;
}
void
computeRoots(double VOI, double* CONSTANTS, double* RATES, double* OLDRATES, double* STATES,
             double* OLDSTATES, double* ALGEBRAIC, double* CONDVARS)
{
}