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 11 entries in the constant variable array.
C
C
C CONSTS(1) is r_0 in component parameter_Ito (nS_per_pF).
C CONSTS(2) is r_1 in component parameter_Ito (dimensionless).
C CONSTS(3) is r_2 in component parameter_Ito (dimensionless).
C CONSTS(4) is r_5 in component parameter_Ito (dimensionless).
C CONSTS(5) is r_6 in component parameter_Ito (dimensionless).
C CONSTS(6) is s_1 in component parameter_Ito (dimensionless).
C CONSTS(7) is s_2 in component parameter_Ito (dimensionless).
C CONSTS(8) is s_5 in component parameter_Ito (dimensionless).
C CONSTS(9) is s_6 in component parameter_Ito (dimensionless).
C CONSTS(10) is tau_r_const in component parameter_Ito (dimensionless).
C CONSTS(11) is tau_s_const in component parameter_Ito (dimensionless).
C
SUBROUTINE initConsts(CONSTS, RATES, STATES)
REAL CONSTS(*), RATES(*), STATES(*)
CONSTS(1) = 0.117833
CONSTS(2) = 0.0553614
CONSTS(3) = 11.68420
CONSTS(4) = 3.9891810
CONSTS(5) = -11.04714
CONSTS(6) = 0.00034423
CONSTS(7) = -17.63447
CONSTS(8) = 186.76053
CONSTS(9) = 8.180933
CONSTS(10) = 0.696758
CONSTS(11) = 11.22445
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
