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 8 entries in the algebraic variable array. C There are a total of 1 entries in each of the rate and state variable arrays. C There are a total of 559 entries in the constant variable array. C C C CONSTS(1) is BFM in component input_values (L_per_minute). C CONSTS(2) is OVA in component input_values (mL_per_L). C CONSTS(3) is HM in component input_values (dimensionless). C CONSTS(4) is AOM in component input_values (dimensionless). C CONSTS(5) is A1K in component parameter_values (minute). C CONSTS(6) is A2K in component parameter_values (minute). C CONSTS(7) is A3K in component parameter_values (minute). C CONSTS(8) is A4K in component parameter_values (minute). C CONSTS(9) is A4K2 in component parameter_values (minute). C CONSTS(10) is AARK in component parameter_values (mmHg_minute_per_L). C CONSTS(11) is AARLL in component parameter_values (mmHg_minute_per_L). C CONSTS(12) is ADHINF in component parameter_values (dimensionless). C CONSTS(13) is ADHKLL in component parameter_values (dimensionless). C CONSTS(14) is ADHKUL in component parameter_values (dimensionless). C CONSTS(15) is ADHPAM in component parameter_values (per_mmHg2). C CONSTS(16) is ADHPUL in component parameter_values (mmHg). C CONSTS(17) is ADHTC in component parameter_values (minute). C CONSTS(18) is ADHVLL in component parameter_values (dimensionless). C CONSTS(19) is ADHVUL in component parameter_values (dimensionless). C CONSTS(20) is AH10 in component parameter_values (dimensionless). C CONSTS(21) is AH11 in component parameter_values (minute). C CONSTS(22) is AH9 in component parameter_values (per_mmHg). C CONSTS(23) is AHMNAR in component parameter_values (dimensionless). C CONSTS(24) is AHTHM in component parameter_values (dimensionless). C CONSTS(25) is ALCLK in component parameter_values (dimensionless). C CONSTS(26) is ALDINF in component parameter_values (dimensionless). C CONSTS(27) is ALDKNS in component parameter_values (dimensionless). C CONSTS(28) is ALDMM in component parameter_values (dimensionless). C CONSTS(29) is AM1LL in component parameter_values (dimensionless). C CONSTS(30) is AM1UL in component parameter_values (dimensionless). C CONSTS(31) is AMCSNS in component parameter_values (dimensionless). C CONSTS(32) is AMKM in component parameter_values (dimensionless). C CONSTS(33) is AMKMUL in component parameter_values (dimensionless). C CONSTS(34) is AMM1LM in component parameter_values (dimensionless). C CONSTS(35) is AMM4 in component parameter_values (dimensionless). C CONSTS(36) is AMNALL in component parameter_values (dimensionless). C CONSTS(37) is AMNAM in component parameter_values (dimensionless). C CONSTS(38) is AMNAUL in component parameter_values (dimensionless). C CONSTS(39) is AMT in component parameter_values (minute). C CONSTS(40) is ANCSNS in component parameter_values (dimensionless). C CONSTS(41) is ANGINF in component parameter_values (dimensionless). C CONSTS(42) is ANGKNS in component parameter_values (dimensionless). C CONSTS(43) is ANMALD in component parameter_values (dimensionless). C CONSTS(44) is ANMAM in component parameter_values (dimensionless). C CONSTS(45) is ANMARL in component parameter_values (dimensionless). C CONSTS(46) is ANMEM in component parameter_values (dimensionless). C CONSTS(47) is ANMKEL in component parameter_values (dimensionless). C CONSTS(48) is ANMKEM in component parameter_values (dimensionless). C CONSTS(49) is ANMLL in component parameter_values (dimensionless). C CONSTS(50) is ANMNAM in component parameter_values (dimensionless). C CONSTS(51) is ANMSLT in component parameter_values (dimensionless). C CONSTS(52) is ANMTM in component parameter_values (dimensionless). C CONSTS(53) is ANMUL in component parameter_values (dimensionless). C CONSTS(54) is ANPTC in component parameter_values (minute). C CONSTS(55) is ANPXAF in component parameter_values (mmHg_minute_per_L). C CONSTS(56) is ANPXUL in component parameter_values (dimensionless). C CONSTS(57) is ANT in component parameter_values (minute). C CONSTS(58) is ANULL in component parameter_values (dimensionless). C CONSTS(59) is ANUM in component parameter_values (dimensionless). C CONSTS(60) is ANUVM in component parameter_values (dimensionless). C CONSTS(61) is ANV in component parameter_values (minute). C CONSTS(62) is ANXM in component parameter_values (dimensionless). C CONSTS(63) is ANY in component parameter_values (litre). C CONSTS(64) is AR1LM in component parameter_values (dimensionless). C CONSTS(65) is AR2LM in component parameter_values (dimensionless). C CONSTS(66) is ARF in component parameter_values (dimensionless). C CONSTS(67) is AUC1 in component parameter_values (dimensionless). C CONSTS(68) is AUDMP in component parameter_values (minute). C CONSTS(69) is AUK in component parameter_values (per_minute). C CONSTS(70) is AUL in component parameter_values (litre). C CONSTS(71) is AULPM in component parameter_values (dimensionless). C CONSTS(72) is AUM1 in component parameter_values (dimensionless). C CONSTS(73) is AUM2 in component parameter_values (dimensionless). C CONSTS(74) is AUMAX in component parameter_values (dimensionless). C CONSTS(75) is AUMIN in component parameter_values (dimensionless). C CONSTS(76) is AUMK1 in component parameter_values (dimensionless). C CONSTS(77) is AUN1 in component parameter_values (dimensionless). C CONSTS(78) is AURG in component parameter_values (dimensionless). C CONSTS(79) is AUS in component parameter_values (dimensionless). C CONSTS(80) is AUSLP in component parameter_values (dimensionless). C CONSTS(81) is AUTO in component parameter_values (dimensionless). C CONSTS(82) is AUTOGN in component parameter_values (dimensionless). C CONSTS(83) is AUTOSN in component parameter_values (dimensionless). C CONSTS(84) is AUX in component parameter_values (dimensionless). C CONSTS(85) is BAROTC in component parameter_values (minute). C CONSTS(86) is CFC in component parameter_values (L_per_minute_per_mmHg). C CONSTS(87) is CKEEX in component parameter_values (dimensionless). C CONSTS(88) is CMPTSS in component parameter_values (dimensionless). C CONSTS(89) is CN2 in component parameter_values (per_mmHg). C CONSTS(90) is CN7 in component parameter_values (dimensionless). C CONSTS(91) is CNR in component parameter_values (monovalent_mEq_per_litre). C CONSTS(92) is CPF in component parameter_values (L_per_minute_per_mmHg). C CONSTS(93) is CPK in component parameter_values (L_per_minute_per_mmHg). C CONSTS(94) is CPR in component parameter_values (gram_per_L). C CONSTS(95) is CV in component parameter_values (L_per_mmHg). C CONSTS(96) is CRRFLX in component parameter_values (mmHg). C CONSTS(97) is DIURET in component parameter_values (dimensionless). C CONSTS(98) is DHDTR in component parameter_values (per_mmHg_per_minute). C CONSTS(99) is DTNAR in component parameter_values (monovalent_mEq_per_minute). C CONSTS(100) is DTNARL in component parameter_values (monovalent_mEq_per_minute). C CONSTS(101) is EARK in component parameter_values (mmHg_minute_per_L). C CONSTS(102) is EARLL in component parameter_values (mmHg_minute_per_L). C CONSTS(103) is EFAFR in component parameter_values (dimensionless). C CONSTS(104) is EXC in component parameter_values (dimensionless). C CONSTS(105) is EXCML in component parameter_values (dimensionless). C CONSTS(106) is EXCXP in component parameter_values (dimensionless). C CONSTS(107) is EXCXP2 in component parameter_values (dimensionless). C CONSTS(108) is EXE in component parameter_values (mmHg). C CONSTS(109) is GCOPF in component parameter_values (per_mmHg). C CONSTS(110) is GFLC in component parameter_values (L_per_minute_per_mmHg). C CONSTS(111) is GFNDMP in component parameter_values (dimensionless). C CONSTS(112) is GFNLL in component parameter_values (L_per_minute). C CONSTS(113) is GPPD in component parameter_values (dimensionless). C CONSTS(114) is HM6 in component parameter_values (mmHg). C CONSTS(115) is HM8 in component parameter_values (L_per_minute_per_mmHg). C CONSTS(116) is HTAUML in component parameter_values (dimensionless). C CONSTS(117) is KORGN in component parameter_values (dimensionless). C CONSTS(118) is KORNER in component parameter_values (dimensionless). C CONSTS(119) is KORREN in component parameter_values (dimensionless). C CONSTS(120) is KORTC in component parameter_values (minute). C CONSTS(121) is LPDE in component parameter_values (dimensionless). C CONSTS(122) is LPK in component parameter_values (L_per_minute). C CONSTS(123) is LPPR in component parameter_values (gram_per_minute). C CONSTS(124) is MDFL1 in component parameter_values (dimensionless). C CONSTS(125) is MDFLKM in component parameter_values (monovalent_mEq_per_litre). C CONSTS(126) is MDFLW2 in component parameter_values (dimensionless). C CONSTS(127) is MDFLWX in component parameter_values (dimensionless). C CONSTS(128) is MDMP in component parameter_values (dimensionless). C CONSTS(129) is O2A in component parameter_values (dimensionless). C CONSTS(130) is O2CHMO in component parameter_values (per_mmHg). C CONSTS(131) is OMM in component parameter_values (mL_per_minute). C CONSTS(132) is PA4 in component parameter_values (dimensionless). C CONSTS(133) is PAEX in component parameter_values (dimensionless). C CONSTS(134) is PCE in component parameter_values (dimensionless). C CONSTS(135) is PCR in component parameter_values (mmHg). C CONSTS(136) is PR1LL in component parameter_values (mmHg). C CONSTS(137) is PGHF in component parameter_values (L_mmHg_per_gram). C CONSTS(138) is PK2 in component parameter_values (mmHg_per_mL). C CONSTS(139) is PL2 in component parameter_values (L_mL_per_minute_per_mmHg). C CONSTS(140) is PLDF in component parameter_values (mmHg). C CONSTS(141) is PM5 in component parameter_values (per_mmHg). C CONSTS(142) is PO2ADV in component parameter_values (dimensionless). C CONSTS(143) is POK in component parameter_values (dimensionless). C CONSTS(144) is POM in component parameter_values (dimensionless). C CONSTS(145) is POM2 in component parameter_values (dimensionless). C CONSTS(146) is PON in component parameter_values (dimensionless). C CONSTS(147) is POR in component parameter_values (mmHg). C CONSTS(148) is POZ in component parameter_values (dimensionless). C CONSTS(149) is PXTP in component parameter_values (mmHg). C CONSTS(150) is QAOLM in component parameter_values (dimensionless). C CONSTS(151) is QRF in component parameter_values (L_per_minute). C CONSTS(152) is RABSC in component parameter_values (per_mmHg). C CONSTS(153) is RAM in component parameter_values (mmHg_minute_per_L). C CONSTS(154) is RAPRSP in component parameter_values (mmHg). C CONSTS(155) is RAR in component parameter_values (mmHg_minute_per_L). C CONSTS(156) is RCDFDP in component parameter_values (minute). C CONSTS(157) is RCDFPC in component parameter_values (dimensionless). C CONSTS(158) is REK in component parameter_values (dimensionless). C CONSTS(159) is RFABKM in component parameter_values (monovalent_mEq_per_minute). C CONSTS(160) is RFABDM in component parameter_values (dimensionless). C CONSTS(161) is RFABDP in component parameter_values (dimensionless). C CONSTS(162) is RFCDFT in component parameter_values (dimensionless). C CONSTS(163) is RKC in component parameter_values (per_minute). C CONSTS(164) is RNAGTC in component parameter_values (minute). C CONSTS(165) is RNAUAD in component parameter_values (per_minute). C CONSTS(166) is RPS in component parameter_values (dimensionless). C CONSTS(167) is RTPPR in component parameter_values (dimensionless). C CONSTS(168) is RTPPRS in component parameter_values (mmHg). C CONSTS(169) is RTSPRS in component parameter_values (mmHg). C CONSTS(170) is RVRS in component parameter_values (mmHg_minute_per_L). C CONSTS(171) is RVSM in component parameter_values (mmHg_minute_per_L). C CONSTS(172) is SR in component parameter_values (dimensionless). C CONSTS(173) is SR2 in component parameter_values (dimensionless). C CONSTS(174) is SRK in component parameter_values (minute). C CONSTS(175) is SRK2 in component parameter_values (minute). C CONSTS(176) is STA in component parameter_values (dimensionless). C CONSTS(177) is TENSGN in component parameter_values (dimensionless). C CONSTS(178) is TENSTC in component parameter_values (minute). C CONSTS(179) is TIMETR in component parameter_values (minute). C CONSTS(180) is TRNSFS in component parameter_values (dimensionless). C CONSTS(181) is TRPL in component parameter_values (L_per_minute). C CONSTS(182) is TSSLML in component parameter_values (dimensionless). C CONSTS(183) is TSSLTC in component parameter_values (per_minute). C CONSTS(184) is TVDDL in component parameter_values (minute). C CONSTS(185) is U in component parameter_values (dimensionless). C CONSTS(186) is VID1 in component parameter_values (L_per_minute). C CONSTS(187) is VIDML in component parameter_values (litre2_per_monovalent_mEq_per_minute). C CONSTS(188) is VNTSTM in component parameter_values (dimensionless). C CONSTS(189) is VP1 in component parameter_values (dimensionless). C CONSTS(190) is VPTISS in component parameter_values (litre). C CONSTS(191) is VTSF in component parameter_values (litre). C CONSTS(192) is VV9 in component parameter_values (litre). C CONSTS(193) is X in component parameter_values (dimensionless). C CONSTS(194) is Z in component parameter_values (dimensionless). C CONSTS(195) is Z4 in component parameter_values (dimensionless). C CONSTS(196) is Z5 in component parameter_values (dimensionless). C CONSTS(197) is Z6 in component parameter_values (dimensionless). C CONSTS(198) is Z7 in component parameter_values (dimensionless). C CONSTS(199) is Z10 in component parameter_values (mmHg). C CONSTS(200) is Z11 in component parameter_values (per_mmHg2). C CONSTS(201) is Z12 in component parameter_values (dimensionless). C CONSTS(202) is Z13 in component parameter_values (dimensionless). C CONSTS(203) is Z14 in component parameter_values (dimensionless). C CONSTS(204) is Z16 in component parameter_values (dimensionless). C CONSTS(205) is Z18 in component parameter_values (dimensionless). C CONSTS(206) is Z19 in component parameter_values (dimensionless). C CONSTS(207) is KID in component parameter_values (monovalent_mEq_per_minute). C CONSTS(208) is URFORM in component parameter_values (mOsm_per_minute). C CONSTS(209) is AUV in component parameter_values (dimensionless). C CONSTS(210) is AUY in component parameter_values (dimensionless). C CONSTS(211) is O2M in component parameter_values (mL_per_minute). C CONSTS(212) is NID in component parameter_values (monovalent_mEq_per_minute). C CONSTS(213) is ATRFBM in component parameter_values (dimensionless). C CONSTS(214) is GBL in component parameter_values (mmHg). C CONSTS(215) is RNAUGN in component parameter_values (minute_per_L). C CONSTS(216) is RNAULL in component parameter_values (dimensionless). C CONSTS(217) is RNAUUL in component parameter_values (dimensionless). C CONSTS(218) is HSR in component parameter_values (dimensionless). C CONSTS(219) is HSL in component parameter_values (dimensionless). C CONSTS(220) is HMK in component parameter_values (dimensionless). C CONSTS(221) is PO2AMB in component parameter_values (mmHg). C CONSTS(222) is HKM in component parameter_values (dimensionless). C CONSTS(223) is DR in component parameter_values (L_per_minute). C CONSTS(224) is ANPKNS in component parameter_values (dimensionless). C CONSTS(225) is RMULT1 in component parameter_values (dimensionless). C CONSTS(226) is GLPCA in component parameter_values (mmHg). C CONSTS(227) is RFN in component parameter_values (L_per_minute). C CONSTS(228) is RFABX in component parameter_values (dimensionless). C CONSTS(229) is ANPINF in component parameter_values (dimensionless). C CONSTS(230) is FIS in component parameter_values (L_per_minute_per_mmHg). C CONSTS(231) is CPPD in component parameter_values (gram_per_L). C CONSTS(232) is TRRBC in component parameter_values (L_per_minute). C CONSTS(233) is HYL in component parameter_values (gram). C CONSTS(234) is ATRVM in component parameter_values (litre). C CONSTS(235) is ADHC_init in component state_variables (dimensionless). C CONSTS(236) is AHY_init in component state_variables (dimensionless). C CONSTS(237) is AMC_init in component state_variables (dimensionless). C CONSTS(238) is AMM1T_init in component state_variables (dimensionless). C CONSTS(239) is AMM2_init in component state_variables (dimensionless). C CONSTS(240) is ANC_init in component state_variables (dimensionless). C CONSTS(241) is ANPC_init in component state_variables (dimensionless). C CONSTS(242) is ANX1_init in component state_variables (dimensionless). C CONSTS(243) is AR1T_init in component state_variables (dimensionless). C CONSTS(244) is AR2T_init in component state_variables (dimensionless). C CONSTS(245) is AR3T_init in component state_variables (dimensionless). C CONSTS(246) is AU1_init in component state_variables (dimensionless). C CONSTS(247) is AU4_init in component state_variables (dimensionless). C CONSTS(248) is AU6_init in component state_variables (dimensionless). C CONSTS(249) is DTKA_init in component state_variables (monovalent_mEq_per_minute). C CONSTS(250) is HMD1_init in component state_variables (dimensionless). C CONSTS(251) is HPL_init in component state_variables (dimensionless). C CONSTS(252) is HPR_init in component state_variables (dimensionless). C CONSTS(253) is KTOT_init in component state_variables (monovalent_mEq). C CONSTS(254) is NAE_init in component state_variables (monovalent_mEq). C CONSTS(255) is O2VAD1_init in component state_variables (dimensionless). C CONSTS(256) is OSV_init in component state_variables (dimensionless). C CONSTS(257) is OVA_init in component state_variables (mL_per_L). C CONSTS(258) is OVS_init in component state_variables (dimensionless). C CONSTS(259) is PAR1_init in component state_variables (mmHg). C CONSTS(260) is PC_init in component state_variables (mmHg). C CONSTS(261) is PLUR_init in component state_variables (mOsm). C CONSTS(262) is PPR1_init in component state_variables (gram). C CONSTS(263) is PRP_init in component state_variables (gram). C CONSTS(264) is QO2T_init in component state_variables (mL). C CONSTS(265) is QOM1_init in component state_variables (mL). C CONSTS(266) is RNAUG3_init in component state_variables (dimensionless). C CONSTS(267) is TSP_init in component state_variables (gram). C CONSTS(268) is TVD_init in component state_variables (L_per_minute). C CONSTS(269) is VAS1_init in component state_variables (litre). C CONSTS(270) is VIC_init in component state_variables (litre). C CONSTS(271) is VLA1_init in component state_variables (litre). C CONSTS(272) is VPA1_init in component state_variables (litre). C CONSTS(273) is VPF1_init in component state_variables (litre). C CONSTS(274) is VP_init in component state_variables (litre). C CONSTS(275) is VRA1_init in component state_variables (litre). C CONSTS(276) is VRC_init in component state_variables (litre). C CONSTS(277) is VTS2_init in component state_variables (litre). C CONSTS(278) is VTW_init in component state_variables (litre). C CONSTS(279) is VV6_init in component state_variables (litre). C CONSTS(280) is VV7_init in component state_variables (litre). C CONSTS(281) is VVS1_init in component state_variables (litre). C VOI is time in component environment (minute). C ALGBRC(2) is PMO in component pressure_of_O2_in_M_tissue_cells (mmHg). C ALGBRC(5) is RMO in component delivery_of_O2_to_M_tissues (mL_per_minute). C CONSTS(282) is A1K in component parameter_values (minute). C CONSTS(283) is A2K in component parameter_values (minute). C CONSTS(284) is A3K in component parameter_values (minute). C CONSTS(285) is A4K in component parameter_values (minute). C CONSTS(286) is A4K2 in component parameter_values (minute). C CONSTS(287) is AARK in component parameter_values (mmHg_minute_per_L). C CONSTS(288) is AARLL in component parameter_values (mmHg_minute_per_L). C CONSTS(289) is ADHINF in component parameter_values (dimensionless). C CONSTS(290) is ADHKLL in component parameter_values (dimensionless). C CONSTS(291) is ADHKUL in component parameter_values (dimensionless). C CONSTS(292) is ADHPAM in component parameter_values (per_mmHg2). C CONSTS(293) is ADHPUL in component parameter_values (mmHg). C CONSTS(294) is ADHTC in component parameter_values (minute). C CONSTS(295) is ADHVLL in component parameter_values (dimensionless). C CONSTS(296) is ADHVUL in component parameter_values (dimensionless). C CONSTS(297) is AH10 in component parameter_values (dimensionless). C CONSTS(298) is AH11 in component parameter_values (minute). C CONSTS(299) is AH9 in component parameter_values (per_mmHg). C CONSTS(300) is AHMNAR in component parameter_values (dimensionless). C CONSTS(301) is AHTHM in component parameter_values (dimensionless). C CONSTS(302) is ALCLK in component parameter_values (dimensionless). C CONSTS(303) is ALDINF in component parameter_values (dimensionless). C CONSTS(304) is ALDKNS in component parameter_values (dimensionless). C CONSTS(305) is ALDMM in component parameter_values (dimensionless). C CONSTS(306) is AM1LL in component parameter_values (dimensionless). C CONSTS(307) is AM1UL in component parameter_values (dimensionless). C CONSTS(308) is AMCSNS in component parameter_values (dimensionless). C CONSTS(309) is AMKM in component parameter_values (dimensionless). C CONSTS(310) is AMKMUL in component parameter_values (dimensionless). C CONSTS(311) is AMM1LM in component parameter_values (dimensionless). C CONSTS(312) is AMM4 in component parameter_values (dimensionless). C CONSTS(313) is AMNALL in component parameter_values (dimensionless). C CONSTS(314) is AMNAM in component parameter_values (dimensionless). C CONSTS(315) is AMNAUL in component parameter_values (dimensionless). C CONSTS(316) is AMT in component parameter_values (minute). C CONSTS(317) is ANCSNS in component parameter_values (dimensionless). C CONSTS(318) is ANGINF in component parameter_values (dimensionless). C CONSTS(319) is ANGKNS in component parameter_values (dimensionless). C CONSTS(320) is ANMALD in component parameter_values (dimensionless). C CONSTS(321) is ANMAM in component parameter_values (dimensionless). C CONSTS(322) is ANMARL in component parameter_values (dimensionless). C CONSTS(323) is ANMEM in component parameter_values (dimensionless). C CONSTS(324) is ANMKEL in component parameter_values (dimensionless). C CONSTS(325) is ANMKEM in component parameter_values (dimensionless). C CONSTS(326) is ANMLL in component parameter_values (dimensionless). C CONSTS(327) is ANMNAM in component parameter_values (dimensionless). C CONSTS(328) is ANMSLT in component parameter_values (dimensionless). C CONSTS(329) is ANMTM in component parameter_values (dimensionless). C CONSTS(330) is ANMUL in component parameter_values (dimensionless). C CONSTS(331) is ANPTC in component parameter_values (minute). C CONSTS(332) is ANPXAF in component parameter_values (mmHg_minute_per_L). C CONSTS(333) is ANPXUL in component parameter_values (dimensionless). C CONSTS(334) is ANT in component parameter_values (minute). C CONSTS(335) is ANULL in component parameter_values (dimensionless). C CONSTS(336) is ANUM in component parameter_values (dimensionless). C CONSTS(337) is ANUVM in component parameter_values (dimensionless). C CONSTS(338) is ANV in component parameter_values (minute). C CONSTS(339) is ANXM in component parameter_values (dimensionless). C CONSTS(340) is ANY in component parameter_values (litre). C CONSTS(341) is AR1LM in component parameter_values (dimensionless). C CONSTS(342) is AR2LM in component parameter_values (dimensionless). C CONSTS(343) is ARF in component parameter_values (dimensionless). C CONSTS(344) is AUC1 in component parameter_values (dimensionless). C CONSTS(345) is AUDMP in component parameter_values (minute). C CONSTS(346) is AUK in component parameter_values (per_minute). C CONSTS(347) is AUL in component parameter_values (litre). C CONSTS(348) is AULPM in component parameter_values (dimensionless). C CONSTS(349) is AUM1 in component parameter_values (dimensionless). C CONSTS(350) is AUM2 in component parameter_values (dimensionless). C CONSTS(351) is AUMAX in component parameter_values (dimensionless). C CONSTS(352) is AUMIN in component parameter_values (dimensionless). C CONSTS(353) is AUMK1 in component parameter_values (dimensionless). C CONSTS(354) is AUN1 in component parameter_values (dimensionless). C CONSTS(355) is AURG in component parameter_values (dimensionless). C CONSTS(356) is AUS in component parameter_values (dimensionless). C CONSTS(357) is AUSLP in component parameter_values (dimensionless). C CONSTS(358) is AUTO in component parameter_values (dimensionless). C CONSTS(359) is AUTOGN in component parameter_values (dimensionless). C CONSTS(360) is AUTOSN in component parameter_values (dimensionless). C CONSTS(361) is AUX in component parameter_values (dimensionless). C CONSTS(362) is BAROTC in component parameter_values (minute). C CONSTS(363) is CFC in component parameter_values (L_per_minute_per_mmHg). C CONSTS(364) is CKEEX in component parameter_values (dimensionless). C CONSTS(365) is CMPTSS in component parameter_values (dimensionless). C CONSTS(366) is CN2 in component parameter_values (per_mmHg). C CONSTS(367) is CN7 in component parameter_values (dimensionless). C CONSTS(368) is CNR in component parameter_values (monovalent_mEq_per_litre). C CONSTS(369) is CPF in component parameter_values (L_per_minute_per_mmHg). C CONSTS(370) is CPK in component parameter_values (L_per_minute_per_mmHg). C CONSTS(371) is CPR in component parameter_values (gram_per_L). C CONSTS(372) is CV in component parameter_values (L_per_mmHg). C CONSTS(373) is CRRFLX in component parameter_values (mmHg). C CONSTS(374) is DIURET in component parameter_values (dimensionless). C CONSTS(375) is DHDTR in component parameter_values (per_mmHg_per_minute). C CONSTS(376) is DTNAR in component parameter_values (monovalent_mEq_per_minute). C CONSTS(377) is DTNARL in component parameter_values (monovalent_mEq_per_minute). C CONSTS(378) is EARK in component parameter_values (mmHg_minute_per_L). C CONSTS(379) is EARLL in component parameter_values (mmHg_minute_per_L). C CONSTS(380) is EFAFR in component parameter_values (dimensionless). C CONSTS(381) is EXC in component parameter_values (dimensionless). C CONSTS(382) is EXCML in component parameter_values (dimensionless). C CONSTS(383) is EXCXP in component parameter_values (dimensionless). C CONSTS(384) is EXCXP2 in component parameter_values (dimensionless). C CONSTS(385) is EXE in component parameter_values (mmHg). C CONSTS(386) is GCOPF in component parameter_values (per_mmHg). C CONSTS(387) is GFLC in component parameter_values (L_per_minute_per_mmHg). C CONSTS(388) is GFNDMP in component parameter_values (dimensionless). C CONSTS(389) is GFNLL in component parameter_values (L_per_minute). C CONSTS(390) is GPPD in component parameter_values (dimensionless). C CONSTS(391) is HM6 in component parameter_values (mmHg). C CONSTS(392) is HM8 in component parameter_values (L_per_minute_per_mmHg). C CONSTS(393) is HTAUML in component parameter_values (dimensionless). C CONSTS(394) is KORGN in component parameter_values (dimensionless). C CONSTS(395) is KORNER in component parameter_values (dimensionless). C CONSTS(396) is KORREN in component parameter_values (dimensionless). C CONSTS(397) is KORTC in component parameter_values (minute). C CONSTS(398) is LPDE in component parameter_values (dimensionless). C CONSTS(399) is LPK in component parameter_values (L_per_minute). C CONSTS(400) is LPPR in component parameter_values (gram_per_minute). C CONSTS(401) is MDFL1 in component parameter_values (dimensionless). C CONSTS(402) is MDFLKM in component parameter_values (monovalent_mEq_per_litre). C CONSTS(403) is MDFLW2 in component parameter_values (dimensionless). C CONSTS(404) is MDFLWX in component parameter_values (dimensionless). C CONSTS(405) is MDMP in component parameter_values (dimensionless). C CONSTS(406) is O2A in component parameter_values (dimensionless). C CONSTS(407) is O2CHMO in component parameter_values (per_mmHg). C CONSTS(408) is OMM in component parameter_values (mL_per_minute). C CONSTS(409) is PA4 in component parameter_values (dimensionless). C CONSTS(410) is PAEX in component parameter_values (dimensionless). C CONSTS(411) is PCE in component parameter_values (dimensionless). C CONSTS(412) is PCR in component parameter_values (mmHg). C CONSTS(413) is PR1LL in component parameter_values (mmHg). C CONSTS(414) is PGHF in component parameter_values (L_mmHg_per_gram). C CONSTS(415) is PK2 in component parameter_values (mmHg_per_mL). C CONSTS(416) is PL2 in component parameter_values (L_mL_per_minute_per_mmHg). C CONSTS(417) is PLDF in component parameter_values (mmHg). C CONSTS(418) is PM5 in component parameter_values (per_mmHg). C CONSTS(419) is PO2ADV in component parameter_values (dimensionless). C CONSTS(420) is POK in component parameter_values (dimensionless). C CONSTS(421) is POM in component parameter_values (dimensionless). C CONSTS(422) is POM2 in component parameter_values (dimensionless). C CONSTS(423) is PON in component parameter_values (dimensionless). C CONSTS(424) is POR in component parameter_values (mmHg). C CONSTS(425) is POZ in component parameter_values (dimensionless). C CONSTS(426) is PXTP in component parameter_values (mmHg). C CONSTS(427) is QAOLM in component parameter_values (dimensionless). C CONSTS(428) is QRF in component parameter_values (L_per_minute). C CONSTS(429) is RABSC in component parameter_values (per_mmHg). C CONSTS(430) is RAM in component parameter_values (mmHg_minute_per_L). C CONSTS(431) is RAPRSP in component parameter_values (mmHg). C CONSTS(432) is RAR in component parameter_values (mmHg_minute_per_L). C CONSTS(433) is RCDFDP in component parameter_values (minute). C CONSTS(434) is RCDFPC in component parameter_values (dimensionless). C CONSTS(435) is REK in component parameter_values (dimensionless). C CONSTS(436) is RFABKM in component parameter_values (monovalent_mEq_per_minute). C CONSTS(437) is RFABDM in component parameter_values (dimensionless). C CONSTS(438) is RFABDP in component parameter_values (dimensionless). C CONSTS(439) is RFCDFT in component parameter_values (dimensionless). C CONSTS(440) is RKC in component parameter_values (per_minute). C CONSTS(441) is RNAGTC in component parameter_values (minute). C CONSTS(442) is RNAUAD in component parameter_values (per_minute). C CONSTS(443) is RPS in component parameter_values (dimensionless). C CONSTS(444) is RTPPR in component parameter_values (dimensionless). C CONSTS(445) is RTPPRS in component parameter_values (mmHg). C CONSTS(446) is RTSPRS in component parameter_values (mmHg). C CONSTS(447) is RVRS in component parameter_values (mmHg_minute_per_L). C CONSTS(448) is RVSM in component parameter_values (mmHg_minute_per_L). C CONSTS(449) is SR in component parameter_values (dimensionless). C CONSTS(450) is SR2 in component parameter_values (dimensionless). C CONSTS(451) is SRK in component parameter_values (minute). C CONSTS(452) is SRK2 in component parameter_values (minute). C CONSTS(453) is STA in component parameter_values (dimensionless). C CONSTS(454) is TENSGN in component parameter_values (dimensionless). C CONSTS(455) is TENSTC in component parameter_values (minute). C CONSTS(456) is TIMETR in component parameter_values (minute). C CONSTS(457) is TRNSFS in component parameter_values (dimensionless). C CONSTS(458) is TRPL in component parameter_values (L_per_minute). C CONSTS(459) is TSSLML in component parameter_values (dimensionless). C CONSTS(460) is TSSLTC in component parameter_values (per_minute). C CONSTS(461) is TVDDL in component parameter_values (minute). C CONSTS(462) is U in component parameter_values (dimensionless). C CONSTS(463) is VID1 in component parameter_values (L_per_minute). C CONSTS(464) is VIDML in component parameter_values (litre2_per_monovalent_mEq_per_minute). C CONSTS(465) is VNTSTM in component parameter_values (dimensionless). C CONSTS(466) is VP1 in component parameter_values (dimensionless). C CONSTS(467) is VPTISS in component parameter_values (litre). C CONSTS(468) is VTSF in component parameter_values (litre). C CONSTS(469) is VV9 in component parameter_values (litre). C CONSTS(470) is X in component parameter_values (dimensionless). C CONSTS(471) is Z in component parameter_values (dimensionless). C CONSTS(472) is Z4 in component parameter_values (dimensionless). C CONSTS(473) is Z5 in component parameter_values (dimensionless). C CONSTS(474) is Z6 in component parameter_values (dimensionless). C CONSTS(475) is Z7 in component parameter_values (dimensionless). C CONSTS(476) is Z10 in component parameter_values (mmHg). C CONSTS(477) is Z11 in component parameter_values (per_mmHg2). C CONSTS(478) is Z12 in component parameter_values (dimensionless). C CONSTS(479) is Z13 in component parameter_values (dimensionless). C CONSTS(480) is Z14 in component parameter_values (dimensionless). C CONSTS(481) is Z16 in component parameter_values (dimensionless). C CONSTS(482) is Z18 in component parameter_values (dimensionless). C CONSTS(483) is Z19 in component parameter_values (dimensionless). C CONSTS(484) is KID in component parameter_values (monovalent_mEq_per_minute). C CONSTS(485) is URFORM in component parameter_values (mOsm_per_minute). C CONSTS(486) is AUV in component parameter_values (dimensionless). C CONSTS(487) is AUY in component parameter_values (dimensionless). C CONSTS(488) is O2M in component parameter_values (mL_per_minute). C CONSTS(489) is NID in component parameter_values (monovalent_mEq_per_minute). C CONSTS(490) is ATRFBM in component parameter_values (dimensionless). C CONSTS(491) is GBL in component parameter_values (mmHg). C CONSTS(492) is RNAUGN in component parameter_values (minute_per_L). C CONSTS(493) is RNAULL in component parameter_values (dimensionless). C CONSTS(494) is RNAUUL in component parameter_values (dimensionless). C CONSTS(495) is HSR in component parameter_values (dimensionless). C CONSTS(496) is HSL in component parameter_values (dimensionless). C CONSTS(497) is HMK in component parameter_values (dimensionless). C CONSTS(498) is PO2AMB in component parameter_values (mmHg). C CONSTS(499) is HKM in component parameter_values (dimensionless). C CONSTS(500) is DR in component parameter_values (L_per_minute). C CONSTS(501) is ANPKNS in component parameter_values (dimensionless). C CONSTS(502) is RMULT1 in component parameter_values (dimensionless). C CONSTS(503) is GLPCA in component parameter_values (mmHg). C CONSTS(504) is RFN in component parameter_values (L_per_minute). C CONSTS(505) is RFABX in component parameter_values (dimensionless). C CONSTS(506) is ANPINF in component parameter_values (dimensionless). C CONSTS(507) is FIS in component parameter_values (L_per_minute_per_mmHg). C CONSTS(508) is CPPD in component parameter_values (gram_per_L). C CONSTS(509) is TRRBC in component parameter_values (L_per_minute). C CONSTS(510) is HYL in component parameter_values (gram). C CONSTS(511) is ATRVM in component parameter_values (litre). C CONSTS(512) is ADHC_init in component state_variables (dimensionless). C CONSTS(513) is AHY_init in component state_variables (dimensionless). C CONSTS(514) is AMC_init in component state_variables (dimensionless). C CONSTS(515) is AMM1T_init in component state_variables (dimensionless). C CONSTS(516) is AMM2_init in component state_variables (dimensionless). C CONSTS(517) is ANC_init in component state_variables (dimensionless). C CONSTS(518) is ANPC_init in component state_variables (dimensionless). C CONSTS(519) is ANX1_init in component state_variables (dimensionless). C CONSTS(520) is AR1T_init in component state_variables (dimensionless). C CONSTS(521) is AR2T_init in component state_variables (dimensionless). C CONSTS(522) is AR3T_init in component state_variables (dimensionless). C CONSTS(523) is AU1_init in component state_variables (dimensionless). C CONSTS(524) is AU4_init in component state_variables (dimensionless). C CONSTS(525) is AU6_init in component state_variables (dimensionless). C CONSTS(526) is DTKA_init in component state_variables (monovalent_mEq_per_minute). C CONSTS(527) is HMD1_init in component state_variables (dimensionless). C CONSTS(528) is HPL_init in component state_variables (dimensionless). C CONSTS(529) is HPR_init in component state_variables (dimensionless). C CONSTS(530) is KTOT_init in component state_variables (monovalent_mEq). C CONSTS(531) is NAE_init in component state_variables (monovalent_mEq). C CONSTS(532) is O2VAD1_init in component state_variables (dimensionless). C CONSTS(533) is OSV_init in component state_variables (dimensionless). C CONSTS(534) is OVA_init in component state_variables (mL_per_L). C CONSTS(535) is OVS_init in component state_variables (dimensionless). C CONSTS(536) is PAR1_init in component state_variables (mmHg). C CONSTS(537) is PC_init in component state_variables (mmHg). C CONSTS(538) is PLUR_init in component state_variables (mOsm). C CONSTS(539) is PPR1_init in component state_variables (gram). C CONSTS(540) is PRP_init in component state_variables (gram). C CONSTS(541) is QO2T_init in component state_variables (mL). C CONSTS(542) is QOM1_init in component state_variables (mL). C CONSTS(543) is RNAUG3_init in component state_variables (dimensionless). C CONSTS(544) is TSP_init in component state_variables (gram). C CONSTS(545) is TVD_init in component state_variables (L_per_minute). C CONSTS(546) is VAS1_init in component state_variables (litre). C CONSTS(547) is VIC_init in component state_variables (litre). C CONSTS(548) is VLA1_init in component state_variables (litre). C CONSTS(549) is VPA1_init in component state_variables (litre). C CONSTS(550) is VPF1_init in component state_variables (litre). C CONSTS(551) is VP_init in component state_variables (litre). C CONSTS(552) is VRA1_init in component state_variables (litre). C CONSTS(553) is VRC_init in component state_variables (litre). C CONSTS(554) is VTS2_init in component state_variables (litre). C CONSTS(555) is VTW_init in component state_variables (litre). C CONSTS(556) is VV6_init in component state_variables (litre). C CONSTS(557) is VV7_init in component state_variables (litre). C CONSTS(558) is VVS1_init in component state_variables (litre). C CONSTS(559) is O2ARTM in component M_O2_blood_supply (mL_per_minute). C ALGBRC(6) is PVO in component M_venous_O2_content (mmHg). C ALGBRC(7) is OVS in component M_venous_O2_content (dimensionless). C ALGBRC(4) is MMO in component metabolic_O2_consumption_by_M_tissue (mL_per_minute). C ALGBRC(3) is P2O in component metabolic_O2_consumption_by_M_tissue (mmHg). C ALGBRC(1) is QOM in component volume_of_O2_in_M_tissue (mL). C ALGBRC(8) is DO2M in component volume_of_O2_in_M_tissue (mL_per_minute). C STATES(1) is QOM1 in component volume_of_O2_in_M_tissue (mL). C RATES(1) is d/dt QOM1 in component volume_of_O2_in_M_tissue (mL). C SUBROUTINE initConsts(CONSTS, RATES, STATES) REAL CONSTS(*), RATES(*), STATES(*) CONSTS(1) = 0.989949 CONSTS(2) = 204.497 CONSTS(3) = 40.0381 CONSTS(4) = 1.00002 CONSTS(5) = 0.5 CONSTS(6) = 60 CONSTS(7) = 40000 CONSTS(8) = 0.1 CONSTS(9) = 40000 CONSTS(10) = 1 CONSTS(11) = 4 CONSTS(12) = 0 CONSTS(13) = 0.2 CONSTS(14) = 5 CONSTS(15) = 0.3 CONSTS(16) = 85 CONSTS(17) = 15 CONSTS(18) = 0.93617 CONSTS(19) = 2.5 CONSTS(20) = 0.333 CONSTS(21) = 1000 CONSTS(22) = 1 CONSTS(23) = 0.3 CONSTS(24) = 2 CONSTS(25) = 0.3 CONSTS(26) = 0 CONSTS(27) = 0 CONSTS(28) = 2.5 CONSTS(29) = 0 CONSTS(30) = 5 CONSTS(31) = 0.65 CONSTS(32) = 0.5 CONSTS(33) = 12 CONSTS(34) = 0.005 CONSTS(35) = 0.005 CONSTS(36) = 0.04 CONSTS(37) = 0.8 CONSTS(38) = 15 CONSTS(39) = 60 CONSTS(40) = 0.4 CONSTS(41) = 0 CONSTS(42) = 0 CONSTS(43) = 2.5 CONSTS(44) = 1.4 CONSTS(45) = 0.86 CONSTS(46) = 1.6 CONSTS(47) = 0.3 CONSTS(48) = 2 CONSTS(49) = 0.7 CONSTS(50) = 1 CONSTS(51) = 2 CONSTS(52) = 1.5 CONSTS(53) = 1.8 CONSTS(54) = 4 CONSTS(55) = 1.5 CONSTS(56) = 10 CONSTS(57) = 12 CONSTS(58) = 0.8 CONSTS(59) = 6 CONSTS(60) = 0 CONSTS(61) = 5000 CONSTS(62) = 0 CONSTS(63) = -0.2 CONSTS(64) = 0.005 CONSTS(65) = 0.005 CONSTS(66) = 0.5 CONSTS(67) = 0.3 CONSTS(68) = 0.3 CONSTS(69) = 0.004 CONSTS(70) = 1.5 CONSTS(71) = 0 CONSTS(72) = 3 CONSTS(73) = 1 CONSTS(74) = 5.0 CONSTS(75) = 0.4 CONSTS(76) = 0.3 CONSTS(77) = 0.5 CONSTS(78) = 1.0 CONSTS(79) = 1 CONSTS(80) = 1.5 CONSTS(81) = 0 CONSTS(82) = 7 CONSTS(83) = 0.9 CONSTS(84) = 1 CONSTS(85) = 0.16 CONSTS(86) = 0.01167 CONSTS(87) = 4 CONSTS(88) = 2 CONSTS(89) = 0.0212 CONSTS(90) = 0.2 CONSTS(91) = 139 CONSTS(92) = 0.0003 CONSTS(93) = 0.000253 CONSTS(94) = 40 CONSTS(95) = 0.1 CONSTS(96) = 0 CONSTS(97) = 1 CONSTS(98) = 0.05 CONSTS(99) = 0.675 CONSTS(100) = 1e-06 CONSTS(101) = 1 CONSTS(102) = 24 CONSTS(103) = 0 CONSTS(104) = 1 CONSTS(105) = 0.01 CONSTS(106) = 1.0 CONSTS(107) = 0.17 CONSTS(108) = 0 CONSTS(109) = 0.8092 CONSTS(110) = 0.0208333 CONSTS(111) = 3 CONSTS(112) = 0.001 CONSTS(113) = 1.0 CONSTS(114) = 1850 CONSTS(115) = 4.714e-08 CONSTS(116) = 0.4 CONSTS(117) = 1 CONSTS(118) = 0 CONSTS(119) = 0 CONSTS(120) = 10000 CONSTS(121) = 8 CONSTS(122) = 2.728e-14 CONSTS(123) = 0.03 CONSTS(124) = 10 CONSTS(125) = 0.667 CONSTS(126) = 0.005 CONSTS(127) = 0.01 CONSTS(128) = 0 CONSTS(129) = 0.1 CONSTS(130) = 0.01 CONSTS(131) = 57.1 CONSTS(132) = 1 CONSTS(133) = 2 CONSTS(134) = 1 CONSTS(135) = 15 CONSTS(136) = 0 CONSTS(137) = -2 CONSTS(138) = 0.79167 CONSTS(139) = 1.8 CONSTS(140) = 4.2 CONSTS(141) = 30 CONSTS(142) = 0.001 CONSTS(143) = 0.1 CONSTS(144) = 0.04 CONSTS(145) = 2 CONSTS(146) = 0.1 CONSTS(147) = 35 CONSTS(148) = 2 CONSTS(149) = 8 CONSTS(150) = 0.2 CONSTS(151) = 0.15 CONSTS(152) = 0.5 CONSTS(153) = 96.3 CONSTS(154) = 0 CONSTS(155) = 30.52 CONSTS(156) = 2000 CONSTS(157) = 0 CONSTS(158) = 1 CONSTS(159) = 0.03 CONSTS(160) = 0.3 CONSTS(161) = 1 CONSTS(162) = 0 CONSTS(163) = 5.8e-06 CONSTS(164) = 15 CONSTS(165) = 0 CONSTS(166) = 0 CONSTS(167) = 0.9 CONSTS(168) = 15.2 CONSTS(169) = 6 CONSTS(170) = 19.167 CONSTS(171) = 1 CONSTS(172) = 1 CONSTS(173) = 1 CONSTS(174) = 5 CONSTS(175) = 10000 CONSTS(176) = 0 CONSTS(177) = 0 CONSTS(178) = 0.05 CONSTS(179) = 0 CONSTS(180) = 0 CONSTS(181) = 0 CONSTS(182) = 0.15 CONSTS(183) = 0.005 CONSTS(184) = 30 CONSTS(185) = 4 CONSTS(186) = 0.01 CONSTS(187) = 0.01 CONSTS(188) = 1 CONSTS(189) = 0.01 CONSTS(190) = 0.0175 CONSTS(191) = 6 CONSTS(192) = 2.51 CONSTS(193) = 4 CONSTS(194) = 1 CONSTS(195) = 0.5 CONSTS(196) = 0.3 CONSTS(197) = 20 CONSTS(198) = 5 CONSTS(199) = 45 CONSTS(200) = 0.01 CONSTS(201) = 5 CONSTS(202) = 0.625 CONSTS(203) = 5 CONSTS(204) = 5 CONSTS(205) = 5 CONSTS(206) = 5 CONSTS(207) = 0.08 CONSTS(208) = 0.24 CONSTS(209) = 0.55 CONSTS(210) = 0 CONSTS(211) = 164 CONSTS(212) = 0.1 CONSTS(213) = 0 CONSTS(214) = 0 CONSTS(215) = 0.6 CONSTS(216) = 0.3 CONSTS(217) = 10 CONSTS(218) = 1 CONSTS(219) = 1 CONSTS(220) = 90 CONSTS(221) = 150 CONSTS(222) = 0.53333 CONSTS(223) = 0 CONSTS(224) = 0 CONSTS(225) = 1 CONSTS(226) = 1.0 CONSTS(227) = 1.22057 CONSTS(228) = 0.8 CONSTS(229) = 0 CONSTS(230) = 0 CONSTS(231) = 31.9719 CONSTS(232) = 0 CONSTS(233) = 60 CONSTS(234) = 0 CONSTS(235) = 1.0 CONSTS(236) = 0.301963 CONSTS(237) = 1.0 CONSTS(238) = 1.00269 CONSTS(239) = 1.09071 CONSTS(240) = 0.859476 CONSTS(241) = 1.0 CONSTS(242) = 0 CONSTS(243) = 1.02127 CONSTS(244) = 1.01179 CONSTS(245) = 1.1448 CONSTS(246) = 1.00007 CONSTS(247) = -0.060024 CONSTS(248) = 1.00132 CONSTS(249) = 0.0367573 CONSTS(250) = 1 CONSTS(251) = 1.00163 CONSTS(252) = 1.00237 CONSTS(253) = 3622.54 CONSTS(254) = 2109.91 CONSTS(255) = 2.368e-07 CONSTS(256) = 0.694163 CONSTS(257) = 204.497 CONSTS(258) = 0.699673 CONSTS(259) = 103.525 CONSTS(260) = 16.9144 CONSTS(261) = 159.549 CONSTS(262) = 0.419998 CONSTS(263) = 216.243 CONSTS(264) = 72.2362 CONSTS(265) = 48.0839 CONSTS(266) = 0 CONSTS(267) = 279.945 CONSTS(268) = 0.000980838 CONSTS(269) = 0.862514 CONSTS(270) = 25.0404 CONSTS(271) = 0.379883 CONSTS(272) = 0.38131 CONSTS(273) = 0.0123238 CONSTS(274) = 3.00449 CONSTS(275) = 0.100043 CONSTS(276) = 2.00439 CONSTS(277) = 0 CONSTS(278) = 39.8952 CONSTS(279) = 0.0101913 CONSTS(280) = 0.00366525 CONSTS(281) = 3.28246 CONSTS(282) = 0.5 CONSTS(283) = 60 CONSTS(284) = 40000 CONSTS(285) = 0.1 CONSTS(286) = 40000 CONSTS(287) = 1 CONSTS(288) = 4 CONSTS(289) = 0 CONSTS(290) = 0.2 CONSTS(291) = 5 CONSTS(292) = 0.3 CONSTS(293) = 85 CONSTS(294) = 15 CONSTS(295) = 0.93617 CONSTS(296) = 2.5 CONSTS(297) = 0.333 CONSTS(298) = 1000 CONSTS(299) = 1 CONSTS(300) = 0.3 CONSTS(301) = 2 CONSTS(302) = 0.3 CONSTS(303) = 0 CONSTS(304) = 0 CONSTS(305) = 2.5 CONSTS(306) = 0 CONSTS(307) = 5 CONSTS(308) = 0.65 CONSTS(309) = 0.5 CONSTS(310) = 12 CONSTS(311) = 0.005 CONSTS(312) = 0.005 CONSTS(313) = 0.04 CONSTS(314) = 0.8 CONSTS(315) = 15 CONSTS(316) = 60 CONSTS(317) = 0.4 CONSTS(318) = 0 CONSTS(319) = 0 CONSTS(320) = 2.5 CONSTS(321) = 1.4 CONSTS(322) = 0.86 CONSTS(323) = 1.6 CONSTS(324) = 0.3 CONSTS(325) = 2 CONSTS(326) = 0.7 CONSTS(327) = 1 CONSTS(328) = 2 CONSTS(329) = 1.5 CONSTS(330) = 1.8 CONSTS(331) = 4 CONSTS(332) = 1.5 CONSTS(333) = 10 CONSTS(334) = 12 CONSTS(335) = 0.8 CONSTS(336) = 6 CONSTS(337) = 0 CONSTS(338) = 5000 CONSTS(339) = 0 CONSTS(340) = -0.2 CONSTS(341) = 0.005 CONSTS(342) = 0.005 CONSTS(343) = 0.5 CONSTS(344) = 0.3 CONSTS(345) = 0.3 CONSTS(346) = 0.004 CONSTS(347) = 1.5 CONSTS(348) = 0 CONSTS(349) = 3 CONSTS(350) = 1 CONSTS(351) = 5.0 CONSTS(352) = 0.4 CONSTS(353) = 0.3 CONSTS(354) = 0.5 CONSTS(355) = 1.0 CONSTS(356) = 1 CONSTS(357) = 1.5 CONSTS(358) = 0 CONSTS(359) = 7 CONSTS(360) = 0.9 CONSTS(361) = 1 CONSTS(362) = 0.16 CONSTS(363) = 0.01167 CONSTS(364) = 4 CONSTS(365) = 2 CONSTS(366) = 0.0212 CONSTS(367) = 0.2 CONSTS(368) = 139 CONSTS(369) = 0.0003 CONSTS(370) = 0.000253 CONSTS(371) = 40 CONSTS(372) = 0.1 CONSTS(373) = 0 CONSTS(374) = 1 CONSTS(375) = 0.05 CONSTS(376) = 0.675 CONSTS(377) = 1e-06 CONSTS(378) = 1 CONSTS(379) = 24 CONSTS(380) = 0 CONSTS(381) = 1 CONSTS(382) = 0.01 CONSTS(383) = 1.0 CONSTS(384) = 0.17 CONSTS(385) = 0 CONSTS(386) = 0.8092 CONSTS(387) = 0.0208333 CONSTS(388) = 3 CONSTS(389) = 0.001 CONSTS(390) = 1.0 CONSTS(391) = 1850 CONSTS(392) = 4.714e-08 CONSTS(393) = 0.4 CONSTS(394) = 1 CONSTS(395) = 0 CONSTS(396) = 0 CONSTS(397) = 10000 CONSTS(398) = 8 CONSTS(399) = 2.728e-14 CONSTS(400) = 0.03 CONSTS(401) = 10 CONSTS(402) = 0.667 CONSTS(403) = 0.005 CONSTS(404) = 0.01 CONSTS(405) = 0 CONSTS(406) = 0.1 CONSTS(407) = 0.01 CONSTS(408) = 57.1 CONSTS(409) = 1 CONSTS(410) = 2 CONSTS(411) = 1 CONSTS(412) = 15 CONSTS(413) = 0 CONSTS(414) = -2 CONSTS(415) = 0.79167 CONSTS(416) = 1.8 CONSTS(417) = 4.2 CONSTS(418) = 30 CONSTS(419) = 0.001 CONSTS(420) = 0.1 CONSTS(421) = 0.04 CONSTS(422) = 2 CONSTS(423) = 0.1 CONSTS(424) = 35 CONSTS(425) = 2 CONSTS(426) = 8 CONSTS(427) = 0.2 CONSTS(428) = 0.15 CONSTS(429) = 0.5 CONSTS(430) = 96.3 CONSTS(431) = 0 CONSTS(432) = 30.52 CONSTS(433) = 2000 CONSTS(434) = 0 CONSTS(435) = 1 CONSTS(436) = 0.03 CONSTS(437) = 0.3 CONSTS(438) = 1 CONSTS(439) = 0 CONSTS(440) = 5.8e-06 CONSTS(441) = 15 CONSTS(442) = 0 CONSTS(443) = 0 CONSTS(444) = 0.9 CONSTS(445) = 15.2 CONSTS(446) = 6 CONSTS(447) = 19.167 CONSTS(448) = 1 CONSTS(449) = 1 CONSTS(450) = 1 CONSTS(451) = 5 CONSTS(452) = 10000 CONSTS(453) = 0 CONSTS(454) = 0 CONSTS(455) = 0.05 CONSTS(456) = 0 CONSTS(457) = 0 CONSTS(458) = 0 CONSTS(459) = 0.15 CONSTS(460) = 0.005 CONSTS(461) = 30 CONSTS(462) = 4 CONSTS(463) = 0.01 CONSTS(464) = 0.01 CONSTS(465) = 1 CONSTS(466) = 0.01 CONSTS(467) = 0.0175 CONSTS(468) = 6 CONSTS(469) = 2.51 CONSTS(470) = 4 CONSTS(471) = 1 CONSTS(472) = 0.5 CONSTS(473) = 0.3 CONSTS(474) = 20 CONSTS(475) = 5 CONSTS(476) = 45 CONSTS(477) = 0.01 CONSTS(478) = 5 CONSTS(479) = 0.625 CONSTS(480) = 5 CONSTS(481) = 5 CONSTS(482) = 5 CONSTS(483) = 5 CONSTS(484) = 0.08 CONSTS(485) = 0.24 CONSTS(486) = 0.55 CONSTS(487) = 0 CONSTS(488) = 164 CONSTS(489) = 0.1 CONSTS(490) = 0 CONSTS(491) = 0 CONSTS(492) = 0.6 CONSTS(493) = 0.3 CONSTS(494) = 10 CONSTS(495) = 1 CONSTS(496) = 1 CONSTS(497) = 90 CONSTS(498) = 150 CONSTS(499) = 0.53333 CONSTS(500) = 0 CONSTS(501) = 0 CONSTS(502) = 1 CONSTS(503) = 1.0 CONSTS(504) = 1.22057 CONSTS(505) = 0.8 CONSTS(506) = 0 CONSTS(507) = 0 CONSTS(508) = 31.9719 CONSTS(509) = 0 CONSTS(510) = 60 CONSTS(511) = 0 CONSTS(512) = 1.0 CONSTS(513) = 0.301963 CONSTS(514) = 1.0 CONSTS(515) = 1.00269 CONSTS(516) = 1.09071 CONSTS(517) = 0.859476 CONSTS(518) = 1.0 CONSTS(519) = 0 CONSTS(520) = 1.02127 CONSTS(521) = 1.01179 CONSTS(522) = 1.1448 CONSTS(523) = 1.00007 CONSTS(524) = -0.060024 CONSTS(525) = 1.00132 CONSTS(526) = 0.0367573 CONSTS(527) = 1 CONSTS(528) = 1.00163 CONSTS(529) = 1.00237 CONSTS(530) = 3622.54 CONSTS(531) = 2109.91 CONSTS(532) = 2.368e-07 CONSTS(533) = 0.694163 CONSTS(534) = 204.497 CONSTS(535) = 0.699673 CONSTS(536) = 103.525 CONSTS(537) = 16.9144 CONSTS(538) = 159.549 CONSTS(539) = 0.419998 CONSTS(540) = 216.243 CONSTS(541) = 72.2362 CONSTS(542) = 48.0839 CONSTS(543) = 0 CONSTS(544) = 279.945 CONSTS(545) = 0.000980838 CONSTS(546) = 0.862514 CONSTS(547) = 25.0404 CONSTS(548) = 0.379883 CONSTS(549) = 0.38131 CONSTS(550) = 0.0123238 CONSTS(551) = 3.00449 CONSTS(552) = 0.100043 CONSTS(553) = 2.00439 CONSTS(554) = 0 CONSTS(555) = 39.8952 CONSTS(556) = 0.0101913 CONSTS(557) = 0.00366525 CONSTS(558) = 3.28246 CONSTS(559) = CONSTS(2)*CONSTS(1) STATES(1) = CONSTS(542) RETURN END SUBROUTINE computeRates(VOI, CONSTS, RATES, STATES, ALGBRC) REAL VOI, CONSTS(*), RATES(*), STATES(*), ALGBRC(*) ALGBRC(1) = TERNRY(STATES(1).LT.0.000100000, 0.000100000, STATES(1)) ALGBRC(2) = CONSTS(415)*ALGBRC(1) CALL minimize(minfunc_0, CONSTS, VARIABLES, <VAR>) ALGBRC(3) = TERNRY(ALGBRC(2).GT.38.0000, 38.0000, ALGBRC(2)) ALGBRC(4) = CONSTS(4)*CONSTS(408)*CONSTS(381)*(1.00000 - 38.0001 - ALGBRC(3) ** 3.00000/54872.0) ALGBRC(8) = ALGBRC(5) - ALGBRC(4) RATES(1) = ALGBRC(8) RETURN END SUBROUTINE computeVariables(VOI, CONSTS, RATES, STATES, ALGBRC) REAL VOI, CONSTS(*), RATES(*), STATES(*), ALGBRC(*) ALGBRC(1) = TERNRY(STATES(1).LT.0.000100000, 0.000100000, STATES(1)) ALGBRC(2) = CONSTS(415)*ALGBRC(1) ALGBRC(3) = TERNRY(ALGBRC(2).GT.38.0000, 38.0000, ALGBRC(2)) ALGBRC(4) = CONSTS(4)*CONSTS(408)*CONSTS(381)*(1.00000 - 38.0001 - ALGBRC(3) ** 3.00000/54872.0) ALGBRC(8) = ALGBRC(5) - ALGBRC(4) RETURN END REAL FUNCTION minfunc_0(CONSTS, VARIABLES) REAL CONSTS(*), VARIABLES(*) minfunc_0[1] = abs(ALGBRC(7) - (CONSTS(559) - ALGBRC(5))/( CONSTS(3)*5.25000*CONSTS(1))) minfunc_0[2] = abs(ALGBRC(6) - 57.1400*ALGBRC(7)*CONSTS(381) ** CONSTS(384)) minfunc_0[3] = abs(ALGBRC(5) - (ALGBRC(6) - ALGBRC(2))*CONSTS(418)*CONSTS(1)) RETURN END REAL FUNCTION TERNRY(TEST, VALA, VALB) LOGICAL TEST REAL VALA, VALB IF (TEST) THEN TERNRY = VALA ELSE TERNRY = VALB ENDIF RETURN END