Generated Code
The following is f77 code generated by the CellML API from this CellML file. (Back to language selection)
The raw code is available.
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
