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