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 3 entries in the algebraic variable array.
C There are a total of 9 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 (second).
C CONSTS(1) is EGF in component EGF (dimensionless).
C CONSTS(2) is pro_EGFR in component pro_EGFR (dimensionless).
C STATES(1) is EGFR in component EGFR (dimensionless).
C STATES(2) is EGF_EGFR in component EGF_EGFR (dimensionless).
C CONSTS(3) is k2_EGF_EGFR in component model_parameters (first_order_rate_constant).
C CONSTS(4) is k1_EGF_EGFR in component model_parameters (first_order_rate_constant).
C CONSTS(5) is EGFR_turnover in component model_parameters (first_order_rate_constant).
C CONSTS(6) is k1_EGFR_phosphorylation in component model_parameters (first_order_rate_constant).
C STATES(3) is pEGFR in component pEGFR (dimensionless).
C STATES(4) is pEGFR_Akt in component pEGFR_Akt (dimensionless).
C STATES(5) is Akt in component Akt (dimensionless).
C CONSTS(7) is k1_pEGFR_degradation in component model_parameters (first_order_rate_constant).
C CONSTS(8) is k1_Akt_phosphorylation in component model_parameters (first_order_rate_constant).
C CONSTS(9) is k1_pEGFR_Akt in component model_parameters (first_order_rate_constant).
C CONSTS(10) is k2_pEGFR_Akt in component model_parameters (first_order_rate_constant).
C STATES(6) is pAkt in component pAkt (dimensionless).
C CONSTS(11) is k1_pAkt_dephosphorylation in component model_parameters (first_order_rate_constant).
C STATES(7) is S6 in component S6 (dimensionless).
C STATES(8) is pAkt_S6 in component pAkt_S6 (dimensionless).
C CONSTS(12) is k1_pAkt_S6 in component model_parameters (first_order_rate_constant).
C CONSTS(13) is k2_pAkt_S6 in component model_parameters (first_order_rate_constant).
C CONSTS(14) is k1_S6_phosphorylation in component model_parameters (first_order_rate_constant).
C STATES(9) is pS6 in component pS6 (dimensionless).
C CONSTS(15) is k1_pS6_dephosphorylation in component model_parameters (first_order_rate_constant).
C ALGBRC(1) is pEGFR_total in component pEGFR_total (dimensionless).
C CONSTS(16) is pEGFR_scalefactor in component pEGFR_total (dimensionless).
C ALGBRC(2) is pAkt_total in component pAkt_total (dimensionless).
C CONSTS(17) is pAkt_scalefactor in component pAkt_total (dimensionless).
C ALGBRC(3) is pS6_total in component pS6_total (dimensionless).
C CONSTS(18) is pS6_scalefactor in component pS6_total (dimensionless).
C RATES(1) is d/dt EGFR in component EGFR (dimensionless).
C RATES(2) is d/dt EGF_EGFR in component EGF_EGFR (dimensionless).
C RATES(3) is d/dt pEGFR in component pEGFR (dimensionless).
C RATES(4) is d/dt pEGFR_Akt in component pEGFR_Akt (dimensionless).
C RATES(5) is d/dt Akt in component Akt (dimensionless).
C RATES(6) is d/dt pAkt in component pAkt (dimensionless).
C RATES(8) is d/dt pAkt_S6 in component pAkt_S6 (dimensionless).
C RATES(7) is d/dt S6 in component S6 (dimensionless).
C RATES(9) is d/dt pS6 in component pS6 (dimensionless).
C
SUBROUTINE initConsts(CONSTS, RATES, STATES)
REAL CONSTS(*), RATES(*), STATES(*)
CONSTS(1) = 30.0
CONSTS(2) = 6.81902e4
STATES(1) = 6.81902e4
STATES(2) = 0.0
CONSTS(3) = 4.07490e-2
CONSTS(4) = 6.73816e-3
CONSTS(5) = 1.06386129269658e-4
CONSTS(6) = 1.92391e-2
STATES(3) = 0.0
STATES(4) = 0.0
STATES(5) = 4.33090e-2
CONSTS(7) = 9.97194e-2
CONSTS(8) = 3.05684e-2
CONSTS(9) = 1.55430e-5
CONSTS(10) = 5.17473e-3
STATES(6) = 0.0
CONSTS(11) = 3.27962e-2
STATES(7) = 3.54317e0
STATES(8) = 0.0
CONSTS(12) = 2.10189e-6
CONSTS(13) = 5.17940e-15
CONSTS(14) = 1.21498e-3
STATES(9) = 0.0
CONSTS(15) = 1.13102e-3
CONSTS(16) = 1.81735e-4
CONSTS(17) = 6.00588e1
CONSTS(18) = 4.98862e4
RETURN
END
SUBROUTINE computeRates(VOI, CONSTS, RATES, STATES, ALGBRC)
REAL VOI, CONSTS(*), RATES(*), STATES(*), ALGBRC(*)
RATES(1) = ( CONSTS(3)*STATES(2)+ CONSTS(5)*(CONSTS(2) - STATES(1))) - CONSTS(4)*CONSTS(1)*STATES(1)
RATES(2) = CONSTS(4)*CONSTS(1)*STATES(1) - ( CONSTS(3)*STATES(2)+ CONSTS(6)*STATES(2))
RATES(3) = ( CONSTS(6)*STATES(2)+ CONSTS(8)*STATES(4)+ CONSTS(10)*STATES(4)) - ( CONSTS(7)*STATES(3)+ CONSTS(9)*STATES(3)*STATES(5))
RATES(4) = CONSTS(9)*STATES(3)*STATES(5) - ( CONSTS(10)*STATES(4)+ CONSTS(8)*STATES(4))
RATES(5) = ( CONSTS(10)*STATES(4)+ CONSTS(11)*STATES(6)) - CONSTS(9)*STATES(3)*STATES(5)
RATES(6) = ( CONSTS(8)*STATES(4)+ CONSTS(13)*STATES(8)+ CONSTS(14)*STATES(8)) - ( CONSTS(11)*STATES(6)+ CONSTS(12)*STATES(6)*STATES(7))
RATES(8) = CONSTS(12)*STATES(6)*STATES(7) - ( CONSTS(13)*STATES(8)+ CONSTS(14)*STATES(8))
RATES(7) = ( CONSTS(13)*STATES(8)+ CONSTS(15)*STATES(9)) - CONSTS(12)*STATES(6)*STATES(7)
RATES(9) = CONSTS(14)*STATES(8) - CONSTS(15)*STATES(9)
RETURN
END
SUBROUTINE computeVariables(VOI, CONSTS, RATES, STATES, ALGBRC)
REAL VOI, CONSTS(*), RATES(*), STATES(*), ALGBRC(*)
ALGBRC(1) = (STATES(3)+STATES(4))*CONSTS(16)
ALGBRC(2) = (STATES(6)+STATES(8))*CONSTS(17)
ALGBRC(3) = STATES(9)*CONSTS(18)
RETURN
END
