/*
   There are a total of 7 entries in the algebraic variable array.
   There are a total of 2 entries in each of the rate and state variable arrays.
   There are a total of 17 entries in the constant variable array.
 */
/*
 * VOI is time in component environment (minute).
 * CONSTANTS[0] is MDFLW in component angiotensin (L_per_minute).
 * CONSTANTS[15] is ANGSCR in component instantaneous_angiotensin_formation (dimensionless).
 * CONSTANTS[14] is MDFLW3 in component instantaneous_angiotensin_formation (L_per_minute).
 * STATES[0] is ANX1 in component time_delayed_angiotensin_formation (dimensionless).
 * CONSTANTS[1] is ANXM in component parameter_values (dimensionless).
 * CONSTANTS[2] is ANV in component parameter_values (minute).
 * CONSTANTS[16] is ANX in component time_delayed_angiotensin_formation (dimensionless).
 * ALGEBRAIC[2] is ANPR in component total_angiotensin_formation (dimensionless).
 * CONSTANTS[3] is REK in component parameter_values (dimensionless).
 * ALGEBRAIC[0] is ANPRT in component total_angiotensin_formation (dimensionless).
 * ALGEBRAIC[4] is ANPR1 in component artificial_angiotensin_formation (dimensionless).
 * CONSTANTS[4] is ANGKNS in component parameter_values (dimensionless).
 * CONSTANTS[5] is ANGINF in component parameter_values (dimensionless).
 * STATES[1] is ANC in component angiotensin_concentration (dimensionless).
 * CONSTANTS[6] is ANT in component parameter_values (minute).
 * ALGEBRAIC[1] is ANM in component general_angiotensin_multiplier (dimensionless).
 * CONSTANTS[7] is ANMUL in component parameter_values (dimensionless).
 * CONSTANTS[8] is ANMLL in component parameter_values (dimensionless).
 * CONSTANTS[9] is ANCSNS in component parameter_values (dimensionless).
 * ALGEBRAIC[5] is ANU in component angiotensin_effect_on_circulation (dimensionless).
 * CONSTANTS[10] is ANUM in component parameter_values (dimensionless).
 * CONSTANTS[11] is ANULL in component parameter_values (dimensionless).
 * ALGEBRAIC[3] is ANU1 in component angiotensin_effect_on_circulation (dimensionless).
 * ALGEBRAIC[6] is ANUVN in component angiotensin_effect_on_venous_constriction (dimensionless).
 * CONSTANTS[12] is ANUVM in component parameter_values (dimensionless).
 * CONSTANTS[13] is Z12 in component parameter_values (dimensionless).
 * RATES[0] is d/dt ANX1 in component time_delayed_angiotensin_formation (dimensionless).
 * RATES[1] is d/dt ANC in component angiotensin_concentration (dimensionless).
 */
void
initConsts(double* CONSTANTS, double* RATES, double *STATES)
{
CONSTANTS[0] = 1.00051;
STATES[0] = 0.0;
CONSTANTS[1] = 0;
CONSTANTS[2] = 5000;
CONSTANTS[3] = 1;
CONSTANTS[4] = 0;
CONSTANTS[5] = 0;
STATES[1] = 0.859476;
CONSTANTS[6] = 12;
CONSTANTS[7] = 1.8;
CONSTANTS[8] = 0.7;
CONSTANTS[9] = 0.4;
CONSTANTS[10] = 6;
CONSTANTS[11] = 0.8;
CONSTANTS[12] = 0;
CONSTANTS[13] = 5;
CONSTANTS[14] = CONSTANTS[0];
CONSTANTS[15] = (CONSTANTS[14]>1.00000 ? 1.00000/(1.00000+ (CONSTANTS[14] - 1.00000)*72.0000) : 10.0000 - 9.00000/(1.00000+ (1.00000 - CONSTANTS[14])*8.00000));
CONSTANTS[16] =  (CONSTANTS[15] - 1.00000)*CONSTANTS[1];
}
void
computeRates(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
RATES[0] = (CONSTANTS[16] - STATES[0])/CONSTANTS[2];
ALGEBRAIC[0] =  (CONSTANTS[15]+STATES[0])*CONSTANTS[3];
ALGEBRAIC[2] = (ALGEBRAIC[0]<1.00000e-05 ? 1.00000e-05 : ALGEBRAIC[0]);
ALGEBRAIC[4] = (CONSTANTS[4]>0.00000 ? CONSTANTS[4] : ALGEBRAIC[2]+CONSTANTS[5]);
RATES[1] = (ALGEBRAIC[4] - STATES[1])/CONSTANTS[6];
}
void
computeVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
ALGEBRAIC[0] =  (CONSTANTS[15]+STATES[0])*CONSTANTS[3];
ALGEBRAIC[2] = (ALGEBRAIC[0]<1.00000e-05 ? 1.00000e-05 : ALGEBRAIC[0]);
ALGEBRAIC[4] = (CONSTANTS[4]>0.00000 ? CONSTANTS[4] : ALGEBRAIC[2]+CONSTANTS[5]);
ALGEBRAIC[1] = CONSTANTS[7] - (CONSTANTS[7] - 1.00000)/( ((CONSTANTS[8] - 1.00000)/(CONSTANTS[8] - CONSTANTS[7]))*(STATES[1] - 1.00000)*CONSTANTS[9]+1.00000);
ALGEBRAIC[3] =  (ALGEBRAIC[1] - 1.00000)*CONSTANTS[10]+1.00000;
ALGEBRAIC[5] = (ALGEBRAIC[3]<CONSTANTS[11] ? CONSTANTS[11] : ALGEBRAIC[3]);
ALGEBRAIC[6] =  (ALGEBRAIC[5] - 1.00000)*CONSTANTS[12]+1.00000;
}