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