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
