/*
   There are a total of 4 entries in the algebraic variable array.
   There are a total of 1 entries in each of the rate and state variable arrays.
   There are a total of 5 entries in the constant variable array.
 */
/*
 * VOI is time in component environment (second).
 * CONSTANTS[0] is a in component contraction (mNpermmsq).
 * CONSTANTS[1] is b in component contraction (pms).
 * CONSTANTS[2] is Po in component contraction (mNpermmsq).
 * CONSTANTS[3] is alpha in component contraction (mNpermmsq).
 * CONSTANTS[4] is L_se_o in component contraction (dimensionless).
 * ALGEBRAIC[0] is L in component contraction (dimensionless).
 * ALGEBRAIC[3] is v in component contraction (pms).
 * ALGEBRAIC[1] is L_se in component contraction (dimensionless).
 * STATES[0] is L_ce in component contraction (dimensionless).
 * ALGEBRAIC[2] is P in component contraction (mNpermmsq).
 * RATES[0] is d/dt L_ce in component contraction (dimensionless).
 * There are a total of 3 condition variables.
 */
void
initConsts(double* CONSTANTS, double* RATES, double *STATES)
{
CONSTANTS[0] = 37.24;
CONSTANTS[1] = 0.325;
CONSTANTS[2] = 144.9;
CONSTANTS[3] = 1449.027;
CONSTANTS[4] = 0.3;
STATES[0] = 0.7;
RATES[0] = 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[3];
}
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] = (CONDVAR[0]<=0.00000 ? 1.00000 : CONDVAR[1]>0.00000&&CONDVAR[2]<0.00000 ? 0.920000 : 0.900000);
ALGEBRAIC[1] = ALGEBRAIC[0] - STATES[0];
ALGEBRAIC[2] =  CONSTANTS[3]*(ALGEBRAIC[1] - CONSTANTS[4]);
ALGEBRAIC[3] = ( - CONSTANTS[1]*(CONSTANTS[2] - ALGEBRAIC[2]))/(ALGEBRAIC[2]+CONSTANTS[0]);
}
void
getStateInformation(double* SI)
{
SI[0] = 1.0;
}
void
computeRoots(double VOI, double* CONSTANTS, double* RATES, double* OLDRATES, double* STATES,
             double* OLDSTATES, double* ALGEBRAIC, double* CONDVARS)
{
CONDVAR[0] = VOI - 1.00000;
CONDVAR[1] = VOI - 1.00000;
CONDVAR[2] = VOI - 5.00000;
}