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 17 entries in the constant variable array. C C C CONSTS(1) is ElaMax in component ParaLeftHeart (UnitE). C CONSTS(2) is ElaMin in component ParaLeftHeart (UnitE). C CONSTS(3) is PlaIni in component ParaLeftHeart (UnitP). C CONSTS(4) is VlaIni in component ParaLeftHeart (UnitV). C CONSTS(5) is ElvMax in component ParaLeftHeart (UnitE). C CONSTS(6) is ElvMin in component ParaLeftHeart (UnitE). C CONSTS(7) is PlvIni in component ParaLeftHeart (UnitP). C CONSTS(8) is VlvIni in component ParaLeftHeart (UnitV). C CONSTS(9) is T in component ParaLeftHeart (second). C CONSTS(10) is Tpwb in component ParaLeftHeart (dimensionless). C CONSTS(11) is Tpww in component ParaLeftHeart (dimensionless). C CONSTS(12) is Ts1 in component ParaLeftHeart (dimensionless). C CONSTS(13) is Ts2 in component ParaLeftHeart (dimensionless). C CONSTS(14) is CVao in component ParaLeftHeart (UnitCV). C CONSTS(15) is CVmi in component ParaLeftHeart (UnitCV). C CONSTS(16) is Vlv0 in component ParaLeftHeart (UnitV). C CONSTS(17) is Vla0 in component ParaLeftHeart (UnitV). C SUBROUTINE initConsts(CONSTS, RATES, STATES) REAL CONSTS(*), RATES(*), STATES(*) CONSTS(1) = 0.25 CONSTS(2) = 0.15 CONSTS(3) = 1.0 CONSTS(4) = 4.0 CONSTS(5) = 2.5 CONSTS(6) = 0.1 CONSTS(7) = 1.0 CONSTS(8) = 5.0 CONSTS(9) = 1.0 CONSTS(10) = 0.92 CONSTS(11) = 0.09 CONSTS(12) = 0.3 CONSTS(13) = 0.45 CONSTS(14) = 350. CONSTS(15) = 400. CONSTS(16) = 500 CONSTS(17) = 20 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