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 NGF in component NGF (dimensionless).
C CONSTS(2) is pro_TrkA in component pro_TrkA (dimensionless).
C STATES(1) is TrkA in component TrkA (dimensionless).
C STATES(2) is NGF_TrkA in component NGF_TrkA (dimensionless).
C CONSTS(3) is k2_NGF_TrkA in component model_parameters (first_order_rate_constant).
C CONSTS(4) is k1_NGF_TrkA in component model_parameters (first_order_rate_constant).
C CONSTS(5) is TrkA_turnover in component model_parameters (first_order_rate_constant).
C CONSTS(6) is k1_TrkA_phosphorylation in component model_parameters (first_order_rate_constant).
C STATES(3) is pTrkA in component pTrkA (dimensionless).
C STATES(4) is pTrkA_Akt in component pTrkA_Akt (dimensionless).
C STATES(5) is Akt in component Akt (dimensionless).
C CONSTS(7) is k1_pTrkA_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_pTrkA_Akt in component model_parameters (first_order_rate_constant).
C CONSTS(10) is k2_pTrkA_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 pTrkA_total in component pTrkA_total (dimensionless).
C CONSTS(16) is pTrkA_scalefactor in component pTrkA_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 TrkA in component TrkA (dimensionless).
C RATES(2) is d/dt NGF_TrkA in component NGF_TrkA (dimensionless).
C RATES(3) is d/dt pTrkA in component pTrkA (dimensionless).
C RATES(4) is d/dt pTrkA_Akt in component pTrkA_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) = 8.52065e0
STATES(1) = 8.52065e0
STATES(2) = 0.0
CONSTS(3) = 1.33747e-2
CONSTS(4) = 2.69408e-3
CONSTS(5) = 0.0011032440769796
CONSTS(6) = 8.33178e-3
STATES(3) = 0.0
STATES(4) = 0.0
STATES(5) = 1.15595e0
CONSTS(7) = 6.8084e-2
CONSTS(8) = 2.02517e-2
CONSTS(9) = 8.82701e-2
CONSTS(10) = 1.47518e-10
STATES(6) = 0.0
CONSTS(11) = 1.28135e0
STATES(7) = 3.55234e0
STATES(8) = 0.0
CONSTS(12) = 6.83666e1
CONSTS(13) = 5.23519e-00
CONSTS(14) = 5.65150e-3
STATES(9) = 0.0
CONSTS(15) = 2.93167e-4
CONSTS(16) = 8.48783e-1
CONSTS(17) = 2.42381e0
CONSTS(18) = 5.25843e-1
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
