C
C There are a total of 1 entries in the algebraic variable array.
C There are a total of 2 entries in each of the rate and state variable arrays.
C There are a total of 3 entries in the constant variable array.
C
C
C VOI is t in component Main (millisecond).
C STATES(1) is v in component Main (dimensionless).
C STATES(2) is w in component Main (dimensionless).
C CONSTS(1) is alpha in component Main (dimensionless).
C CONSTS(2) is gamma in component Main (dimensionless).
C CONSTS(3) is epsilon in component Main (dimensionless).
C ALGBRC(1) is I in component Main (dimensionless).
C RATES(1) is d/dt v in component Main (dimensionless).
C RATES(2) is d/dt w in component Main (dimensionless).
C
      SUBROUTINE initConsts(CONSTS, RATES, STATES)
      REAL CONSTS(*), RATES(*), STATES(*)
      STATES(1) = 0
      STATES(2) = 0
      CONSTS(1) = -0.08
      CONSTS(2) = 3
      CONSTS(3) = 0.005
      RETURN
      END
      SUBROUTINE computeRates(VOI, CONSTS,  RATES, STATES, ALGBRC)
      REAL VOI, CONSTS(*), RATES(*), STATES(*), ALGBRC(*)
      RATES(2) =  1.00000*CONSTS(3)*(STATES(1) -  CONSTS(2)*STATES(2))
      ALGBRC(1) = TERNRY(VOI.GE.0.00000.AND.VOI.LE.0.500000, - 80.0000, 0.00000)
      RATES(1) =  1.00000*(( STATES(1)*(STATES(1) - CONSTS(1))*(1.00000 - STATES(1)) - STATES(2))+ALGBRC(1))
      RETURN
      END
      SUBROUTINE computeVariables(VOI, CONSTS, RATES, STATES, ALGBRC)
      REAL VOI, CONSTS(*), RATES(*), STATES(*), ALGBRC(*)
      ALGBRC(1) = TERNRY(VOI.GE.0.00000.AND.VOI.LE.0.500000, - 80.0000, 0.00000)
      RETURN
      END
      REAL FUNCTION TERNRY(TEST, VALA, VALB)
      LOGICAL TEST
      REAL VALA, VALB
      IF (TEST) THEN
        TERNRY = VALA
      ELSE
        TERNRY = VALB
      ENDIF
      RETURN
      END