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 105 entries in the algebraic variable array.
C There are a total of 45 entries in each of the rate and state variable arrays.
C There are a total of 154 entries in the constant variable array.
C
C
C VOI is time in component environment (second).
C ALGBRC(34) is JCaM_DYAD_SL in component JCaM_DYAD_SL (flux).
C CONSTS(1) is k0B_on in component JCaM_DYAD_SL (second_order_rate_constant).
C CONSTS(2) is k0B_off in component JCaM_DYAD_SL (first_order_rate_constant).
C STATES(1) is CaM in component CaM (micromolar).
C ALGBRC(31) is B in component B (micromolar).
C STATES(2) is CaM in component CaM (micromolar).
C ALGBRC(35) is JCa2CaM_DYAD_SL in component JCa2CaM_DYAD_SL (flux).
C CONSTS(3) is k2B_on in component JCa2CaM_DYAD_SL (second_order_rate_constant).
C CONSTS(4) is k2B_off in component JCa2CaM_DYAD_SL (first_order_rate_constant).
C STATES(3) is Ca2CaM in component Ca2CaM (micromolar).
C STATES(4) is Ca2CaM in component Ca2CaM (micromolar).
C ALGBRC(36) is JCa4CaM_DYAD_SL in component JCa4CaM_DYAD_SL (flux).
C CONSTS(5) is k4B_on in component JCa4CaM_DYAD_SL (second_order_rate_constant).
C CONSTS(6) is k4B_off in component JCa4CaM_DYAD_SL (first_order_rate_constant).
C STATES(5) is Ca4CaM in component Ca4CaM (micromolar).
C STATES(6) is Ca4CaM in component Ca4CaM (micromolar).
C ALGBRC(2) is JCaM_SL_CYT in component JCaM_SL_CYT (micromole_per_second).
C CONSTS(7) is kSLCYT in component model_parameters (litre_per_second).
C STATES(7) is CaM in component CaM (micromolar).
C ALGBRC(3) is JCa2CaM_SL_CYT in component JCa2CaM_SL_CYT (micromole_per_second).
C STATES(8) is Ca2CaM in component Ca2CaM (micromolar).
C ALGBRC(4) is JCa4CaM_SL_CYT in component JCa4CaM_SL_CYT (micromole_per_second).
C STATES(9) is Ca4CaM in component Ca4CaM (micromolar).
C ALGBRC(1) is Reaction_02 in component Reaction_02 (flux).
C CONSTS(131) is k02 in component Reaction_02 (third_order_rate_constant).
C CONSTS(8) is k20 in component Reaction_02 (first_order_rate_constant).
C CONSTS(110) is Kd02 in component Reaction_02 (micromolar2).
C CONSTS(9) is K in component model_parameters (micromolar).
C CONSTS(10) is Mg in component model_parameters (micromolar).
C CONSTS(11) is Ca in component model_parameters (micromolar).
C ALGBRC(22) is Reaction_24 in component Reaction_24 (flux).
C CONSTS(132) is k24 in component Reaction_24 (third_order_rate_constant).
C CONSTS(12) is k42 in component Reaction_24 (first_order_rate_constant).
C CONSTS(111) is Kd24 in component Reaction_24 (micromolar2).
C ALGBRC(25) is Reaction_02B in component Reaction_02B (flux).
C CONSTS(137) is k02B in component Reaction_02B (third_order_rate_constant).
C CONSTS(13) is k20B in component Reaction_02B (first_order_rate_constant).
C STATES(10) is CaMB in component CaMB (micromolar).
C STATES(11) is Ca2CaMB in component Ca2CaMB (micromolar).
C ALGBRC(28) is Reaction_24B in component Reaction_24B (flux).
C CONSTS(138) is k24B in component Reaction_24B (third_order_rate_constant).
C CONSTS(112) is k42B in component Reaction_24B (first_order_rate_constant).
C STATES(12) is Ca4CaMB in component Ca4CaMB (micromolar).
C ALGBRC(37) is Reaction_2B in component Reaction_2B (flux).
C CONSTS(14) is k2B_on in component Reaction_2B (second_order_rate_constant).
C CONSTS(15) is k2B_off in component Reaction_2B (first_order_rate_constant).
C ALGBRC(40) is Reaction_0B in component Reaction_0B (flux).
C CONSTS(16) is k0B_on in component Reaction_0B (second_order_rate_constant).
C CONSTS(17) is k0B_off in component Reaction_0B (first_order_rate_constant).
C ALGBRC(43) is Reaction_4B in component Reaction_4B (flux).
C CONSTS(18) is k4B_on in component Reaction_4B (second_order_rate_constant).
C CONSTS(19) is k4B_off in component Reaction_4B (first_order_rate_constant).
C CONSTS(20) is Btot in component B (micromolar).
C ALGBRC(103) is Reaction_0CaN in component Reaction_0CaN (flux).
C CONSTS(21) is CaMKIItot in component model_parameters (micromolar).
C ALGBRC(97) is Reaction_2CaN in component Reaction_2CaN (flux).
C ALGBRC(76) is Reaction_CKt2a in component Reaction_CKt2a (first_order_rate_constant).
C ALGBRC(61) is Reaction_CKib2 in component Reaction_CKib2 (first_order_rate_constant).
C ALGBRC(100) is Reaction_4CaN in component Reaction_4CaN (flux).
C ALGBRC(73) is Reaction_CKta in component Reaction_CKta (first_order_rate_constant).
C ALGBRC(67) is Reaction_CKib in component Reaction_CKib (first_order_rate_constant).
C ALGBRC(50) is CaMKIIi in component CaMKIIi (micromolar).
C ALGBRC(46) is Pi in component Pi (dimensionless).
C ALGBRC(5) is CaMKIIb2 in component CaMKIIb2 (micromolar).
C STATES(13) is Pb2 in component Pb2 (dimensionless).
C ALGBRC(6) is CaMKIIb in component CaMKIIb (micromolar).
C STATES(14) is Pb in component Pb (dimensionless).
C ALGBRC(7) is CaMKIIt in component CaMKIIt (micromolar).
C STATES(15) is Pt in component Pt (dimensionless).
C ALGBRC(8) is CaMKIIt2 in component CaMKIIt2 (micromolar).
C STATES(16) is Pt2 in component Pt2 (dimensionless).
C ALGBRC(9) is CaMKIIa in component CaMKIIa (micromolar).
C STATES(17) is Pa in component Pa (dimensionless).
C ALGBRC(49) is T in component T (dimensionless).
C ALGBRC(58) is Reaction_CKbt in component Reaction_CKbt (first_order_rate_constant).
C ALGBRC(55) is kbt in component Reaction_CKbt (first_order_rate_constant).
C CONSTS(22) is kPP1 in component model_parameters (first_order_rate_constant).
C CONSTS(23) is KmPP1 in component model_parameters (micromolar).
C CONSTS(24) is PP1tot in component model_parameters (micromolar).
C CONSTS(25) is kib2 in component Reaction_CKib2 (second_order_rate_constant).
C CONSTS(26) is kb2i in component Reaction_CKib2 (first_order_rate_constant).
C ALGBRC(64) is Reaction_CKb2b in component Reaction_CKb2b (first_order_rate_constant).
C CONSTS(139) is kb24 in component Reaction_CKb2b (third_order_rate_constant).
C CONSTS(113) is kb42 in component Reaction_CKb2b (first_order_rate_constant).
C CONSTS(27) is kib in component Reaction_CKib (second_order_rate_constant).
C CONSTS(28) is kbi in component Reaction_CKib (first_order_rate_constant).
C ALGBRC(70) is Reaction_CKtt2 in component Reaction_CKtt2 (first_order_rate_constant).
C CONSTS(140) is kt24 in component Reaction_CKtt2 (third_order_rate_constant).
C CONSTS(114) is kt42 in component Reaction_CKtt2 (first_order_rate_constant).
C CONSTS(29) is kat in component Reaction_CKta (second_order_rate_constant).
C CONSTS(30) is kta in component Reaction_CKta (first_order_rate_constant).
C CONSTS(31) is kat2 in component Reaction_CKt2a (second_order_rate_constant).
C CONSTS(32) is kt2a in component Reaction_CKt2a (first_order_rate_constant).
C ALGBRC(80) is Reaction_CKt2b2 in component Reaction_CKt2b2 (first_order_rate_constant).
C ALGBRC(81) is Reaction_CKai in component Reaction_CKai (first_order_rate_constant).
C ALGBRC(79) is Ca2CaN in component Ca2CaN (micromolar).
C CONSTS(33) is CaNtot in component Ca2CaN (micromolar).
C STATES(18) is Ca4CaN in component Ca4CaN (micromolar).
C STATES(19) is CaMCaN in component CaMCaN (micromolar).
C STATES(20) is Ca2CaMCaN in component Ca2CaMCaN (micromolar).
C STATES(21) is Ca4CaMCaN in component Ca4CaMCaN (micromolar).
C ALGBRC(88) is Reaction_Ca4CaN in component Reaction_Ca4CaN (flux).
C CONSTS(34) is kCaNCa_on in component Reaction_Ca4CaN (third_order_rate_constant).
C CONSTS(35) is kCaNCa_off in component Reaction_Ca4CaN (first_order_rate_constant).
C ALGBRC(91) is Reaction_02CaN in component Reaction_02CaN (flux).
C CONSTS(141) is k02CaN in component Reaction_02CaN (third_order_rate_constant).
C CONSTS(115) is k20CaN in component Reaction_02CaN (first_order_rate_constant).
C ALGBRC(94) is Reaction_24CaN in component Reaction_24CaN (flux).
C CONSTS(142) is k24CaN in component Reaction_24CaN (third_order_rate_constant).
C CONSTS(116) is k42CaN in component Reaction_24CaN (first_order_rate_constant).
C CONSTS(36) is kCaN2_on in component Reaction_2CaN (second_order_rate_constant).
C CONSTS(37) is kCaN2_off in component Reaction_2CaN (first_order_rate_constant).
C CONSTS(38) is kCaN4_on in component Reaction_4CaN (second_order_rate_constant).
C CONSTS(39) is kCaN4_off in component Reaction_4CaN (first_order_rate_constant).
C CONSTS(40) is kCaN0_on in component Reaction_0CaN (second_order_rate_constant).
C CONSTS(41) is kCaN0_off in component Reaction_0CaN (first_order_rate_constant).
C ALGBRC(10) is Reaction_02 in component Reaction_02 (flux).
C CONSTS(133) is k02 in component Reaction_02 (third_order_rate_constant).
C CONSTS(42) is k20 in component Reaction_02 (first_order_rate_constant).
C CONSTS(117) is Kd02 in component Reaction_02 (micromolar2).
C CONSTS(43) is K in component model_parameters (micromolar).
C CONSTS(44) is Mg in component model_parameters (micromolar).
C CONSTS(45) is Ca in component model_parameters (micromolar).
C ALGBRC(23) is Reaction_24 in component Reaction_24 (flux).
C CONSTS(134) is k24 in component Reaction_24 (third_order_rate_constant).
C CONSTS(46) is k42 in component Reaction_24 (first_order_rate_constant).
C CONSTS(118) is Kd24 in component Reaction_24 (micromolar2).
C ALGBRC(26) is Reaction_02B in component Reaction_02B (flux).
C CONSTS(143) is k02B in component Reaction_02B (third_order_rate_constant).
C CONSTS(47) is k20B in component Reaction_02B (first_order_rate_constant).
C STATES(22) is CaMB in component CaMB (micromolar).
C STATES(23) is Ca2CaMB in component Ca2CaMB (micromolar).
C ALGBRC(29) is Reaction_24B in component Reaction_24B (flux).
C CONSTS(144) is k24B in component Reaction_24B (third_order_rate_constant).
C CONSTS(119) is k42B in component Reaction_24B (first_order_rate_constant).
C STATES(24) is Ca4CaMB in component Ca4CaMB (micromolar).
C ALGBRC(38) is Reaction_2B in component Reaction_2B (flux).
C CONSTS(48) is k2B_on in component Reaction_2B (second_order_rate_constant).
C CONSTS(49) is k2B_off in component Reaction_2B (first_order_rate_constant).
C ALGBRC(32) is B in component B (micromolar).
C ALGBRC(41) is Reaction_0B in component Reaction_0B (flux).
C CONSTS(50) is k0B_on in component Reaction_0B (second_order_rate_constant).
C CONSTS(51) is k0B_off in component Reaction_0B (first_order_rate_constant).
C ALGBRC(44) is Reaction_4B in component Reaction_4B (flux).
C CONSTS(52) is k4B_on in component Reaction_4B (second_order_rate_constant).
C CONSTS(53) is k4B_off in component Reaction_4B (first_order_rate_constant).
C CONSTS(54) is Btot in component B (micromolar).
C ALGBRC(104) is Reaction_0CaN in component Reaction_0CaN (flux).
C CONSTS(55) is CaMKIItot in component model_parameters (micromolar).
C ALGBRC(98) is Reaction_2CaN in component Reaction_2CaN (flux).
C ALGBRC(77) is Reaction_CKt2a in component Reaction_CKt2a (first_order_rate_constant).
C ALGBRC(62) is Reaction_CKib2 in component Reaction_CKib2 (first_order_rate_constant).
C ALGBRC(101) is Reaction_4CaN in component Reaction_4CaN (flux).
C ALGBRC(74) is Reaction_CKta in component Reaction_CKta (first_order_rate_constant).
C ALGBRC(68) is Reaction_CKib in component Reaction_CKib (first_order_rate_constant).
C ALGBRC(52) is CaMKIIi in component CaMKIIi (micromolar).
C ALGBRC(47) is Pi in component Pi (dimensionless).
C ALGBRC(11) is CaMKIIb2 in component CaMKIIb2 (micromolar).
C STATES(25) is Pb2 in component Pb2 (dimensionless).
C ALGBRC(12) is CaMKIIb in component CaMKIIb (micromolar).
C STATES(26) is Pb in component Pb (dimensionless).
C ALGBRC(13) is CaMKIIt in component CaMKIIt (micromolar).
C STATES(27) is Pt in component Pt (dimensionless).
C ALGBRC(14) is CaMKIIt2 in component CaMKIIt2 (micromolar).
C STATES(28) is Pt2 in component Pt2 (dimensionless).
C ALGBRC(15) is CaMKIIa in component CaMKIIa (micromolar).
C STATES(29) is Pa in component Pa (dimensionless).
C ALGBRC(51) is T in component T (dimensionless).
C ALGBRC(59) is Reaction_CKbt in component Reaction_CKbt (first_order_rate_constant).
C ALGBRC(56) is kbt in component Reaction_CKbt (first_order_rate_constant).
C CONSTS(56) is kPP1 in component model_parameters (first_order_rate_constant).
C CONSTS(57) is KmPP1 in component model_parameters (micromolar).
C CONSTS(58) is PP1tot in component model_parameters (micromolar).
C CONSTS(59) is kib2 in component Reaction_CKib2 (second_order_rate_constant).
C CONSTS(60) is kb2i in component Reaction_CKib2 (first_order_rate_constant).
C ALGBRC(65) is Reaction_CKb2b in component Reaction_CKb2b (first_order_rate_constant).
C CONSTS(145) is kb24 in component Reaction_CKb2b (third_order_rate_constant).
C CONSTS(120) is kb42 in component Reaction_CKb2b (first_order_rate_constant).
C CONSTS(61) is kib in component Reaction_CKib (second_order_rate_constant).
C CONSTS(62) is kbi in component Reaction_CKib (first_order_rate_constant).
C ALGBRC(71) is Reaction_CKtt2 in component Reaction_CKtt2 (first_order_rate_constant).
C CONSTS(146) is kt24 in component Reaction_CKtt2 (third_order_rate_constant).
C CONSTS(121) is kt42 in component Reaction_CKtt2 (first_order_rate_constant).
C CONSTS(63) is kat in component Reaction_CKta (second_order_rate_constant).
C CONSTS(64) is kta in component Reaction_CKta (first_order_rate_constant).
C CONSTS(65) is kat2 in component Reaction_CKt2a (second_order_rate_constant).
C CONSTS(66) is kt2a in component Reaction_CKt2a (first_order_rate_constant).
C ALGBRC(83) is Reaction_CKt2b2 in component Reaction_CKt2b2 (first_order_rate_constant).
C ALGBRC(84) is Reaction_CKai in component Reaction_CKai (first_order_rate_constant).
C ALGBRC(82) is Ca2CaN in component Ca2CaN (micromolar).
C CONSTS(67) is CaNtot in component Ca2CaN (micromolar).
C STATES(30) is Ca4CaN in component Ca4CaN (micromolar).
C STATES(31) is CaMCaN in component CaMCaN (micromolar).
C STATES(32) is Ca2CaMCaN in component Ca2CaMCaN (micromolar).
C STATES(33) is Ca4CaMCaN in component Ca4CaMCaN (micromolar).
C ALGBRC(89) is Reaction_Ca4CaN in component Reaction_Ca4CaN (flux).
C CONSTS(68) is kCaNCa_on in component Reaction_Ca4CaN (third_order_rate_constant).
C CONSTS(69) is kCaNCa_off in component Reaction_Ca4CaN (first_order_rate_constant).
C ALGBRC(92) is Reaction_02CaN in component Reaction_02CaN (flux).
C CONSTS(147) is k02CaN in component Reaction_02CaN (third_order_rate_constant).
C CONSTS(122) is k20CaN in component Reaction_02CaN (first_order_rate_constant).
C ALGBRC(95) is Reaction_24CaN in component Reaction_24CaN (flux).
C CONSTS(148) is k24CaN in component Reaction_24CaN (third_order_rate_constant).
C CONSTS(123) is k42CaN in component Reaction_24CaN (first_order_rate_constant).
C CONSTS(70) is kCaN2_on in component Reaction_2CaN (second_order_rate_constant).
C CONSTS(71) is kCaN2_off in component Reaction_2CaN (first_order_rate_constant).
C CONSTS(72) is kCaN4_on in component Reaction_4CaN (second_order_rate_constant).
C CONSTS(73) is kCaN4_off in component Reaction_4CaN (first_order_rate_constant).
C CONSTS(74) is kCaN0_on in component Reaction_0CaN (second_order_rate_constant).
C CONSTS(75) is kCaN0_off in component Reaction_0CaN (first_order_rate_constant).
C ALGBRC(16) is Reaction_02 in component Reaction_02 (flux).
C CONSTS(135) is k02 in component Reaction_02 (third_order_rate_constant).
C CONSTS(76) is k20 in component Reaction_02 (first_order_rate_constant).
C CONSTS(124) is Kd02 in component Reaction_02 (micromolar2).
C CONSTS(77) is K in component model_parameters (micromolar).
C CONSTS(78) is Mg in component model_parameters (micromolar).
C CONSTS(79) is Ca in component model_parameters (micromolar).
C ALGBRC(24) is Reaction_24 in component Reaction_24 (flux).
C CONSTS(136) is k24 in component Reaction_24 (third_order_rate_constant).
C CONSTS(80) is k42 in component Reaction_24 (first_order_rate_constant).
C CONSTS(125) is Kd24 in component Reaction_24 (micromolar2).
C ALGBRC(27) is Reaction_02B in component Reaction_02B (flux).
C CONSTS(149) is k02B in component Reaction_02B (third_order_rate_constant).
C CONSTS(81) is k20B in component Reaction_02B (first_order_rate_constant).
C STATES(34) is CaMB in component CaMB (micromolar).
C STATES(35) is Ca2CaMB in component Ca2CaMB (micromolar).
C ALGBRC(30) is Reaction_24B in component Reaction_24B (flux).
C CONSTS(150) is k24B in component Reaction_24B (third_order_rate_constant).
C CONSTS(126) is k42B in component Reaction_24B (first_order_rate_constant).
C STATES(36) is Ca4CaMB in component Ca4CaMB (micromolar).
C ALGBRC(39) is Reaction_2B in component Reaction_2B (flux).
C CONSTS(82) is k2B_on in component Reaction_2B (second_order_rate_constant).
C CONSTS(83) is k2B_off in component Reaction_2B (first_order_rate_constant).
C ALGBRC(33) is B in component B (micromolar).
C ALGBRC(42) is Reaction_0B in component Reaction_0B (flux).
C CONSTS(84) is k0B_on in component Reaction_0B (second_order_rate_constant).
C CONSTS(85) is k0B_off in component Reaction_0B (first_order_rate_constant).
C ALGBRC(45) is Reaction_4B in component Reaction_4B (flux).
C CONSTS(86) is k4B_on in component Reaction_4B (second_order_rate_constant).
C CONSTS(87) is k4B_off in component Reaction_4B (first_order_rate_constant).
C CONSTS(88) is Btot in component B (micromolar).
C ALGBRC(105) is Reaction_0CaN in component Reaction_0CaN (flux).
C CONSTS(89) is CaMKIItot in component model_parameters (micromolar).
C ALGBRC(99) is Reaction_2CaN in component Reaction_2CaN (flux).
C ALGBRC(78) is Reaction_CKt2a in component Reaction_CKt2a (first_order_rate_constant).
C ALGBRC(63) is Reaction_CKib2 in component Reaction_CKib2 (first_order_rate_constant).
C ALGBRC(102) is Reaction_4CaN in component Reaction_4CaN (flux).
C ALGBRC(75) is Reaction_CKta in component Reaction_CKta (first_order_rate_constant).
C ALGBRC(69) is Reaction_CKib in component Reaction_CKib (first_order_rate_constant).
C ALGBRC(54) is CaMKIIi in component CaMKIIi (micromolar).
C ALGBRC(48) is Pi in component Pi (dimensionless).
C ALGBRC(17) is CaMKIIb2 in component CaMKIIb2 (micromolar).
C STATES(37) is Pb2 in component Pb2 (dimensionless).
C ALGBRC(18) is CaMKIIb in component CaMKIIb (micromolar).
C STATES(38) is Pb in component Pb (dimensionless).
C ALGBRC(19) is CaMKIIt in component CaMKIIt (micromolar).
C STATES(39) is Pt in component Pt (dimensionless).
C ALGBRC(20) is CaMKIIt2 in component CaMKIIt2 (micromolar).
C STATES(40) is Pt2 in component Pt2 (dimensionless).
C ALGBRC(21) is CaMKIIa in component CaMKIIa (micromolar).
C STATES(41) is Pa in component Pa (dimensionless).
C ALGBRC(53) is T in component T (dimensionless).
C ALGBRC(60) is Reaction_CKbt in component Reaction_CKbt (first_order_rate_constant).
C ALGBRC(57) is kbt in component Reaction_CKbt (first_order_rate_constant).
C CONSTS(90) is kPP1 in component model_parameters (first_order_rate_constant).
C CONSTS(91) is KmPP1 in component model_parameters (micromolar).
C CONSTS(92) is PP1tot in component model_parameters (micromolar).
C CONSTS(93) is kib2 in component Reaction_CKib2 (second_order_rate_constant).
C CONSTS(94) is kb2i in component Reaction_CKib2 (first_order_rate_constant).
C ALGBRC(66) is Reaction_CKb2b in component Reaction_CKb2b (first_order_rate_constant).
C CONSTS(151) is kb24 in component Reaction_CKb2b (third_order_rate_constant).
C CONSTS(127) is kb42 in component Reaction_CKb2b (first_order_rate_constant).
C CONSTS(95) is kib in component Reaction_CKib (second_order_rate_constant).
C CONSTS(96) is kbi in component Reaction_CKib (first_order_rate_constant).
C ALGBRC(72) is Reaction_CKtt2 in component Reaction_CKtt2 (first_order_rate_constant).
C CONSTS(152) is kt24 in component Reaction_CKtt2 (third_order_rate_constant).
C CONSTS(128) is kt42 in component Reaction_CKtt2 (first_order_rate_constant).
C CONSTS(97) is kat in component Reaction_CKta (second_order_rate_constant).
C CONSTS(98) is kta in component Reaction_CKta (first_order_rate_constant).
C CONSTS(99) is kat2 in component Reaction_CKt2a (second_order_rate_constant).
C CONSTS(100) is kt2a in component Reaction_CKt2a (first_order_rate_constant).
C ALGBRC(86) is Reaction_CKt2b2 in component Reaction_CKt2b2 (first_order_rate_constant).
C ALGBRC(87) is Reaction_CKai in component Reaction_CKai (first_order_rate_constant).
C ALGBRC(85) is Ca2CaN in component Ca2CaN (micromolar).
C CONSTS(101) is CaNtot in component Ca2CaN (micromolar).
C STATES(42) is Ca4CaN in component Ca4CaN (micromolar).
C STATES(43) is CaMCaN in component CaMCaN (micromolar).
C STATES(44) is Ca2CaMCaN in component Ca2CaMCaN (micromolar).
C STATES(45) is Ca4CaMCaN in component Ca4CaMCaN (micromolar).
C ALGBRC(90) is Reaction_Ca4CaN in component Reaction_Ca4CaN (flux).
C CONSTS(102) is kCaNCa_on in component Reaction_Ca4CaN (third_order_rate_constant).
C CONSTS(103) is kCaNCa_off in component Reaction_Ca4CaN (first_order_rate_constant).
C ALGBRC(93) is Reaction_02CaN in component Reaction_02CaN (flux).
C CONSTS(153) is k02CaN in component Reaction_02CaN (third_order_rate_constant).
C CONSTS(129) is k20CaN in component Reaction_02CaN (first_order_rate_constant).
C ALGBRC(96) is Reaction_24CaN in component Reaction_24CaN (flux).
C CONSTS(154) is k24CaN in component Reaction_24CaN (third_order_rate_constant).
C CONSTS(130) is k42CaN in component Reaction_24CaN (first_order_rate_constant).
C CONSTS(104) is kCaN2_on in component Reaction_2CaN (second_order_rate_constant).
C CONSTS(105) is kCaN2_off in component Reaction_2CaN (first_order_rate_constant).
C CONSTS(106) is kCaN4_on in component Reaction_4CaN (second_order_rate_constant).
C CONSTS(107) is kCaN4_off in component Reaction_4CaN (first_order_rate_constant).
C CONSTS(108) is kCaN0_on in component Reaction_0CaN (second_order_rate_constant).
C CONSTS(109) is kCaN0_off in component Reaction_0CaN (first_order_rate_constant).
C RATES(1) is d/dt CaM in component CaM (micromolar).
C RATES(3) is d/dt Ca2CaM in component Ca2CaM (micromolar).
C RATES(5) is d/dt Ca4CaM in component Ca4CaM (micromolar).
C RATES(10) is d/dt CaMB in component CaMB (micromolar).
C RATES(11) is d/dt Ca2CaMB in component Ca2CaMB (micromolar).
C RATES(12) is d/dt Ca4CaMB in component Ca4CaMB (micromolar).
C RATES(13) is d/dt Pb2 in component Pb2 (dimensionless).
C RATES(14) is d/dt Pb in component Pb (dimensionless).
C RATES(15) is d/dt Pt in component Pt (dimensionless).
C RATES(16) is d/dt Pt2 in component Pt2 (dimensionless).
C RATES(17) is d/dt Pa in component Pa (dimensionless).
C RATES(18) is d/dt Ca4CaN in component Ca4CaN (micromolar).
C RATES(19) is d/dt CaMCaN in component CaMCaN (micromolar).
C RATES(20) is d/dt Ca2CaMCaN in component Ca2CaMCaN (micromolar).
C RATES(21) is d/dt Ca4CaMCaN in component Ca4CaMCaN (micromolar).
C RATES(2) is d/dt CaM in component CaM (micromolar).
C RATES(4) is d/dt Ca2CaM in component Ca2CaM (micromolar).
C RATES(6) is d/dt Ca4CaM in component Ca4CaM (micromolar).
C RATES(22) is d/dt CaMB in component CaMB (micromolar).
C RATES(23) is d/dt Ca2CaMB in component Ca2CaMB (micromolar).
C RATES(24) is d/dt Ca4CaMB in component Ca4CaMB (micromolar).
C RATES(25) is d/dt Pb2 in component Pb2 (dimensionless).
C RATES(26) is d/dt Pb in component Pb (dimensionless).
C RATES(27) is d/dt Pt in component Pt (dimensionless).
C RATES(28) is d/dt Pt2 in component Pt2 (dimensionless).
C RATES(29) is d/dt Pa in component Pa (dimensionless).
C RATES(30) is d/dt Ca4CaN in component Ca4CaN (micromolar).
C RATES(31) is d/dt CaMCaN in component CaMCaN (micromolar).
C RATES(32) is d/dt Ca2CaMCaN in component Ca2CaMCaN (micromolar).
C RATES(33) is d/dt Ca4CaMCaN in component Ca4CaMCaN (micromolar).
C RATES(7) is d/dt CaM in component CaM (micromolar).
C RATES(8) is d/dt Ca2CaM in component Ca2CaM (micromolar).
C RATES(9) is d/dt Ca4CaM in component Ca4CaM (micromolar).
C RATES(34) is d/dt CaMB in component CaMB (micromolar).
C RATES(35) is d/dt Ca2CaMB in component Ca2CaMB (micromolar).
C RATES(36) is d/dt Ca4CaMB in component Ca4CaMB (micromolar).
C RATES(37) is d/dt Pb2 in component Pb2 (dimensionless).
C RATES(38) is d/dt Pb in component Pb (dimensionless).
C RATES(39) is d/dt Pt in component Pt (dimensionless).
C RATES(40) is d/dt Pt2 in component Pt2 (dimensionless).
C RATES(41) is d/dt Pa in component Pa (dimensionless).
C RATES(42) is d/dt Ca4CaN in component Ca4CaN (micromolar).
C RATES(43) is d/dt CaMCaN in component CaMCaN (micromolar).
C RATES(44) is d/dt Ca2CaMCaN in component Ca2CaMCaN (micromolar).
C RATES(45) is d/dt Ca4CaMCaN in component Ca4CaMCaN (micromolar).
C
SUBROUTINE initConsts(CONSTS, RATES, STATES)
REAL CONSTS(*), RATES(*), STATES(*)
CONSTS(1) = 0.007
CONSTS(2) = 0.0014
STATES(1) = 0.1
STATES(2) = 0.1
CONSTS(3) = 0.007
CONSTS(4) = 0.000014
STATES(3) = 0.1
STATES(4) = 0.1
CONSTS(5) = 0.007
CONSTS(6) = 0.000014
STATES(5) = 0.1
STATES(6) = 0.1
CONSTS(7) = 8.59E-12
STATES(7) = 0.1
STATES(8) = 0.1
STATES(9) = 0.1
CONSTS(8) = 10.0
CONSTS(9) = 135
CONSTS(10) = 1
CONSTS(11) = 1
CONSTS(12) = 500.0
CONSTS(13) = 0.1
STATES(10) = 0.1
STATES(11) = 0.1
STATES(12) = 0.1
CONSTS(14) = 0.007
CONSTS(15) = 0.000014
CONSTS(16) = 0.007
CONSTS(17) = 0.0014
CONSTS(18) = 0.007
CONSTS(19) = 0.000014
CONSTS(20) = 1860.0
CONSTS(21) = 120.0
STATES(13) = 0.1
STATES(14) = 0.1
STATES(15) = 0.1
STATES(16) = 0.1
STATES(17) = 0.1
CONSTS(22) = 1.72
CONSTS(23) = 11.5
CONSTS(24) = 96.5
CONSTS(25) = 65.67
CONSTS(26) = 328.36
CONSTS(27) = 6.567
CONSTS(28) = 2.2
CONSTS(29) = 6.567
CONSTS(30) = 0.0022
CONSTS(31) = 6.567
CONSTS(32) = 32.835
CONSTS(33) = 3.62
STATES(18) = 0.1
STATES(19) = 0.1
STATES(20) = 0.1
STATES(21) = 0.1
CONSTS(34) = 2.0
CONSTS(35) = 1.0
CONSTS(36) = 46.0
CONSTS(37) = 3.2604
CONSTS(38) = 46.0
CONSTS(39) = 1.3E-3
CONSTS(40) = 46.0
CONSTS(41) = 537.966
CONSTS(42) = 10.0
CONSTS(43) = 135
CONSTS(44) = 1
CONSTS(45) = 1
CONSTS(46) = 500.0
CONSTS(47) = 0.1
STATES(22) = 0.1
STATES(23) = 0.1
STATES(24) = 0.1
CONSTS(48) = 0.007
CONSTS(49) = 0.000014
CONSTS(50) = 0.007
CONSTS(51) = 0.0014
CONSTS(52) = 0.007
CONSTS(53) = 0.000014
CONSTS(54) = 24.5
CONSTS(55) = 0.2
STATES(25) = 0.1
STATES(26) = 0.1
STATES(27) = 0.1
STATES(28) = 0.1
STATES(29) = 0.1
CONSTS(56) = 1.72
CONSTS(57) = 11.5
CONSTS(58) = 0.57
CONSTS(59) = 65.67
CONSTS(60) = 328.36
CONSTS(61) = 6.567
CONSTS(62) = 2.2
CONSTS(63) = 6.567
CONSTS(64) = 0.0022
CONSTS(65) = 6.567
CONSTS(66) = 32.835
CONSTS(67) = 3E-3
STATES(30) = 0.1
STATES(31) = 0.1
STATES(32) = 0.1
STATES(33) = 0.1
CONSTS(68) = 2.0
CONSTS(69) = 1.0
CONSTS(70) = 46.0
CONSTS(71) = 3.2604
CONSTS(72) = 46.0
CONSTS(73) = 1.3E-3
CONSTS(74) = 46.0
CONSTS(75) = 537.966
CONSTS(76) = 10.0
CONSTS(77) = 135
CONSTS(78) = 1
CONSTS(79) = 1
CONSTS(80) = 500.0
CONSTS(81) = 0.1
STATES(34) = 0.1
STATES(35) = 0.1
STATES(36) = 0.1
CONSTS(82) = 0.007
CONSTS(83) = 0.000014
CONSTS(84) = 0.007
CONSTS(85) = 0.0014
CONSTS(86) = 0.007
CONSTS(87) = 0.000014
CONSTS(88) = 24.5
CONSTS(89) = 0.2
STATES(37) = 0.1
STATES(38) = 0.1
STATES(39) = 0.1
STATES(40) = 0.1
STATES(41) = 0.1
CONSTS(90) = 1.72
CONSTS(91) = 11.5
CONSTS(92) = 0.57
CONSTS(93) = 65.67
CONSTS(94) = 328.36
CONSTS(95) = 6.567
CONSTS(96) = 2.2
CONSTS(97) = 6.567
CONSTS(98) = 0.0022
CONSTS(99) = 6.567
CONSTS(100) = 32.835
CONSTS(101) = 3E-3
STATES(42) = 0.1
STATES(43) = 0.1
STATES(44) = 0.1
STATES(45) = 0.1
CONSTS(102) = 2.0
CONSTS(103) = 1.0
CONSTS(104) = 46.0
CONSTS(105) = 3.2604
CONSTS(106) = 46.0
CONSTS(107) = 1.3E-3
CONSTS(108) = 46.0
CONSTS(109) = 537.966
CONSTS(110) = TERNRY(CONSTS(10).LE.1.00000, 0.00250000*((1.00000+CONSTS(9)/0.940000) - CONSTS(10)/0.0120000)*(1.00000+CONSTS(9)/8.10000+CONSTS(10)/0.0220000), 0.00250000*((1.00000+CONSTS(9)/0.940000+(CONSTS(10) - 1.00000)/0.0600000) - 1.00000/0.0120000)*(1.00000+CONSTS(9)/8.10000+1.00000/0.0220000+(CONSTS(10) - 1.00000)/0.0680000))
CONSTS(111) = TERNRY(CONSTS(10).LE.1.00000, 0.128000*(1.00000+CONSTS(9)/0.640000+CONSTS(10)/0.0140000)*((1.00000+CONSTS(9)/13.0000) - CONSTS(10)/0.153000), 0.128000*(1.00000+CONSTS(9)/0.640000+(CONSTS(10) - 1.00000)/0.00500000)*(1.00000/0.0120000)*((1.00000+CONSTS(9)/13.0000+(CONSTS(10) - 1.00000)/0.150000) - 1.00000/0.153000))
CONSTS(112) = CONSTS(12)
CONSTS(113) = CONSTS(12)*(0.0335000/5.00000)
CONSTS(114) = CONSTS(12)*(3.35000e-05/5.00000)
CONSTS(115) = CONSTS(8)/160.000
CONSTS(116) = CONSTS(12)/2508.00
CONSTS(117) = TERNRY(CONSTS(44).LE.1.00000, 0.00250000*((1.00000+CONSTS(43)/0.940000) - CONSTS(44)/0.0120000)*(1.00000+CONSTS(43)/8.10000+CONSTS(44)/0.0220000), 0.00250000*((1.00000+CONSTS(43)/0.940000+(CONSTS(44) - 1.00000)/0.0600000) - 1.00000/0.0120000)*(1.00000+CONSTS(43)/8.10000+1.00000/0.0220000+(CONSTS(44) - 1.00000)/0.0680000))
CONSTS(118) = TERNRY(CONSTS(44).LE.1.00000, 0.128000*(1.00000+CONSTS(43)/0.640000+CONSTS(44)/0.0140000)*((1.00000+CONSTS(43)/13.0000) - CONSTS(44)/0.153000), 0.128000*(1.00000+CONSTS(43)/0.640000+(CONSTS(44) - 1.00000)/0.00500000)*(1.00000/0.0120000)*((1.00000+CONSTS(43)/13.0000+(CONSTS(44) - 1.00000)/0.150000) - 1.00000/0.153000))
CONSTS(119) = CONSTS(46)
CONSTS(120) = CONSTS(46)*(0.0335000/5.00000)
CONSTS(121) = CONSTS(46)*(3.35000e-05/5.00000)
CONSTS(122) = CONSTS(42)/160.000
CONSTS(123) = CONSTS(46)/2508.00
CONSTS(124) = TERNRY(CONSTS(78).LE.1.00000, 0.00250000*((1.00000+CONSTS(77)/0.940000) - CONSTS(78)/0.0120000)*(1.00000+CONSTS(77)/8.10000+CONSTS(78)/0.0220000), 0.00250000*((1.00000+CONSTS(77)/0.940000+(CONSTS(78) - 1.00000)/0.0600000) - 1.00000/0.0120000)*(1.00000+CONSTS(77)/8.10000+1.00000/0.0220000+(CONSTS(78) - 1.00000)/0.0680000))
CONSTS(125) = TERNRY(CONSTS(78).LE.1.00000, 0.128000*(1.00000+CONSTS(77)/0.640000+CONSTS(78)/0.0140000)*((1.00000+CONSTS(77)/13.0000) - CONSTS(78)/0.153000), 0.128000*(1.00000+CONSTS(77)/0.640000+(CONSTS(78) - 1.00000)/0.00500000)*(1.00000/0.0120000)*((1.00000+CONSTS(77)/13.0000+(CONSTS(78) - 1.00000)/0.150000) - 1.00000/0.153000))
CONSTS(126) = CONSTS(80)
CONSTS(127) = CONSTS(80)*(0.0335000/5.00000)
CONSTS(128) = CONSTS(80)*(3.35000e-05/5.00000)
CONSTS(129) = CONSTS(76)/160.000
CONSTS(130) = CONSTS(80)/2508.00
CONSTS(131) = CONSTS(8)/CONSTS(110)
CONSTS(132) = CONSTS(12)/CONSTS(111)
CONSTS(133) = CONSTS(42)/CONSTS(117)
CONSTS(134) = CONSTS(46)/CONSTS(118)
CONSTS(135) = CONSTS(76)/CONSTS(124)
CONSTS(136) = CONSTS(80)/CONSTS(125)
CONSTS(137) = CONSTS(131)
CONSTS(138) = CONSTS(132)
CONSTS(139) = CONSTS(132)
CONSTS(140) = CONSTS(132)
CONSTS(141) = CONSTS(131)
CONSTS(142) = CONSTS(132)
CONSTS(143) = CONSTS(133)
CONSTS(144) = CONSTS(134)
CONSTS(145) = CONSTS(134)
CONSTS(146) = CONSTS(134)
CONSTS(147) = CONSTS(133)
CONSTS(148) = CONSTS(134)
CONSTS(149) = CONSTS(135)
CONSTS(150) = CONSTS(136)
CONSTS(151) = CONSTS(136)
CONSTS(152) = CONSTS(136)
CONSTS(153) = CONSTS(135)
CONSTS(154) = CONSTS(136)
RETURN
END
SUBROUTINE computeRates(VOI, CONSTS, RATES, STATES, ALGBRC)
REAL VOI, CONSTS(*), RATES(*), STATES(*), ALGBRC(*)
ALGBRC(25) = CONSTS(137)*CONSTS(11) ** 2.00000*STATES(10) - CONSTS(13)*STATES(11)
ALGBRC(28) = CONSTS(138)*CONSTS(11) ** 2.00000*STATES(11) - CONSTS(112)*STATES(12)
ALGBRC(31) = CONSTS(20) - (STATES(10)+STATES(11)+STATES(12))
ALGBRC(37) = CONSTS(14)*STATES(3)*ALGBRC(31) - CONSTS(15)*STATES(11)
RATES(11) = 0.00100000*((ALGBRC(25)+ALGBRC(37)) - ALGBRC(28))
ALGBRC(26) = CONSTS(143)*CONSTS(45) ** 2.00000*STATES(22) - CONSTS(47)*STATES(23)
ALGBRC(29) = CONSTS(144)*CONSTS(45) ** 2.00000*STATES(23) - CONSTS(119)*STATES(24)
ALGBRC(32) = CONSTS(54) - (STATES(22)+STATES(23)+STATES(24))
ALGBRC(38) = CONSTS(48)*STATES(4)*ALGBRC(32) - CONSTS(49)*STATES(23)
RATES(23) = 0.00100000*((ALGBRC(26)+ALGBRC(38)) - ALGBRC(29))
ALGBRC(27) = CONSTS(149)*CONSTS(79) ** 2.00000*STATES(34) - CONSTS(81)*STATES(35)
ALGBRC(30) = CONSTS(150)*CONSTS(79) ** 2.00000*STATES(35) - CONSTS(126)*STATES(36)
ALGBRC(33) = CONSTS(88) - (STATES(34)+STATES(35)+STATES(36))
ALGBRC(39) = CONSTS(82)*STATES(8)*ALGBRC(33) - CONSTS(83)*STATES(35)
RATES(35) = 0.00100000*((ALGBRC(27)+ALGBRC(39)) - ALGBRC(30))
ALGBRC(40) = CONSTS(16)*STATES(1)*ALGBRC(31) - CONSTS(17)*STATES(10)
RATES(10) = 0.00100000*(ALGBRC(40) - ALGBRC(25))
ALGBRC(41) = CONSTS(50)*STATES(2)*ALGBRC(32) - CONSTS(51)*STATES(22)
RATES(22) = 0.00100000*(ALGBRC(41) - ALGBRC(26))
ALGBRC(42) = CONSTS(84)*STATES(7)*ALGBRC(33) - CONSTS(85)*STATES(34)
RATES(34) = 0.00100000*(ALGBRC(42) - ALGBRC(27))
ALGBRC(43) = CONSTS(18)*STATES(5)*ALGBRC(31) - CONSTS(19)*STATES(12)
RATES(12) = 0.00100000*(ALGBRC(28)+ALGBRC(43))
ALGBRC(44) = CONSTS(52)*STATES(6)*ALGBRC(32) - CONSTS(53)*STATES(24)
RATES(24) = 0.00100000*(ALGBRC(29)+ALGBRC(44))
ALGBRC(45) = CONSTS(86)*STATES(9)*ALGBRC(33) - CONSTS(87)*STATES(36)
RATES(36) = 0.00100000*(ALGBRC(30)+ALGBRC(45))
ALGBRC(46) = 1.00000 - (STATES(14)+STATES(13)+STATES(15)+STATES(16)+STATES(17))
ALGBRC(67) = CONSTS(27)*STATES(5)*ALGBRC(46) - CONSTS(28)*STATES(14)
ALGBRC(49) = STATES(14)+STATES(15)+STATES(16)+STATES(17)
ALGBRC(55) = 0.0550000*ALGBRC(49)+ 0.00740000*ALGBRC(49) ** 2.00000+ 0.0150000*ALGBRC(49) ** 3.00000
ALGBRC(58) = ALGBRC(55)*STATES(14) - ( CONSTS(22)*CONSTS(24)*STATES(15))/(CONSTS(23)+ CONSTS(21)*STATES(15))
ALGBRC(64) = CONSTS(139)*CONSTS(11) ** 2.00000*STATES(13) - CONSTS(113)*STATES(13)
RATES(14) = 0.00100000*((ALGBRC(67)+ALGBRC(64)) - ALGBRC(58))
ALGBRC(47) = 1.00000 - (STATES(26)+STATES(25)+STATES(27)+STATES(28)+STATES(29))
ALGBRC(68) = CONSTS(61)*STATES(6)*ALGBRC(47) - CONSTS(62)*STATES(26)
ALGBRC(51) = STATES(26)+STATES(27)+STATES(28)+STATES(29)
ALGBRC(56) = 0.0550000*ALGBRC(51)+ 0.00740000*ALGBRC(51) ** 2.00000+ 0.0150000*ALGBRC(51) ** 3.00000
ALGBRC(59) = ALGBRC(56)*STATES(26) - ( CONSTS(56)*CONSTS(58)*STATES(27))/(CONSTS(57)+ CONSTS(55)*STATES(27))
ALGBRC(65) = CONSTS(145)*CONSTS(45) ** 2.00000*STATES(25) - CONSTS(120)*STATES(25)
RATES(26) = 0.00100000*((ALGBRC(68)+ALGBRC(65)) - ALGBRC(59))
ALGBRC(48) = 1.00000 - (STATES(38)+STATES(37)+STATES(39)+STATES(40)+STATES(41))
ALGBRC(69) = CONSTS(95)*STATES(9)*ALGBRC(48) - CONSTS(96)*STATES(38)
ALGBRC(53) = STATES(38)+STATES(39)+STATES(40)+STATES(41)
ALGBRC(57) = 0.0550000*ALGBRC(53)+ 0.00740000*ALGBRC(53) ** 2.00000+ 0.0150000*ALGBRC(53) ** 3.00000
ALGBRC(60) = ALGBRC(57)*STATES(38) - ( CONSTS(90)*CONSTS(92)*STATES(39))/(CONSTS(91)+ CONSTS(89)*STATES(39))
ALGBRC(66) = CONSTS(151)*CONSTS(79) ** 2.00000*STATES(37) - CONSTS(127)*STATES(37)
RATES(38) = 0.00100000*((ALGBRC(69)+ALGBRC(66)) - ALGBRC(60))
ALGBRC(73) = CONSTS(30)*STATES(15) - CONSTS(29)*STATES(5)*STATES(17)
ALGBRC(70) = CONSTS(114)*STATES(15) - CONSTS(140)*CONSTS(11) ** 2.00000*STATES(16)
RATES(15) = 0.00100000*- (ALGBRC(58)+ALGBRC(73)+ALGBRC(70))
ALGBRC(74) = CONSTS(64)*STATES(27) - CONSTS(63)*STATES(6)*STATES(29)
ALGBRC(71) = CONSTS(121)*STATES(27) - CONSTS(146)*CONSTS(45) ** 2.00000*STATES(28)
RATES(27) = 0.00100000*- (ALGBRC(59)+ALGBRC(74)+ALGBRC(71))
ALGBRC(75) = CONSTS(98)*STATES(39) - CONSTS(97)*STATES(9)*STATES(41)
ALGBRC(72) = CONSTS(128)*STATES(39) - CONSTS(152)*CONSTS(79) ** 2.00000*STATES(40)
RATES(39) = 0.00100000*- (ALGBRC(60)+ALGBRC(75)+ALGBRC(72))
ALGBRC(61) = CONSTS(25)*STATES(3)*ALGBRC(46) - CONSTS(26)*STATES(13)
ALGBRC(80) = ( CONSTS(22)*CONSTS(24)*STATES(16))/(CONSTS(23)+ CONSTS(21)*STATES(16))
RATES(13) = 0.00100000*(ALGBRC(80) - (ALGBRC(61)+ALGBRC(64)))
ALGBRC(76) = CONSTS(32)*STATES(16) - CONSTS(31)*STATES(3)*STATES(17)
RATES(16) = 0.00100000*- (ALGBRC(70)+ALGBRC(76)+ALGBRC(80))
ALGBRC(81) = ( CONSTS(22)*CONSTS(24)*STATES(17))/(CONSTS(23)+ CONSTS(21)*STATES(17))
RATES(17) = 0.00100000*((ALGBRC(73)+ALGBRC(76)) - ALGBRC(81))
ALGBRC(62) = CONSTS(59)*STATES(4)*ALGBRC(47) - CONSTS(60)*STATES(25)
ALGBRC(83) = ( CONSTS(56)*CONSTS(58)*STATES(28))/(CONSTS(57)+ CONSTS(55)*STATES(28))
RATES(25) = 0.00100000*(ALGBRC(83) - (ALGBRC(62)+ALGBRC(65)))
ALGBRC(77) = CONSTS(66)*STATES(28) - CONSTS(65)*STATES(4)*STATES(29)
RATES(28) = 0.00100000*- (ALGBRC(71)+ALGBRC(77)+ALGBRC(83))
ALGBRC(84) = ( CONSTS(56)*CONSTS(58)*STATES(29))/(CONSTS(57)+ CONSTS(55)*STATES(29))
RATES(29) = 0.00100000*((ALGBRC(74)+ALGBRC(77)) - ALGBRC(84))
ALGBRC(63) = CONSTS(93)*STATES(8)*ALGBRC(48) - CONSTS(94)*STATES(37)
ALGBRC(86) = ( CONSTS(90)*CONSTS(92)*STATES(40))/(CONSTS(91)+ CONSTS(89)*STATES(40))
RATES(37) = 0.00100000*(ALGBRC(86) - (ALGBRC(63)+ALGBRC(66)))
ALGBRC(78) = CONSTS(100)*STATES(40) - CONSTS(99)*STATES(8)*STATES(41)
RATES(40) = 0.00100000*- (ALGBRC(72)+ALGBRC(78)+ALGBRC(86))
ALGBRC(87) = ( CONSTS(90)*CONSTS(92)*STATES(41))/(CONSTS(91)+ CONSTS(89)*STATES(41))
RATES(41) = 0.00100000*((ALGBRC(75)+ALGBRC(78)) - ALGBRC(87))
ALGBRC(1) = CONSTS(131)*CONSTS(11) ** 2.00000*STATES(1) - CONSTS(8)*STATES(3)
ALGBRC(22) = CONSTS(132)*CONSTS(11) ** 2.00000*STATES(3) - CONSTS(12)*STATES(5)
ALGBRC(97) = CONSTS(36)*STATES(3)*STATES(18) - CONSTS(37)*STATES(20)
RATES(3) = 0.00100000*(( CONSTS(21)*(ALGBRC(76) - ALGBRC(61))+ALGBRC(1)) - (ALGBRC(22)+ALGBRC(37)+ALGBRC(97)))
ALGBRC(91) = CONSTS(141)*CONSTS(11) ** 2.00000*STATES(19) - CONSTS(115)*STATES(20)
ALGBRC(94) = CONSTS(142)*CONSTS(11) ** 2.00000*STATES(20) - CONSTS(116)*STATES(21)
RATES(20) = 0.00100000*((ALGBRC(97)+ALGBRC(91)) - ALGBRC(94))
ALGBRC(10) = CONSTS(133)*CONSTS(45) ** 2.00000*STATES(2) - CONSTS(42)*STATES(4)
ALGBRC(23) = CONSTS(134)*CONSTS(45) ** 2.00000*STATES(4) - CONSTS(46)*STATES(6)
ALGBRC(98) = CONSTS(70)*STATES(4)*STATES(30) - CONSTS(71)*STATES(32)
RATES(4) = 0.00100000*(( CONSTS(55)*(ALGBRC(77) - ALGBRC(62))+ALGBRC(10)) - (ALGBRC(23)+ALGBRC(38)+ALGBRC(98)))
ALGBRC(92) = CONSTS(147)*CONSTS(45) ** 2.00000*STATES(31) - CONSTS(122)*STATES(32)
ALGBRC(95) = CONSTS(148)*CONSTS(45) ** 2.00000*STATES(32) - CONSTS(123)*STATES(33)
RATES(32) = 0.00100000*((ALGBRC(98)+ALGBRC(92)) - ALGBRC(95))
ALGBRC(16) = CONSTS(135)*CONSTS(79) ** 2.00000*STATES(7) - CONSTS(76)*STATES(8)
ALGBRC(24) = CONSTS(136)*CONSTS(79) ** 2.00000*STATES(8) - CONSTS(80)*STATES(9)
ALGBRC(99) = CONSTS(104)*STATES(8)*STATES(42) - CONSTS(105)*STATES(44)
RATES(8) = 0.00100000*(( CONSTS(89)*(ALGBRC(78) - ALGBRC(63))+ALGBRC(16)) - (ALGBRC(24)+ALGBRC(39)+ALGBRC(99)))
ALGBRC(93) = CONSTS(153)*CONSTS(79) ** 2.00000*STATES(43) - CONSTS(129)*STATES(44)
ALGBRC(96) = CONSTS(154)*CONSTS(79) ** 2.00000*STATES(44) - CONSTS(130)*STATES(45)
RATES(44) = 0.00100000*((ALGBRC(99)+ALGBRC(93)) - ALGBRC(96))
ALGBRC(100) = CONSTS(38)*STATES(5)*STATES(18) - CONSTS(39)*STATES(21)
RATES(5) = 0.00100000*(( CONSTS(21)*(ALGBRC(73) - ALGBRC(67))+ALGBRC(22)) - (ALGBRC(100)+ALGBRC(43)))
RATES(21) = 0.00100000*(ALGBRC(100)+ALGBRC(94))
ALGBRC(101) = CONSTS(72)*STATES(6)*STATES(30) - CONSTS(73)*STATES(33)
RATES(6) = 0.00100000*(( CONSTS(55)*(ALGBRC(74) - ALGBRC(68))+ALGBRC(23)) - (ALGBRC(101)+ALGBRC(44)))
RATES(33) = 0.00100000*(ALGBRC(101)+ALGBRC(95))
ALGBRC(102) = CONSTS(106)*STATES(9)*STATES(42) - CONSTS(107)*STATES(45)
RATES(9) = 0.00100000*(( CONSTS(89)*(ALGBRC(75) - ALGBRC(69))+ALGBRC(24)) - (ALGBRC(102)+ALGBRC(45)))
RATES(45) = 0.00100000*(ALGBRC(102)+ALGBRC(96))
ALGBRC(103) = CONSTS(40)*STATES(1)*STATES(18) - CONSTS(41)*STATES(19)
RATES(1) = 0.00100000*- (ALGBRC(1)+ALGBRC(40)+ALGBRC(103))
ALGBRC(79) = CONSTS(33) - (STATES(18)+STATES(19)+STATES(20)+STATES(21))
ALGBRC(88) = CONSTS(34)*CONSTS(11) ** 2.00000*ALGBRC(79) - CONSTS(35)*STATES(18)
RATES(18) = 0.00100000*(ALGBRC(88) - (ALGBRC(103)+ALGBRC(97)+ALGBRC(100)))
RATES(19) = 0.00100000*(ALGBRC(103) - ALGBRC(91))
ALGBRC(104) = CONSTS(74)*STATES(2)*STATES(30) - CONSTS(75)*STATES(31)
RATES(2) = 0.00100000*- (ALGBRC(10)+ALGBRC(41)+ALGBRC(104))
ALGBRC(82) = CONSTS(67) - (STATES(30)+STATES(31)+STATES(32)+STATES(33))
ALGBRC(89) = CONSTS(68)*CONSTS(45) ** 2.00000*ALGBRC(82) - CONSTS(69)*STATES(30)
RATES(30) = 0.00100000*(ALGBRC(89) - (ALGBRC(104)+ALGBRC(98)+ALGBRC(101)))
RATES(31) = 0.00100000*(ALGBRC(104) - ALGBRC(92))
ALGBRC(105) = CONSTS(108)*STATES(7)*STATES(42) - CONSTS(109)*STATES(43)
RATES(7) = 0.00100000*- (ALGBRC(16)+ALGBRC(42)+ALGBRC(105))
ALGBRC(85) = CONSTS(101) - (STATES(42)+STATES(43)+STATES(44)+STATES(45))
ALGBRC(90) = CONSTS(102)*CONSTS(79) ** 2.00000*ALGBRC(85) - CONSTS(103)*STATES(42)
RATES(42) = 0.00100000*(ALGBRC(90) - (ALGBRC(105)+ALGBRC(99)+ALGBRC(102)))
RATES(43) = 0.00100000*(ALGBRC(105) - ALGBRC(93))
RETURN
END
SUBROUTINE computeVariables(VOI, CONSTS, RATES, STATES, ALGBRC)
REAL VOI, CONSTS(*), RATES(*), STATES(*), ALGBRC(*)
ALGBRC(25) = CONSTS(137)*CONSTS(11) ** 2.00000*STATES(10) - CONSTS(13)*STATES(11)
ALGBRC(28) = CONSTS(138)*CONSTS(11) ** 2.00000*STATES(11) - CONSTS(112)*STATES(12)
ALGBRC(31) = CONSTS(20) - (STATES(10)+STATES(11)+STATES(12))
ALGBRC(37) = CONSTS(14)*STATES(3)*ALGBRC(31) - CONSTS(15)*STATES(11)
ALGBRC(26) = CONSTS(143)*CONSTS(45) ** 2.00000*STATES(22) - CONSTS(47)*STATES(23)
ALGBRC(29) = CONSTS(144)*CONSTS(45) ** 2.00000*STATES(23) - CONSTS(119)*STATES(24)
ALGBRC(32) = CONSTS(54) - (STATES(22)+STATES(23)+STATES(24))
ALGBRC(38) = CONSTS(48)*STATES(4)*ALGBRC(32) - CONSTS(49)*STATES(23)
ALGBRC(27) = CONSTS(149)*CONSTS(79) ** 2.00000*STATES(34) - CONSTS(81)*STATES(35)
ALGBRC(30) = CONSTS(150)*CONSTS(79) ** 2.00000*STATES(35) - CONSTS(126)*STATES(36)
ALGBRC(33) = CONSTS(88) - (STATES(34)+STATES(35)+STATES(36))
ALGBRC(39) = CONSTS(82)*STATES(8)*ALGBRC(33) - CONSTS(83)*STATES(35)
ALGBRC(40) = CONSTS(16)*STATES(1)*ALGBRC(31) - CONSTS(17)*STATES(10)
ALGBRC(41) = CONSTS(50)*STATES(2)*ALGBRC(32) - CONSTS(51)*STATES(22)
ALGBRC(42) = CONSTS(84)*STATES(7)*ALGBRC(33) - CONSTS(85)*STATES(34)
ALGBRC(43) = CONSTS(18)*STATES(5)*ALGBRC(31) - CONSTS(19)*STATES(12)
ALGBRC(44) = CONSTS(52)*STATES(6)*ALGBRC(32) - CONSTS(53)*STATES(24)
ALGBRC(45) = CONSTS(86)*STATES(9)*ALGBRC(33) - CONSTS(87)*STATES(36)
ALGBRC(46) = 1.00000 - (STATES(14)+STATES(13)+STATES(15)+STATES(16)+STATES(17))
ALGBRC(67) = CONSTS(27)*STATES(5)*ALGBRC(46) - CONSTS(28)*STATES(14)
ALGBRC(49) = STATES(14)+STATES(15)+STATES(16)+STATES(17)
ALGBRC(55) = 0.0550000*ALGBRC(49)+ 0.00740000*ALGBRC(49) ** 2.00000+ 0.0150000*ALGBRC(49) ** 3.00000
ALGBRC(58) = ALGBRC(55)*STATES(14) - ( CONSTS(22)*CONSTS(24)*STATES(15))/(CONSTS(23)+ CONSTS(21)*STATES(15))
ALGBRC(64) = CONSTS(139)*CONSTS(11) ** 2.00000*STATES(13) - CONSTS(113)*STATES(13)
ALGBRC(47) = 1.00000 - (STATES(26)+STATES(25)+STATES(27)+STATES(28)+STATES(29))
ALGBRC(68) = CONSTS(61)*STATES(6)*ALGBRC(47) - CONSTS(62)*STATES(26)
ALGBRC(51) = STATES(26)+STATES(27)+STATES(28)+STATES(29)
ALGBRC(56) = 0.0550000*ALGBRC(51)+ 0.00740000*ALGBRC(51) ** 2.00000+ 0.0150000*ALGBRC(51) ** 3.00000
ALGBRC(59) = ALGBRC(56)*STATES(26) - ( CONSTS(56)*CONSTS(58)*STATES(27))/(CONSTS(57)+ CONSTS(55)*STATES(27))
ALGBRC(65) = CONSTS(145)*CONSTS(45) ** 2.00000*STATES(25) - CONSTS(120)*STATES(25)
ALGBRC(48) = 1.00000 - (STATES(38)+STATES(37)+STATES(39)+STATES(40)+STATES(41))
ALGBRC(69) = CONSTS(95)*STATES(9)*ALGBRC(48) - CONSTS(96)*STATES(38)
ALGBRC(53) = STATES(38)+STATES(39)+STATES(40)+STATES(41)
ALGBRC(57) = 0.0550000*ALGBRC(53)+ 0.00740000*ALGBRC(53) ** 2.00000+ 0.0150000*ALGBRC(53) ** 3.00000
ALGBRC(60) = ALGBRC(57)*STATES(38) - ( CONSTS(90)*CONSTS(92)*STATES(39))/(CONSTS(91)+ CONSTS(89)*STATES(39))
ALGBRC(66) = CONSTS(151)*CONSTS(79) ** 2.00000*STATES(37) - CONSTS(127)*STATES(37)
ALGBRC(73) = CONSTS(30)*STATES(15) - CONSTS(29)*STATES(5)*STATES(17)
ALGBRC(70) = CONSTS(114)*STATES(15) - CONSTS(140)*CONSTS(11) ** 2.00000*STATES(16)
ALGBRC(74) = CONSTS(64)*STATES(27) - CONSTS(63)*STATES(6)*STATES(29)
ALGBRC(71) = CONSTS(121)*STATES(27) - CONSTS(146)*CONSTS(45) ** 2.00000*STATES(28)
ALGBRC(75) = CONSTS(98)*STATES(39) - CONSTS(97)*STATES(9)*STATES(41)
ALGBRC(72) = CONSTS(128)*STATES(39) - CONSTS(152)*CONSTS(79) ** 2.00000*STATES(40)
ALGBRC(61) = CONSTS(25)*STATES(3)*ALGBRC(46) - CONSTS(26)*STATES(13)
ALGBRC(80) = ( CONSTS(22)*CONSTS(24)*STATES(16))/(CONSTS(23)+ CONSTS(21)*STATES(16))
ALGBRC(76) = CONSTS(32)*STATES(16) - CONSTS(31)*STATES(3)*STATES(17)
ALGBRC(81) = ( CONSTS(22)*CONSTS(24)*STATES(17))/(CONSTS(23)+ CONSTS(21)*STATES(17))
ALGBRC(62) = CONSTS(59)*STATES(4)*ALGBRC(47) - CONSTS(60)*STATES(25)
ALGBRC(83) = ( CONSTS(56)*CONSTS(58)*STATES(28))/(CONSTS(57)+ CONSTS(55)*STATES(28))
ALGBRC(77) = CONSTS(66)*STATES(28) - CONSTS(65)*STATES(4)*STATES(29)
ALGBRC(84) = ( CONSTS(56)*CONSTS(58)*STATES(29))/(CONSTS(57)+ CONSTS(55)*STATES(29))
ALGBRC(63) = CONSTS(93)*STATES(8)*ALGBRC(48) - CONSTS(94)*STATES(37)
ALGBRC(86) = ( CONSTS(90)*CONSTS(92)*STATES(40))/(CONSTS(91)+ CONSTS(89)*STATES(40))
ALGBRC(78) = CONSTS(100)*STATES(40) - CONSTS(99)*STATES(8)*STATES(41)
ALGBRC(87) = ( CONSTS(90)*CONSTS(92)*STATES(41))/(CONSTS(91)+ CONSTS(89)*STATES(41))
ALGBRC(1) = CONSTS(131)*CONSTS(11) ** 2.00000*STATES(1) - CONSTS(8)*STATES(3)
ALGBRC(22) = CONSTS(132)*CONSTS(11) ** 2.00000*STATES(3) - CONSTS(12)*STATES(5)
ALGBRC(97) = CONSTS(36)*STATES(3)*STATES(18) - CONSTS(37)*STATES(20)
ALGBRC(91) = CONSTS(141)*CONSTS(11) ** 2.00000*STATES(19) - CONSTS(115)*STATES(20)
ALGBRC(94) = CONSTS(142)*CONSTS(11) ** 2.00000*STATES(20) - CONSTS(116)*STATES(21)
ALGBRC(10) = CONSTS(133)*CONSTS(45) ** 2.00000*STATES(2) - CONSTS(42)*STATES(4)
ALGBRC(23) = CONSTS(134)*CONSTS(45) ** 2.00000*STATES(4) - CONSTS(46)*STATES(6)
ALGBRC(98) = CONSTS(70)*STATES(4)*STATES(30) - CONSTS(71)*STATES(32)
ALGBRC(92) = CONSTS(147)*CONSTS(45) ** 2.00000*STATES(31) - CONSTS(122)*STATES(32)
ALGBRC(95) = CONSTS(148)*CONSTS(45) ** 2.00000*STATES(32) - CONSTS(123)*STATES(33)
ALGBRC(16) = CONSTS(135)*CONSTS(79) ** 2.00000*STATES(7) - CONSTS(76)*STATES(8)
ALGBRC(24) = CONSTS(136)*CONSTS(79) ** 2.00000*STATES(8) - CONSTS(80)*STATES(9)
ALGBRC(99) = CONSTS(104)*STATES(8)*STATES(42) - CONSTS(105)*STATES(44)
ALGBRC(93) = CONSTS(153)*CONSTS(79) ** 2.00000*STATES(43) - CONSTS(129)*STATES(44)
ALGBRC(96) = CONSTS(154)*CONSTS(79) ** 2.00000*STATES(44) - CONSTS(130)*STATES(45)
ALGBRC(100) = CONSTS(38)*STATES(5)*STATES(18) - CONSTS(39)*STATES(21)
ALGBRC(101) = CONSTS(72)*STATES(6)*STATES(30) - CONSTS(73)*STATES(33)
ALGBRC(102) = CONSTS(106)*STATES(9)*STATES(42) - CONSTS(107)*STATES(45)
ALGBRC(103) = CONSTS(40)*STATES(1)*STATES(18) - CONSTS(41)*STATES(19)
ALGBRC(79) = CONSTS(33) - (STATES(18)+STATES(19)+STATES(20)+STATES(21))
ALGBRC(88) = CONSTS(34)*CONSTS(11) ** 2.00000*ALGBRC(79) - CONSTS(35)*STATES(18)
ALGBRC(104) = CONSTS(74)*STATES(2)*STATES(30) - CONSTS(75)*STATES(31)
ALGBRC(82) = CONSTS(67) - (STATES(30)+STATES(31)+STATES(32)+STATES(33))
ALGBRC(89) = CONSTS(68)*CONSTS(45) ** 2.00000*ALGBRC(82) - CONSTS(69)*STATES(30)
ALGBRC(105) = CONSTS(108)*STATES(7)*STATES(42) - CONSTS(109)*STATES(43)
ALGBRC(85) = CONSTS(101) - (STATES(42)+STATES(43)+STATES(44)+STATES(45))
ALGBRC(90) = CONSTS(102)*CONSTS(79) ** 2.00000*ALGBRC(85) - CONSTS(103)*STATES(42)
ALGBRC(2) = CONSTS(7)*(STATES(2) - STATES(7))
ALGBRC(3) = CONSTS(7)*(STATES(4) - STATES(8))
ALGBRC(4) = CONSTS(7)*(STATES(6) - STATES(9))
ALGBRC(5) = STATES(13)*CONSTS(21)
ALGBRC(6) = STATES(14)*CONSTS(21)
ALGBRC(7) = STATES(15)*CONSTS(21)
ALGBRC(8) = STATES(16)*CONSTS(21)
ALGBRC(9) = STATES(17)*CONSTS(21)
ALGBRC(11) = STATES(25)*CONSTS(55)
ALGBRC(12) = STATES(26)*CONSTS(55)
ALGBRC(13) = STATES(27)*CONSTS(55)
ALGBRC(14) = STATES(28)*CONSTS(55)
ALGBRC(15) = STATES(29)*CONSTS(55)
ALGBRC(17) = STATES(37)*CONSTS(89)
ALGBRC(18) = STATES(38)*CONSTS(89)
ALGBRC(19) = STATES(39)*CONSTS(89)
ALGBRC(20) = STATES(40)*CONSTS(89)
ALGBRC(21) = STATES(41)*CONSTS(89)
ALGBRC(34) = CONSTS(2)*STATES(1) - CONSTS(1)*ALGBRC(31)*STATES(2)
ALGBRC(35) = CONSTS(4)*STATES(3) - CONSTS(3)*ALGBRC(31)*STATES(4)
ALGBRC(36) = CONSTS(6)*STATES(5) - CONSTS(5)*ALGBRC(31)*STATES(6)
ALGBRC(50) = ALGBRC(46)*CONSTS(21)
ALGBRC(52) = ALGBRC(47)*CONSTS(55)
ALGBRC(54) = ALGBRC(48)*CONSTS(89)
RETURN
END
REAL FUNCTION TERNRY(TEST, VALA, VALB)
LOGICAL TEST
REAL VALA, VALB
IF (TEST) THEN
TERNRY = VALA
ELSE
TERNRY = VALB
ENDIF
RETURN
END