C
C There are a total of 1 entries in the algebraic variable array.
C There are a total of 5 entries in each of the rate and state variable arrays.
C There are a total of 18 entries in the constant variable array.
C
C
C VOI is time in component environment (hour).
C STATES(1) is M in component M (micromolar).
C CONSTS(1) is Km in component M (micromolar).
C CONSTS(2) is vs in component M (flux).
C CONSTS(3) is vm in component M (flux).
C CONSTS(4) is n in component M (dimensionless).
C CONSTS(5) is KI in component M (micromolar).
C STATES(2) is PN in component PN (micromolar).
C STATES(3) is P0 in component P0 (micromolar).
C CONSTS(6) is ks in component P0 (first_order_rate_constant).
C STATES(4) is P1 in component P1 (micromolar).
C CONSTS(7) is K1 in component parameters (micromolar).
C CONSTS(8) is V1 in component parameters (flux).
C CONSTS(9) is K2 in component parameters (micromolar).
C CONSTS(10) is V2 in component parameters (flux).
C STATES(5) is P2 in component P2 (micromolar).
C CONSTS(11) is K3 in component parameters (micromolar).
C CONSTS(12) is V3 in component parameters (flux).
C CONSTS(13) is K4 in component parameters (micromolar).
C CONSTS(14) is V4 in component parameters (flux).
C CONSTS(15) is Kd in component P2 (micromolar).
C CONSTS(16) is vd in component P2 (flux).
C CONSTS(17) is k1 in component parameters (first_order_rate_constant).
C CONSTS(18) is k2 in component parameters (first_order_rate_constant).
C ALGBRC(1) is Pt in component Pt (micromolar).
C RATES(1) is d/dt M in component M (micromolar).
C RATES(3) is d/dt P0 in component P0 (micromolar).
C RATES(4) is d/dt P1 in component P1 (micromolar).
C RATES(5) is d/dt P2 in component P2 (micromolar).
C RATES(2) is d/dt PN in component PN (micromolar).
C
      SUBROUTINE initConsts(CONSTS, RATES, STATES)
      REAL CONSTS(*), RATES(*), STATES(*)
      STATES(1) = 0.6
      CONSTS(1) = 0.5
      CONSTS(2) = 0.76
      CONSTS(3) = 0.65
      CONSTS(4) = 4.0
      CONSTS(5) = 1.0
      STATES(2) = 1.1
      STATES(3) = 0.5
      CONSTS(6) = 0.38
      STATES(4) = 0.6
      CONSTS(7) = 2.0
      CONSTS(8) = 3.2
      CONSTS(9) = 2.0
      CONSTS(10) = 1.58
      STATES(5) = 0.6
      CONSTS(11) = 2.0
      CONSTS(12) = 5.0
      CONSTS(13) = 2.0
      CONSTS(14) = 2.5
      CONSTS(15) = 0.2
      CONSTS(16) = 0.95
      CONSTS(17) = 1.9
      CONSTS(18) = 1.3
      RETURN
      END
      SUBROUTINE computeRates(VOI, CONSTS,  RATES, STATES, ALGBRC)
      REAL VOI, CONSTS(*), RATES(*), STATES(*), ALGBRC(*)
      RATES(1) =  CONSTS(2)*(CONSTS(5) ** CONSTS(4)/(CONSTS(5) ** CONSTS(4)+STATES(2) ** CONSTS(4))) -  CONSTS(3)*(STATES(1)/(CONSTS(1)+STATES(1)))
      RATES(3) = ( CONSTS(6)*STATES(1) -  CONSTS(8)*(STATES(3)/(CONSTS(7)+STATES(3))))+ CONSTS(10)*(STATES(4)/(CONSTS(9)+STATES(4)))
      RATES(4) = ( CONSTS(8)*(STATES(3)/(CONSTS(7)+STATES(3))) - ( CONSTS(10)*(STATES(4)/(CONSTS(9)+STATES(4)))+ CONSTS(12)*(STATES(4)/(CONSTS(11)+STATES(4)))))+ CONSTS(14)*(STATES(5)/(CONSTS(13)+STATES(5)))
      RATES(5) = (( CONSTS(12)*(STATES(4)/(CONSTS(11)+STATES(4))) - ( CONSTS(14)*(STATES(5)/(CONSTS(13)+STATES(5)))+ CONSTS(17)*STATES(5)))+ CONSTS(18)*STATES(2)) -  CONSTS(16)*(STATES(5)/(CONSTS(15)+STATES(5)))
      RATES(2) =  CONSTS(17)*STATES(5) -  CONSTS(18)*STATES(2)
      RETURN
      END
      SUBROUTINE computeVariables(VOI, CONSTS, RATES, STATES, ALGBRC)
      REAL VOI, CONSTS(*), RATES(*), STATES(*), ALGBRC(*)
      ALGBRC(1) = STATES(3)+STATES(4)+STATES(5)+STATES(2)
      RETURN
      END