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 0 entries in the algebraic variable array. C There are a total of 0 entries in each of the rate and state variable arrays. C There are a total of 14 entries in the constant variable array. C C C CONSTS(1) is g_Na in component parameter_Ina (nS_per_pF). C CONSTS(2) is m_1 in component parameter_Ina (dimensionless). C CONSTS(3) is m_2 in component parameter_Ina (dimensionless). C CONSTS(4) is m_5 in component parameter_Ina (dimensionless). C CONSTS(5) is m_6 in component parameter_Ina (dimensionless). C CONSTS(6) is h_1 in component parameter_Ina (dimensionless). C CONSTS(7) is h_2 in component parameter_Ina (dimensionless). C CONSTS(8) is h_5 in component parameter_Ina (dimensionless). C CONSTS(9) is h_6 in component parameter_Ina (dimensionless). C CONSTS(10) is j_1 in component parameter_Ina (dimensionless). C CONSTS(11) is j_2 in component parameter_Ina (dimensionless). C CONSTS(12) is tau_m_const in component parameter_Ina (dimensionless). C CONSTS(13) is tau_h_const in component parameter_Ina (dimensionless). C CONSTS(14) is tau_j_const in component parameter_Ina (dimensionless). C SUBROUTINE initConsts(CONSTS, RATES, STATES) REAL CONSTS(*), RATES(*), STATES(*) CONSTS(1) = 9.720613 CONSTS(2) = 108.045846 CONSTS(3) = 13.10701573 CONSTS(4) = 0.002326914 CONSTS(5) = -7.91772628 CONSTS(6) = 0.003626598 CONSTS(7) = -19.8393588 CONSTS(8) = 9663.294977 CONSTS(9) = 7.395503564 CONSTS(10) = 5.122571819999999e-4 CONSTS(11) = -66.5837555 CONSTS(12) = 0.031977580 CONSTS(13) = 0.167331502 CONSTS(14) = 0.951088724 RETURN END SUBROUTINE computeRates(VOI, CONSTS, RATES, STATES, ALGBRC) REAL VOI, CONSTS(*), RATES(*), STATES(*), ALGBRC(*) RETURN END SUBROUTINE computeVariables(VOI, CONSTS, RATES, STATES, ALGBRC) REAL VOI, CONSTS(*), RATES(*), STATES(*), ALGBRC(*) RETURN END