C
C There are a total of 1 entries in the algebraic variable array.
C There are a total of 3 entries in each of the rate and state variable arrays.
C There are a total of 4 entries in the constant variable array.
C
C
C STATES(1) is C in component MultienvironmentExampleComponent (uM).
C STATES(2) is D in component MultienvironmentExampleComponent (per_um2).
C STATES(3) is E in component MultienvironmentExampleComponent (per_um2).
C CONSTS(1) is kf in component MultienvironmentExampleComponent (per_uM_per_s).
C CONSTS(2) is kr in component MultienvironmentExampleComponent (per_s).
C ALGBRC(1) is J in component MultienvironmentExampleComponent (per_um2_per_s).
C VOI is t in component MultienvironmentExampleComponent (second).
C CONSTS(3) is R in component MultienvironmentExampleComponent (per_um).
C CONSTS(4) is Cpc in component MultienvironmentExampleComponent (uM_um2).
C RATES(1) is d/dt C in component MultienvironmentExampleComponent (uM).
C RATES(2) is d/dt D in component MultienvironmentExampleComponent (per_um2).
C RATES(3) is d/dt E in component MultienvironmentExampleComponent (per_um2).
C
      SUBROUTINE initConsts(CONSTS, RATES, STATES)
      REAL CONSTS(*), RATES(*), STATES(*)
      STATES(1) = 200
      STATES(2) = 4
      STATES(3) = 0
      CONSTS(1) = 6e-3
      CONSTS(2) = 1e-3
      CONSTS(3) = 5
      CONSTS(4) = CONSTS(3)/602.200
      RETURN
      END
      SUBROUTINE computeRates(VOI, CONSTS,  RATES, STATES, ALGBRC)
      REAL VOI, CONSTS(*), RATES(*), STATES(*), ALGBRC(*)
      ALGBRC(1) =  STATES(1)*STATES(2)*CONSTS(1) -  CONSTS(2)*STATES(3)
      RATES(1) =  - CONSTS(4)*ALGBRC(1)
      RATES(2) = - ALGBRC(1)
      RATES(3) = ALGBRC(1)
      RETURN
      END
      SUBROUTINE computeVariables(VOI, CONSTS, RATES, STATES, ALGBRC)
      REAL VOI, CONSTS(*), RATES(*), STATES(*), ALGBRC(*)
      ALGBRC(1) =  STATES(1)*STATES(2)*CONSTS(1) -  CONSTS(2)*STATES(3)
      RETURN
      END