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