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 11 entries in each of the rate and state variable arrays.
C There are a total of 21 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 inhibitor in component inhibitor (dimensionless).
C CONSTS(3) 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 STATES(3) is EGFR_i in component EGFR_i (dimensionless).
C CONSTS(4) is EGF_binding_kb in component model_parameters (first_order_rate_constant).
C CONSTS(5) is EGF_binding_kf in component model_parameters (first_order_rate_constant).
C CONSTS(6) is inhibitor_binding_kb in component model_parameters (first_order_rate_constant).
C CONSTS(7) is inhibitor_binding_kf in component model_parameters (first_order_rate_constant).
C CONSTS(8) is EGFR_turnover in component model_parameters (first_order_rate_constant).
C STATES(4) is EGF_EGFR_i in component EGF_EGFR_i (dimensionless).
C CONSTS(9) is k1_EGFR_phosphorylation in component model_parameters (first_order_rate_constant).
C STATES(5) is pEGFR in component pEGFR (dimensionless).
C STATES(6) is pEGFR_Akt in component pEGFR_Akt (dimensionless).
C STATES(7) is Akt in component Akt (dimensionless).
C CONSTS(10) is k1_pEGFR_degradation in component model_parameters (first_order_rate_constant).
C CONSTS(11) is k1_Akt_phosphorylation in component model_parameters (first_order_rate_constant).
C CONSTS(12) is k1_pEGFR_Akt in component model_parameters (first_order_rate_constant).
C CONSTS(13) is k2_pEGFR_Akt in component model_parameters (first_order_rate_constant).
C STATES(8) is pAkt in component pAkt (dimensionless).
C CONSTS(14) is k1_pAkt_dephosphorylation in component model_parameters (first_order_rate_constant).
C STATES(9) is S6 in component S6 (dimensionless).
C STATES(10) is pAkt_S6 in component pAkt_S6 (dimensionless).
C CONSTS(15) is k1_pAkt_S6 in component model_parameters (first_order_rate_constant).
C CONSTS(16) is k2_pAkt_S6 in component model_parameters (first_order_rate_constant).
C CONSTS(17) is k1_S6_phosphorylation in component model_parameters (first_order_rate_constant).
C STATES(11) is pS6 in component pS6 (dimensionless).
C CONSTS(18) 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(19) is pEGFR_scalefactor in component pEGFR_total (dimensionless).
C ALGBRC(2) is pAkt_total in component pAkt_total (dimensionless).
C CONSTS(20) is pAkt_scalefactor in component pAkt_total (dimensionless).
C ALGBRC(3) is pS6_total in component pS6_total (dimensionless).
C CONSTS(21) 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 EGFR_i in component EGFR_i (dimensionless).
C RATES(4) is d/dt EGF_EGFR_i in component EGF_EGFR_i (dimensionless).
C RATES(5) is d/dt pEGFR in component pEGFR (dimensionless).
C RATES(6) is d/dt pEGFR_Akt in component pEGFR_Akt (dimensionless).
C RATES(7) is d/dt Akt in component Akt (dimensionless).
C RATES(8) is d/dt pAkt in component pAkt (dimensionless).
C RATES(10) is d/dt pAkt_S6 in component pAkt_S6 (dimensionless).
C RATES(9) is d/dt S6 in component S6 (dimensionless).
C RATES(11) is d/dt pS6 in component pS6 (dimensionless).
C
      SUBROUTINE initConsts(CONSTS, RATES, STATES)
      REAL CONSTS(*), RATES(*), STATES(*)
      CONSTS(1) = 30.0
      CONSTS(2) = 15.0
      CONSTS(3) = 6.81902e-4
      STATES(1) = 68190.000000002
      STATES(2) = 0.0
      STATES(3) = 0.0
      CONSTS(4) = 4.07490e-2
      CONSTS(5) = 6.73816e-3
      CONSTS(6) = 5.25097e-5
      CONSTS(7) = 2.434663e-5
      CONSTS(8) = 1.06386129269658e-4
      STATES(4) = 0.0
      CONSTS(9) = 1.92391e-2
      STATES(5) = 0.0
      STATES(6) = 0.0
      STATES(7) = 4.33090e-2
      CONSTS(10) = 9.97194e-2
      CONSTS(11) = 3.05684e-2
      CONSTS(12) = 1.55430e-5
      CONSTS(13) = 5.17473e-3
      STATES(8) = 0.0
      CONSTS(14) = 3.27962e-2
      STATES(9) = 3.54317e0
      STATES(10) = 0.0
      CONSTS(15) = 2.10189e-6
      CONSTS(16) = 5.17940e-15
      CONSTS(17) = 1.21498e-3
      STATES(11) = 0.0
      CONSTS(18) = 1.13102e-3
      CONSTS(19) = 1.81735e-4
      CONSTS(20) = 6.00588e1
      CONSTS(21) = 4.98862e4
      RETURN
      END
      SUBROUTINE computeRates(VOI, CONSTS,  RATES, STATES, ALGBRC)
      REAL VOI, CONSTS(*), RATES(*), STATES(*), ALGBRC(*)
      RATES(1) = ( CONSTS(4)*STATES(2)+ CONSTS(6)*STATES(3)+ CONSTS(8)*(CONSTS(3) - STATES(1))) - ( CONSTS(5)*CONSTS(1)*STATES(1)+ CONSTS(7)*CONSTS(2)*STATES(1))
      RATES(2) = ( CONSTS(5)*CONSTS(1)*STATES(1)+ CONSTS(6)*STATES(4)) - ( CONSTS(4)*STATES(2)+ CONSTS(7)*CONSTS(2)*STATES(2)+ CONSTS(9)*STATES(2))
      RATES(3) = ( CONSTS(4)*STATES(4)+ CONSTS(7)*CONSTS(2)*STATES(1)) - ( CONSTS(5)*CONSTS(1)*STATES(3)+ CONSTS(6)*STATES(3)+ CONSTS(8)*STATES(3))
      RATES(4) = ( CONSTS(5)*CONSTS(1)*STATES(3)+ CONSTS(7)*CONSTS(2)*STATES(2)) - ( CONSTS(4)*STATES(4)+ CONSTS(6)*STATES(4))
      RATES(5) = ( CONSTS(9)*STATES(2)+ CONSTS(11)*STATES(6)+ CONSTS(13)*STATES(6)) - ( CONSTS(10)*STATES(5)+ CONSTS(12)*STATES(5)*STATES(7))
      RATES(6) =  CONSTS(12)*STATES(5)*STATES(7) - ( CONSTS(13)*STATES(6)+ CONSTS(11)*STATES(6))
      RATES(7) = ( CONSTS(13)*STATES(6)+ CONSTS(14)*STATES(8)) -  CONSTS(12)*STATES(5)*STATES(7)
      RATES(8) = ( CONSTS(11)*STATES(6)+ CONSTS(16)*STATES(10)+ CONSTS(17)*STATES(10)) - ( CONSTS(14)*STATES(8)+ CONSTS(15)*STATES(8)*STATES(9))
      RATES(10) =  CONSTS(15)*STATES(8)*STATES(9) - ( CONSTS(16)*STATES(10)+ CONSTS(17)*STATES(10))
      RATES(9) = ( CONSTS(16)*STATES(10)+ CONSTS(18)*STATES(11)) -  CONSTS(15)*STATES(8)*STATES(9)
      RATES(11) =  CONSTS(17)*STATES(10) -  CONSTS(18)*STATES(11)
      RETURN
      END
      SUBROUTINE computeVariables(VOI, CONSTS, RATES, STATES, ALGBRC)
      REAL VOI, CONSTS(*), RATES(*), STATES(*), ALGBRC(*)
      ALGBRC(1) =  (STATES(5)+STATES(6))*CONSTS(19)
      ALGBRC(2) =  (STATES(8)+STATES(10))*CONSTS(20)
      ALGBRC(3) =  STATES(11)*CONSTS(21)
      RETURN
      END