diff --git a/KPP/custom/custom.eqn b/KPP/custom/custom.eqn index ab6c1d000..1762798fc 100644 --- a/KPP/custom/custom.eqn +++ b/KPP/custom/custom.eqn @@ -84,6 +84,10 @@ Version 13.y.z (actual version TBA) (Dec 2020 onward) (4) Added sulfur reactions for future development (commented out) (5) Added aromatic SOA reactions (Bates2021b) +14.1.0 +------ + (1) Added MO2 + NO3 reaction (IUPAC ROO_19) + =============================================================================== DEVELOPERS (alphabetical order; add your name!) =============================================================================== @@ -141,6 +145,7 @@ REFERENCES (alphabetical order) * Jacobs2014: Jacobs et al., Atmos. Chem. Phys., doi:10.5194/acp-14-8933-2014, 2014. * Jenkin2015: Jenkin et al., Atmos. Chem. Phys., doi:10.5194/acp-15-11433-2015, 2015. * Kasibhatla2018: Kasibhatla et al., Atmos. Chem. Phys., doi:10.5194/acp-18-11185-2018, 2018 +* IUPAC ROO_19: https://iupac-aeris.ipsl.fr/htdocs/datasheets/pdf/ROO_19_CH3O2_NO3.pdf * JPL 10-6: JPL Publication 10-6, https://jpldataeval.jpl.nasa.gov/previous_evaluations.html, 2011. * JPL 15-10: JPL Publication 15-10, https://jpldataeval.jpl.nasa.gov, 2015. * Kwon2020: Kwon et al, Elementa, https://doi.org/10.1525/elementa.2021.00109, 2020. @@ -1472,6 +1477,7 @@ TRO2 + HO2 = HO2 + LTRO2H : GCARR_abc(1.40d-12, 0.0d0, 700.0d0) TRO2 + NO = NO + LTRO2N : GCARR_abc(2.60d-12, 0.0d0, 350.0d0); {2021/09/29; Bates2021b; KHB,MSL} XRO2 + HO2 = HO2 + LXRO2H : GCARR_abc(1.40d-12, 0.0d0, 700.0d0); {2021/09/29; Bates2021b; KHB,MSL} XRO2 + NO = NO + LXRO2N : GCARR_abc(2.60d-12, 0.0d0, 350.0d0); {2021/09/29; Bates2021b; KHB,MSL} +MO2 + NO3 = NO2 + CH2O + HO2 : 1.20d-12; {2022/10/18: IUPAC ROO_19; KHB,BMY} // // %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% // %%%%% Heterogeneous chemistry reactions %%%%% diff --git a/KPP/fullchem/fullchem.eqn b/KPP/fullchem/fullchem.eqn index d95c42c04..4ceed4a55 100644 --- a/KPP/fullchem/fullchem.eqn +++ b/KPP/fullchem/fullchem.eqn @@ -84,6 +84,10 @@ Version 13.y.z (actual version TBA) (Dec 2020 onward) (4) Added sulfur reactions for future development (commented out) (5) Added aromatic SOA reactions (Bates2021b) +14.1.0 +------ + (1) Added MO2 + NO3 reaction (IUPAC ROO_19) + =============================================================================== DEVELOPERS (alphabetical order; add your name!) =============================================================================== @@ -141,6 +145,7 @@ REFERENCES (alphabetical order) * Jacobs2014: Jacobs et al., Atmos. Chem. Phys., doi:10.5194/acp-14-8933-2014, 2014. * Jenkin2015: Jenkin et al., Atmos. Chem. Phys., doi:10.5194/acp-15-11433-2015, 2015. * Kasibhatla2018: Kasibhatla et al., Atmos. Chem. Phys., doi:10.5194/acp-18-11185-2018, 2018 +* IUPAC ROO_19: https://iupac-aeris.ipsl.fr/htdocs/datasheets/pdf/ROO_19_CH3O2_NO3.pdf * JPL 10-6: JPL Publication 10-6, https://jpldataeval.jpl.nasa.gov/previous_evaluations.html, 2011. * JPL 15-10: JPL Publication 15-10, https://jpldataeval.jpl.nasa.gov, 2015. * Kwon2020: Kwon et al, Elementa, https://doi.org/10.1525/elementa.2021.00109, 2020. @@ -1472,6 +1477,7 @@ TRO2 + HO2 = HO2 + LTRO2H : GCARR_abc(1.40d-12, 0.0d0, 700.0d0) TRO2 + NO = NO + LTRO2N : GCARR_abc(2.60d-12, 0.0d0, 350.0d0); {2021/09/29; Bates2021b; KHB,MSL} XRO2 + HO2 = HO2 + LXRO2H : GCARR_abc(1.40d-12, 0.0d0, 700.0d0); {2021/09/29; Bates2021b; KHB,MSL} XRO2 + NO = NO + LXRO2N : GCARR_abc(2.60d-12, 0.0d0, 350.0d0); {2021/09/29; Bates2021b; KHB,MSL} +MO2 + NO3 = NO2 + CH2O + HO2 : 1.20d-12; {2022/10/18: IUPAC ROO_19; KHB,BMY} // // %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% // %%%%% Heterogeneous chemistry reactions %%%%% diff --git a/KPP/fullchem/gckpp.map b/KPP/fullchem/gckpp.map index 19c760f2f..e55ff2cfa 100644 --- a/KPP/fullchem/gckpp.map +++ b/KPP/fullchem/gckpp.map @@ -41,7 +41,7 @@ REORDER - ON ! NFIX - Number of Fixed species INTEGER, PARAMETER :: NFIX = 4 ! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 913 + INTEGER, PARAMETER :: NREACT = 914 ! NVARST - Starting of variables in conc. vect. INTEGER, PARAMETER :: NVARST = 1 ! NFIXST - Starting of fixed in conc. vect. diff --git a/KPP/fullchem/gckpp_Function.F90 b/KPP/fullchem/gckpp_Function.F90 index efaf4ebe5..92206c8ae 100644 --- a/KPP/fullchem/gckpp_Function.F90 +++ b/KPP/fullchem/gckpp_Function.F90 @@ -726,275 +726,276 @@ SUBROUTINE Fun ( V, F, RCT, Vdot, Aout, Vdotout ) A(659) = RCT(659)*V(21)*V(280) A(660) = RCT(660)*V(26)*V(281) A(661) = RCT(661)*V(26)*V(280) - A(662) = RCT(662)*V(281) - A(663) = RCT(663)*V(270) - A(664) = RCT(664)*V(283) + A(662) = RCT(662)*V(263)*V(283) + A(663) = RCT(663)*V(281) + A(664) = RCT(664)*V(270) A(665) = RCT(665)*V(283) A(666) = RCT(666)*V(283) - A(667) = RCT(667)*V(169)*V(273) - A(668) = RCT(668)*V(169)*V(271) - A(669) = RCT(669)*V(169) - A(670) = RCT(670)*V(169)*V(278) - A(671) = RCT(671)*V(169)*V(282) - A(672) = RCT(672)*V(278)*V(279) - A(673) = RCT(673)*V(279)*V(282) - A(674) = RCT(674)*V(172)*V(273) - A(675) = RCT(675)*V(172)*V(271) - A(676) = RCT(676)*V(259)*V(273) - A(677) = RCT(677)*V(259)*V(271) - A(678) = RCT(678)*V(259)*V(272) - A(679) = RCT(679)*V(259)*V(275) - A(680) = RCT(680)*V(259)*V(276) - A(681) = RCT(681)*V(259)*V(278) - A(682) = RCT(682)*V(259)*V(282) - A(683) = RCT(683)*V(231)*V(278) - A(684) = RCT(684)*V(231)*V(282) - A(685) = RCT(685)*V(231)*V(271) - A(686) = RCT(686)*V(231)*V(275) - A(687) = RCT(687)*V(231)*V(276) - A(688) = RCT(688)*V(231)*V(272) - A(689) = RCT(689)*V(267)*V(271) - A(690) = RCT(690)*V(267)*V(272) - A(691) = RCT(691)*V(267)*V(278) - A(692) = RCT(692)*V(267)*V(282) - A(693) = RCT(693)*V(267)*V(286) - A(694) = RCT(694)*V(256)*V(272) - A(695) = RCT(695)*V(256)*V(271) - A(696) = RCT(696)*V(256)*V(278) - A(697) = RCT(697)*V(256)*V(282) - A(698) = RCT(698)*V(256)*V(275) - A(699) = RCT(699)*V(256)*V(276) - A(700) = RCT(700)*V(256)*V(286) - A(701) = RCT(701)*V(269)*V(272) - A(702) = RCT(702)*V(269)*V(275) - A(703) = RCT(703)*V(269)*V(276) - A(704) = RCT(704)*V(272) + A(667) = RCT(667)*V(283) + A(668) = RCT(668)*V(169)*V(273) + A(669) = RCT(669)*V(169)*V(271) + A(670) = RCT(670)*V(169) + A(671) = RCT(671)*V(169)*V(278) + A(672) = RCT(672)*V(169)*V(282) + A(673) = RCT(673)*V(278)*V(279) + A(674) = RCT(674)*V(279)*V(282) + A(675) = RCT(675)*V(172)*V(273) + A(676) = RCT(676)*V(172)*V(271) + A(677) = RCT(677)*V(259)*V(273) + A(678) = RCT(678)*V(259)*V(271) + A(679) = RCT(679)*V(259)*V(272) + A(680) = RCT(680)*V(259)*V(275) + A(681) = RCT(681)*V(259)*V(276) + A(682) = RCT(682)*V(259)*V(278) + A(683) = RCT(683)*V(259)*V(282) + A(684) = RCT(684)*V(231)*V(278) + A(685) = RCT(685)*V(231)*V(282) + A(686) = RCT(686)*V(231)*V(271) + A(687) = RCT(687)*V(231)*V(275) + A(688) = RCT(688)*V(231)*V(276) + A(689) = RCT(689)*V(231)*V(272) + A(690) = RCT(690)*V(267)*V(271) + A(691) = RCT(691)*V(267)*V(272) + A(692) = RCT(692)*V(267)*V(278) + A(693) = RCT(693)*V(267)*V(282) + A(694) = RCT(694)*V(267)*V(286) + A(695) = RCT(695)*V(256)*V(272) + A(696) = RCT(696)*V(256)*V(271) + A(697) = RCT(697)*V(256)*V(278) + A(698) = RCT(698)*V(256)*V(282) + A(699) = RCT(699)*V(256)*V(275) + A(700) = RCT(700)*V(256)*V(276) + A(701) = RCT(701)*V(256)*V(286) + A(702) = RCT(702)*V(269)*V(272) + A(703) = RCT(703)*V(269)*V(275) + A(704) = RCT(704)*V(269)*V(276) A(705) = RCT(705)*V(272) - A(706) = RCT(706)*V(65) + A(706) = RCT(706)*V(272) A(707) = RCT(707)*V(65) A(708) = RCT(708)*V(65) - A(709) = RCT(709)*V(40) + A(709) = RCT(709)*V(65) A(710) = RCT(710)*V(40) A(711) = RCT(711)*V(40) - A(712) = RCT(712)*V(47) + A(712) = RCT(712)*V(40) A(713) = RCT(713)*V(47) A(714) = RCT(714)*V(47) - A(715) = RCT(715)*V(38) + A(715) = RCT(715)*V(47) A(716) = RCT(716)*V(38) A(717) = RCT(717)*V(38) - A(718) = RCT(718)*V(266)*V(273) - A(719) = RCT(719)*V(199)*V(275) - A(720) = RCT(720)*V(199)*V(276) - A(721) = RCT(721)*V(199)*V(278) - A(722) = RCT(722)*V(199)*V(282) - A(723) = RCT(723)*V(266)*V(275) - A(724) = RCT(724)*V(266)*V(276) - A(725) = RCT(725)*V(266)*V(278) - A(726) = RCT(726)*V(266)*V(282) - A(727) = RCT(727)*V(264)*V(275) - A(728) = RCT(728)*V(264)*V(276) - A(729) = RCT(729)*V(264)*V(278) - A(730) = RCT(730)*V(264)*V(282) - A(731) = RCT(731)*V(218) - A(732) = RCT(732)*V(228) - A(733) = RCT(733)*V(127) - A(734) = RCT(734)*V(128) - A(735) = RCT(735)*V(115) - A(736) = RCT(736)*V(23) - A(737) = RCT(737)*V(237) - A(738) = RCT(738)*V(198) - A(739) = RCT(739)*V(174) - A(740) = RCT(740)*V(196) - A(741) = RCT(741)*V(131) - A(742) = RCT(742)*V(104) - A(743) = RCT(743)*V(84) - A(744) = RCT(744)*V(216) - A(745) = RCT(745)*V(136) - A(746) = RCT(746)*V(137) - A(747) = RCT(747)*V(210) - A(748) = RCT(748)*V(170) - A(749) = RCT(749)*V(147) - A(750) = RCT(750)*V(177) - A(751) = RCT(751)*V(239) - A(752) = RCT(752)*V(209) - A(753) = RCT(753)*V(238) - A(754) = RCT(754)*V(171) - A(755) = RCT(755)*V(195) - A(756) = RCT(756)*V(206) - A(757) = RCT(757)*V(269) + A(718) = RCT(718)*V(38) + A(719) = RCT(719)*V(266)*V(273) + A(720) = RCT(720)*V(199)*V(275) + A(721) = RCT(721)*V(199)*V(276) + A(722) = RCT(722)*V(199)*V(278) + A(723) = RCT(723)*V(199)*V(282) + A(724) = RCT(724)*V(266)*V(275) + A(725) = RCT(725)*V(266)*V(276) + A(726) = RCT(726)*V(266)*V(278) + A(727) = RCT(727)*V(266)*V(282) + A(728) = RCT(728)*V(264)*V(275) + A(729) = RCT(729)*V(264)*V(276) + A(730) = RCT(730)*V(264)*V(278) + A(731) = RCT(731)*V(264)*V(282) + A(732) = RCT(732)*V(218) + A(733) = RCT(733)*V(228) + A(734) = RCT(734)*V(127) + A(735) = RCT(735)*V(128) + A(736) = RCT(736)*V(115) + A(737) = RCT(737)*V(23) + A(738) = RCT(738)*V(237) + A(739) = RCT(739)*V(198) + A(740) = RCT(740)*V(174) + A(741) = RCT(741)*V(196) + A(742) = RCT(742)*V(131) + A(743) = RCT(743)*V(104) + A(744) = RCT(744)*V(84) + A(745) = RCT(745)*V(216) + A(746) = RCT(746)*V(136) + A(747) = RCT(747)*V(137) + A(748) = RCT(748)*V(210) + A(749) = RCT(749)*V(170) + A(750) = RCT(750)*V(147) + A(751) = RCT(751)*V(177) + A(752) = RCT(752)*V(239) + A(753) = RCT(753)*V(209) + A(754) = RCT(754)*V(238) + A(755) = RCT(755)*V(171) + A(756) = RCT(756)*V(195) + A(757) = RCT(757)*V(206) A(758) = RCT(758)*V(269) - A(759) = RCT(759)*F(3) - A(760) = RCT(760)*V(270) - A(761) = RCT(761)*V(208) - A(762) = RCT(762)*V(134) - A(763) = RCT(763)*V(262) + A(759) = RCT(759)*V(269) + A(760) = RCT(760)*F(3) + A(761) = RCT(761)*V(270) + A(762) = RCT(762)*V(208) + A(763) = RCT(763)*V(134) A(764) = RCT(764)*V(262) - A(765) = RCT(765)*V(260) - A(766) = RCT(766)*V(188) - A(767) = RCT(767)*V(101) + A(765) = RCT(765)*V(262) + A(766) = RCT(766)*V(260) + A(767) = RCT(767)*V(188) A(768) = RCT(768)*V(101) - A(769) = RCT(769)*V(283) + A(769) = RCT(769)*V(101) A(770) = RCT(770)*V(283) - A(771) = RCT(771)*V(169) - A(772) = RCT(772)*V(261) + A(771) = RCT(771)*V(283) + A(772) = RCT(772)*V(169) A(773) = RCT(773)*V(261) - A(774) = RCT(774)*V(63) - A(775) = RCT(775)*V(255) - A(776) = RCT(776)*V(219) + A(774) = RCT(774)*V(261) + A(775) = RCT(775)*V(63) + A(776) = RCT(776)*V(255) A(777) = RCT(777)*V(219) - A(778) = RCT(778)*V(222) - A(779) = RCT(779)*V(232) - A(780) = RCT(780)*V(218) + A(778) = RCT(778)*V(219) + A(779) = RCT(779)*V(222) + A(780) = RCT(780)*V(232) A(781) = RCT(781)*V(218) A(782) = RCT(782)*V(218) - A(783) = RCT(783)*V(228) - A(784) = RCT(784)*V(244) + A(783) = RCT(783)*V(218) + A(784) = RCT(784)*V(228) A(785) = RCT(785)*V(244) A(786) = RCT(786)*V(244) - A(787) = RCT(787)*V(247) - A(788) = RCT(788)*V(246) - A(789) = RCT(789)*V(112) - A(790) = RCT(790)*V(109) - A(791) = RCT(791)*V(92) - A(792) = RCT(792)*V(93) - A(793) = RCT(793)*V(91) - A(794) = RCT(794)*V(111) - A(795) = RCT(795)*V(94) - A(796) = RCT(796)*V(198) - A(797) = RCT(797)*V(66) - A(798) = RCT(798)*V(124) - A(799) = RCT(799)*V(274) - A(800) = RCT(800)*V(256) - A(801) = RCT(801)*V(172) + A(787) = RCT(787)*V(244) + A(788) = RCT(788)*V(247) + A(789) = RCT(789)*V(246) + A(790) = RCT(790)*V(112) + A(791) = RCT(791)*V(109) + A(792) = RCT(792)*V(92) + A(793) = RCT(793)*V(93) + A(794) = RCT(794)*V(91) + A(795) = RCT(795)*V(111) + A(796) = RCT(796)*V(94) + A(797) = RCT(797)*V(198) + A(798) = RCT(798)*V(66) + A(799) = RCT(799)*V(124) + A(800) = RCT(800)*V(274) + A(801) = RCT(801)*V(256) A(802) = RCT(802)*V(172) - A(803) = RCT(803)*V(50) - A(804) = RCT(804)*V(74) - A(805) = RCT(805)*V(70) - A(806) = RCT(806)*V(97) - A(807) = RCT(807)*V(100) - A(808) = RCT(808)*V(73) - A(809) = RCT(809)*V(132) - A(810) = RCT(810)*V(192) - A(811) = RCT(811)*V(277) - A(812) = RCT(812)*V(107) - A(813) = RCT(813)*V(72) - A(814) = RCT(814)*V(231) - A(815) = RCT(815)*V(259) + A(803) = RCT(803)*V(172) + A(804) = RCT(804)*V(50) + A(805) = RCT(805)*V(74) + A(806) = RCT(806)*V(70) + A(807) = RCT(807)*V(97) + A(808) = RCT(808)*V(100) + A(809) = RCT(809)*V(73) + A(810) = RCT(810)*V(132) + A(811) = RCT(811)*V(192) + A(812) = RCT(812)*V(277) + A(813) = RCT(813)*V(107) + A(814) = RCT(814)*V(72) + A(815) = RCT(815)*V(231) A(816) = RCT(816)*V(259) - A(817) = RCT(817)*V(267) - A(818) = RCT(818)*V(39) - A(819) = RCT(819)*V(51) - A(820) = RCT(820)*V(52) - A(821) = RCT(821)*V(53) - A(822) = RCT(822)*V(48) - A(823) = RCT(823)*V(42) - A(824) = RCT(824)*V(46) - A(825) = RCT(825)*V(78) - A(826) = RCT(826)*V(79) - A(827) = RCT(827)*V(80) - A(828) = RCT(828)*V(81) - A(829) = RCT(829)*V(44) - A(830) = RCT(830)*V(55) - A(831) = RCT(831)*V(45) - A(832) = RCT(832)*V(103) - A(833) = RCT(833)*V(139) - A(834) = RCT(834)*V(264) - A(835) = RCT(835)*V(223) - A(836) = RCT(836)*V(90) - A(837) = RCT(837)*V(56) - A(838) = RCT(838)*V(199) - A(839) = RCT(839)*V(266) - A(840) = RCT(840)*V(40) - A(841) = RCT(841)*V(43) - A(842) = RCT(842)*V(1) - A(843) = RCT(843)*V(3) - A(844) = RCT(844)*V(2) - A(845) = RCT(845)*V(38) - A(846) = RCT(846)*V(47) - A(847) = RCT(847)*V(69) - A(848) = RCT(848)*V(98) - A(849) = RCT(849)*V(71) + A(817) = RCT(817)*V(259) + A(818) = RCT(818)*V(267) + A(819) = RCT(819)*V(39) + A(820) = RCT(820)*V(51) + A(821) = RCT(821)*V(52) + A(822) = RCT(822)*V(53) + A(823) = RCT(823)*V(48) + A(824) = RCT(824)*V(42) + A(825) = RCT(825)*V(46) + A(826) = RCT(826)*V(78) + A(827) = RCT(827)*V(79) + A(828) = RCT(828)*V(80) + A(829) = RCT(829)*V(81) + A(830) = RCT(830)*V(44) + A(831) = RCT(831)*V(55) + A(832) = RCT(832)*V(45) + A(833) = RCT(833)*V(103) + A(834) = RCT(834)*V(139) + A(835) = RCT(835)*V(264) + A(836) = RCT(836)*V(223) + A(837) = RCT(837)*V(90) + A(838) = RCT(838)*V(56) + A(839) = RCT(839)*V(199) + A(840) = RCT(840)*V(266) + A(841) = RCT(841)*V(40) + A(842) = RCT(842)*V(43) + A(843) = RCT(843)*V(1) + A(844) = RCT(844)*V(3) + A(845) = RCT(845)*V(2) + A(846) = RCT(846)*V(38) + A(847) = RCT(847)*V(47) + A(848) = RCT(848)*V(69) + A(849) = RCT(849)*V(98) A(850) = RCT(850)*V(71) - A(851) = RCT(851)*V(193) - A(852) = RCT(852)*V(57) - A(853) = RCT(853)*V(62) - A(854) = RCT(854)*V(108) - A(855) = RCT(855)*V(280) - A(856) = RCT(856)*V(119) - A(857) = RCT(857)*V(205) - A(858) = RCT(858)*V(174) - A(859) = RCT(859)*V(196) - A(860) = RCT(860)*V(131) - A(861) = RCT(861)*V(59) + A(851) = RCT(851)*V(71) + A(852) = RCT(852)*V(193) + A(853) = RCT(853)*V(57) + A(854) = RCT(854)*V(62) + A(855) = RCT(855)*V(108) + A(856) = RCT(856)*V(280) + A(857) = RCT(857)*V(119) + A(858) = RCT(858)*V(205) + A(859) = RCT(859)*V(174) + A(860) = RCT(860)*V(196) + A(861) = RCT(861)*V(131) A(862) = RCT(862)*V(59) - A(863) = RCT(863)*V(58) + A(863) = RCT(863)*V(59) A(864) = RCT(864)*V(58) - A(865) = RCT(865)*V(87) - A(866) = RCT(866)*V(88) - A(867) = RCT(867)*V(86) - A(868) = RCT(868)*V(89) - A(869) = RCT(869)*V(83) - A(870) = RCT(870)*V(168) - A(871) = RCT(871)*V(104) - A(872) = RCT(872)*V(194) - A(873) = RCT(873)*V(166) - A(874) = RCT(874)*V(181) - A(875) = RCT(875)*V(226) - A(876) = RCT(876)*V(152) - A(877) = RCT(877)*V(160) - A(878) = RCT(878)*V(227) - A(879) = RCT(879)*V(133) - A(880) = RCT(880)*V(237) - A(881) = RCT(881)*V(195) - A(882) = RCT(882)*V(171) - A(883) = RCT(883)*V(153) - A(884) = RCT(884)*V(158) - A(885) = RCT(885)*V(167) - A(886) = RCT(886)*V(161) - A(887) = RCT(887)*V(182) - A(888) = RCT(888)*V(184) - A(889) = RCT(889)*V(125) - A(890) = RCT(890)*V(126) - A(891) = RCT(891)*V(216) - A(892) = RCT(892)*V(136) - A(893) = RCT(893)*V(137) - A(894) = RCT(894)*V(210) - A(895) = RCT(895)*V(177) - A(896) = RCT(896)*V(147) + A(865) = RCT(865)*V(58) + A(866) = RCT(866)*V(87) + A(867) = RCT(867)*V(88) + A(868) = RCT(868)*V(86) + A(869) = RCT(869)*V(89) + A(870) = RCT(870)*V(83) + A(871) = RCT(871)*V(168) + A(872) = RCT(872)*V(104) + A(873) = RCT(873)*V(194) + A(874) = RCT(874)*V(166) + A(875) = RCT(875)*V(181) + A(876) = RCT(876)*V(226) + A(877) = RCT(877)*V(152) + A(878) = RCT(878)*V(160) + A(879) = RCT(879)*V(227) + A(880) = RCT(880)*V(133) + A(881) = RCT(881)*V(237) + A(882) = RCT(882)*V(195) + A(883) = RCT(883)*V(171) + A(884) = RCT(884)*V(153) + A(885) = RCT(885)*V(158) + A(886) = RCT(886)*V(167) + A(887) = RCT(887)*V(161) + A(888) = RCT(888)*V(182) + A(889) = RCT(889)*V(184) + A(890) = RCT(890)*V(125) + A(891) = RCT(891)*V(126) + A(892) = RCT(892)*V(216) + A(893) = RCT(893)*V(136) + A(894) = RCT(894)*V(137) + A(895) = RCT(895)*V(210) + A(896) = RCT(896)*V(177) A(897) = RCT(897)*V(147) - A(898) = RCT(898)*V(236) - A(899) = RCT(899)*V(239) - A(900) = RCT(900)*V(202) + A(898) = RCT(898)*V(147) + A(899) = RCT(899)*V(236) + A(900) = RCT(900)*V(239) A(901) = RCT(901)*V(202) - A(902) = RCT(902)*V(140) - A(903) = RCT(903)*V(159) - A(904) = RCT(904)*V(122) - A(905) = RCT(905)*V(238) + A(902) = RCT(902)*V(202) + A(903) = RCT(903)*V(140) + A(904) = RCT(904)*V(159) + A(905) = RCT(905)*V(122) A(906) = RCT(906)*V(238) - A(907) = RCT(907)*V(209) + A(907) = RCT(907)*V(238) A(908) = RCT(908)*V(209) - A(909) = RCT(909)*V(114) - A(910) = RCT(910)*V(99) - A(911) = RCT(911)*V(67) - A(912) = RCT(912)*V(105) - A(913) = RCT(913)*V(206) + A(909) = RCT(909)*V(209) + A(910) = RCT(910)*V(114) + A(911) = RCT(911)*V(99) + A(912) = RCT(912)*V(67) + A(913) = RCT(913)*V(105) + A(914) = RCT(914)*V(206) !### Use Aout to return equation rates IF ( PRESENT( Aout ) ) Aout = A ! Aggregate function - Vdot(1) = -A(842) - Vdot(2) = -A(844) - Vdot(3) = -A(843) - Vdot(4) = A(706)+2*A(709)+2*A(712)+2*A(715) - Vdot(5) = A(756) + Vdot(1) = -A(843) + Vdot(2) = -A(845) + Vdot(3) = -A(844) + Vdot(4) = A(707)+2*A(710)+2*A(713)+2*A(716) + Vdot(5) = A(757) Vdot(6) = A(24)+A(49)+A(57)+A(78)+0.361*A(116)+0.5*A(124)+A(208)+A(289)+A(297)+A(336)+0.407*A(396)+0.355*A(431)+A(473)& &+A(474)+A(475)+A(476)+0.33*A(542)+0.33*A(543)+0.23*A(555)+0.75*A(557)+0.097*A(564)+0.5*A(574)+0.415*A(575)& - &+A(579)+0.5*A(581)+A(582)+A(584)+0.7*A(585)+A(592)+A(596)+0.5*A(598)+0.35*A(633)+A(634)+A(638)+A(649)+A(871)& - &+1.238*A(879)+A(911)+A(913) + &+A(579)+0.5*A(581)+A(582)+A(584)+0.7*A(585)+A(592)+A(596)+0.5*A(598)+0.35*A(633)+A(634)+A(638)+A(649)+A(872)& + &+1.238*A(880)+A(912)+A(914) Vdot(7) = A(389)+A(390) - Vdot(8) = A(707)+2*A(710)+2*A(713)+2*A(716) - Vdot(9) = A(708)+2*A(711)+2*A(714)+2*A(717) + Vdot(8) = A(708)+2*A(711)+2*A(714)+2*A(717) + Vdot(9) = A(709)+2*A(712)+2*A(715)+2*A(718) Vdot(10) = A(656) Vdot(11) = A(657) Vdot(12) = A(616)-A(656)-A(657) @@ -1007,16 +1008,16 @@ SUBROUTINE Fun ( V, F, RCT, Vdot, Aout, Vdotout ) Vdot(19) = A(658) Vdot(20) = A(659) Vdot(21) = A(617)-A(658)-A(659) - Vdot(22) = A(736) + Vdot(22) = A(737) Vdot(23) = -A(138)+0.005*A(434)+0.005*A(435)+0.005*A(436)+0.005*A(437)+0.005*A(438)+0.005*A(439)+0.005*A(440)+0.005& - &*A(441)-A(736) + &*A(441)-A(737) Vdot(24) = A(660) Vdot(25) = A(661) Vdot(26) = A(618)-A(660)-A(661) Vdot(27) = 0.25*A(165) - Vdot(28) = A(4)+A(693)+A(700) - Vdot(29) = A(731)+A(732)+A(742) - Vdot(30) = A(733)+A(734)+A(735)+A(743)+A(748) + Vdot(28) = A(4)+A(694)+A(701) + Vdot(29) = A(732)+A(733)+A(743) + Vdot(30) = A(734)+A(735)+A(736)+A(744)+A(749) Vdot(31) = A(18)+A(22)+A(26)+A(38)+A(40)+A(57)+A(59)+A(61)+A(64)+A(66)+A(68)+A(69)+A(70)+A(71)+A(72)+A(73)+A(75)+A(82)& &+0.15*A(113)+A(176)+A(217)+A(219)+A(220)+A(243)+A(251)+A(252)+A(267)+2*A(280)+A(290)+A(293)+A(294)+A(326)& &+A(339)+A(340)+A(346)+A(347)+A(353)+A(365)+A(371)+A(372)+A(389)+A(390)+A(391)+A(392)+A(393)+A(394)+A(395)& @@ -1024,8 +1025,8 @@ SUBROUTINE Fun ( V, F, RCT, Vdot, Aout, Vdotout ) &+A(463)+A(466)+A(467)+A(470)+A(471)+A(473)+A(475)+A(489)+A(490)+A(493)+A(494)+A(498)+A(499)+A(501)+A(502)& &+A(504)+A(505)+A(518)+A(519)+A(520)+A(521)+A(536)+A(537)+A(538)+A(539)+A(542)+A(545)+0.69*A(553)+A(558)& &+A(561)+A(571)+0.438*A(572)+0.13*A(574)+A(577)+A(578)+A(579)+0.13*A(581)+A(582)+A(587)+0.02*A(594)+0.13& - &*A(598)+0.995*A(608)+A(613)+A(620)+0.15*A(633)+A(634)+A(637)+A(638)+A(639)+A(640)+A(646)+2*A(759)+A(767)+0.3& - &*A(774)+A(849)+A(852)+A(855)+A(862)+A(864)+A(865)+A(866)+A(867)+A(868)+0.01*A(899) + &*A(598)+0.995*A(608)+A(613)+A(620)+0.15*A(633)+A(634)+A(637)+A(638)+A(639)+A(640)+A(646)+2*A(760)+A(768)+0.3& + &*A(775)+A(850)+A(853)+A(856)+A(863)+A(865)+A(866)+A(867)+A(868)+A(869)+0.01*A(900) Vdot(32) = A(1)+A(3)+A(4)+A(6)+A(8)+A(14)+A(15)+A(17)+A(44)+A(46)+2*A(51)+A(52)+A(54)+A(76)+A(83)+A(96)+A(115)+A(118)& &+A(121)+A(122)+A(140)+2*A(161)+A(166)+2*A(172)+2*A(173)+A(177)+A(178)+A(179)+A(191)+A(194)+A(195)+A(196)& &+A(197)+A(198)+A(199)+2*A(201)+A(203)+A(204)+2*A(205)+A(207)+2*A(209)+2*A(210)+A(213)+A(215)+2*A(222)+A(223)& @@ -1033,12 +1034,12 @@ SUBROUTINE Fun ( V, F, RCT, Vdot, Aout, Vdotout ) &*A(273)+2*A(282)+2*A(283)+2*A(315)+2*A(322)+2*A(323)+A(343)+A(357)+A(358)+A(359)+A(360)+A(361)+A(363)+A(364)& &+A(369)+A(379)+A(380)+A(386)+2*A(387)+2*A(388)+A(396)+A(506)+0.001*A(511)+A(516)+A(517)+A(548)+A(551)+A(552)& &+A(584)+A(595)+A(604)+A(609)+A(621)+1.258*A(625)+1.5*A(627)+A(629)+1.5*A(630)+A(632)+A(635)+A(641)+A(644)& - &+A(645)+A(651)+A(654)+0.5*A(663)+A(664)+2*A(665)+2*A(666)+A(667)+A(668)+A(669)+A(670)+A(671)+A(675)+A(677)& + &+A(645)+A(651)+A(654)+A(662)+0.5*A(664)+A(665)+2*A(666)+2*A(667)+A(668)+A(669)+A(670)+A(671)+A(672)+A(676)& &+A(678)+A(679)+A(680)+A(681)+A(682)+A(683)+A(684)+A(685)+A(686)+A(687)+A(688)+A(689)+A(690)+A(691)+A(692)& - &+A(693)+A(694)+A(695)+A(696)+A(697)+A(698)+A(699)+A(700)+2*A(709)+2*A(710)+2*A(711)+3*A(712)+3*A(713)+3& - &*A(714)+4*A(715)+4*A(716)+4*A(717)+A(719)+A(720)+A(721)+A(722)+A(723)+A(724)+A(725)+A(726)+A(727)+A(728)& - &+A(729)+A(730)+A(737)+A(738)+A(739)+A(740)+A(741)+A(744)+A(745)+A(746)+A(747)+A(749)+A(750)+2*A(751)+A(752)& - &+A(753)+A(754)+A(755)+2*A(770)+A(800)+2*A(813)+A(817)+A(834)+2*A(836) + &+A(693)+A(694)+A(695)+A(696)+A(697)+A(698)+A(699)+A(700)+A(701)+2*A(710)+2*A(711)+2*A(712)+3*A(713)+3*A(714)& + &+3*A(715)+4*A(716)+4*A(717)+4*A(718)+A(720)+A(721)+A(722)+A(723)+A(724)+A(725)+A(726)+A(727)+A(728)+A(729)& + &+A(730)+A(731)+A(738)+A(739)+A(740)+A(741)+A(742)+A(745)+A(746)+A(747)+A(748)+A(750)+A(751)+2*A(752)+A(753)& + &+A(754)+A(755)+A(756)+2*A(771)+A(801)+2*A(814)+A(818)+A(835)+2*A(837) Vdot(33) = A(36)+A(52)+0.05*A(53)+0.56*A(115)+0.505*A(116)+A(117)+2*A(119)+A(120)+2*A(121)+A(122)+0.5*A(124)+A(181)& &+A(207)+A(223)+A(262)+A(286)+A(287)+A(288)+0.14*A(358)+0.14*A(359)+0.14*A(363)+0.407*A(396)+0.6*A(399)+0.9& &*A(400)+0.6*A(406)+0.9*A(408)+A(412)+A(413)+A(414)+0.5*A(416)+0.5*A(418)+0.55*A(422)+0.55*A(426)+0.45*A(427)& @@ -1047,302 +1048,302 @@ SUBROUTINE Fun ( V, F, RCT, Vdot, Aout, Vdotout ) &+0.6*A(485)+0.6*A(486)+0.539*A(541)+0.33*A(542)+0.33*A(543)+0.18*A(548)+0.036*A(549)+0.12*A(551)+0.68*A(552)& &+0.77*A(555)+0.25*A(557)+0.75*A(564)+A(565)+2*A(568)+0.84*A(569)+0.507*A(573)+0.325*A(574)+0.488*A(575)& &+A(576)+0.86*A(577)+0.65*A(579)+0.25*A(587)+A(589)+0.888*A(590)+A(593)+A(599)+0.364*A(606)+0.2*A(616)+0.27& - &*A(617)+0.3*A(618)+0.25*A(650)+0.5*A(651)+0.25*A(653)+0.5*A(654)+A(763)+A(764)+0.88*A(772)+A(773)+A(775)& - &+A(777)+A(779)+2*A(780)+2*A(781)+A(782)+A(783)+A(784)+A(785)+A(787)+A(853)+A(857)+A(870)+A(873)+0.5*A(874)& - &+0.571*A(876)+0.875*A(877)+0.77*A(878)+A(881)+A(882)+0.888*A(887)+0.818*A(888)+A(889)+A(890)+0.55*A(891)& - &+0.55*A(894)+0.839*A(898)+A(900)+0.122*A(901)+A(904)+A(908)+A(910)+A(913) + &*A(617)+0.3*A(618)+0.25*A(650)+0.5*A(651)+0.25*A(653)+0.5*A(654)+A(764)+A(765)+0.88*A(773)+A(774)+A(776)& + &+A(778)+A(780)+2*A(781)+2*A(782)+A(783)+A(784)+A(785)+A(786)+A(788)+A(854)+A(858)+A(871)+A(874)+0.5*A(875)& + &+0.571*A(877)+0.875*A(878)+0.77*A(879)+A(882)+A(883)+0.888*A(888)+0.818*A(889)+A(890)+A(891)+0.55*A(892)& + &+0.55*A(895)+0.839*A(899)+A(901)+0.122*A(902)+A(905)+A(909)+A(911)+A(914) Vdot(34) = A(24)+A(338)+A(345) Vdot(35) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(167)+A(344)+A(348) Vdot(36) = A(25)+A(197)+A(198)+A(199)+A(261) Vdot(37) = A(19)+A(23)+0.06*A(341)+0.06*A(342)+A(349)+0.02*A(358)+0.02*A(359)+0.02*A(363)+0.013*A(396)+0.045*A(548) - Vdot(38) = A(318)-A(319)-A(715)-A(716)-A(717)-A(845) - Vdot(39) = -A(256)-A(818) - Vdot(40) = A(332)-A(333)-A(334)-A(709)-A(710)-A(711)-A(840) - Vdot(41) = -A(390)+A(739)+A(740)+A(741) - Vdot(42) = -0.75*A(240)-A(823) - Vdot(43) = -A(335)-A(841) - Vdot(44) = -0.41*A(235)-A(829) - Vdot(45) = -0.75*A(242)-A(831) - Vdot(46) = -0.3*A(241)-A(824) - Vdot(47) = A(317)-A(712)-A(713)-A(714)-A(846) - Vdot(48) = -0.75*A(239)-A(822) + Vdot(38) = A(318)-A(319)-A(716)-A(717)-A(718)-A(846) + Vdot(39) = -A(256)-A(819) + Vdot(40) = A(332)-A(333)-A(334)-A(710)-A(711)-A(712)-A(841) + Vdot(41) = -A(390)+A(740)+A(741)+A(742) + Vdot(42) = -0.75*A(240)-A(824) + Vdot(43) = -A(335)-A(842) + Vdot(44) = -0.41*A(235)-A(830) + Vdot(45) = -0.75*A(242)-A(832) + Vdot(46) = -0.3*A(241)-A(825) + Vdot(47) = A(317)-A(713)-A(714)-A(715)-A(847) + Vdot(48) = -0.75*A(239)-A(823) Vdot(49) = A(80)-A(81) - Vdot(50) = A(186)-A(803) - Vdot(51) = -0.86*A(227)-A(819) - Vdot(52) = -0.88*A(232)-A(820) - Vdot(53) = -0.86*A(233)-A(821) + Vdot(50) = A(186)-A(804) + Vdot(51) = -0.86*A(227)-A(820) + Vdot(52) = -0.88*A(232)-A(821) + Vdot(53) = -0.86*A(233)-A(822) Vdot(54) = -A(606) - Vdot(55) = -0.64*A(234)-A(830) - Vdot(56) = A(305)-2*A(306)-A(837) - Vdot(57) = -A(195)-A(196)+A(221)-A(852) - Vdot(58) = A(3)+A(665)-A(863)-A(864) - Vdot(59) = A(6)+A(666)-A(861)-A(862) + Vdot(55) = -0.64*A(234)-A(831) + Vdot(56) = A(305)-2*A(306)-A(838) + Vdot(57) = -A(195)-A(196)+A(221)-A(853) + Vdot(58) = A(3)+A(666)-A(864)-A(865) + Vdot(59) = A(6)+A(667)-A(862)-A(863) Vdot(60) = -A(616) - Vdot(61) = -A(219)-A(220)-A(221)+A(855) - Vdot(62) = -A(207)-A(208)-A(853) - Vdot(63) = A(55)-A(56)-A(774) + Vdot(61) = -A(219)-A(220)-A(221)+A(856) + Vdot(62) = -A(207)-A(208)-A(854) + Vdot(63) = A(55)-A(56)-A(775) Vdot(64) = 0.005*A(608)-A(613) - Vdot(65) = A(325)-A(327)-A(706)-A(707)-A(708) - Vdot(66) = -A(139)+0.37*A(598)-A(797) - Vdot(67) = 0.65*A(633)-A(636)-A(911) + Vdot(65) = A(325)-A(327)-A(707)-A(708)-A(709) + Vdot(66) = -A(139)+0.37*A(598)-A(798) + Vdot(67) = 0.65*A(633)-A(636)-A(912) Vdot(68) = -A(255)-A(288) - Vdot(69) = A(719)+A(720)+A(723)+A(724)+A(727)+A(728)-A(847) - Vdot(70) = -A(189)-0.95*A(229)-A(805) - Vdot(71) = A(162)-A(163)-A(849)-A(850) - Vdot(72) = -A(248)+A(277)-A(278)-A(813) - Vdot(73) = -A(254)-A(287)-A(808) - Vdot(74) = -A(188)-0.68*A(230)-A(804) + Vdot(69) = A(720)+A(721)+A(724)+A(725)+A(728)+A(729)-A(848) + Vdot(70) = -A(189)-0.95*A(229)-A(806) + Vdot(71) = A(162)-A(163)-A(850)-A(851) + Vdot(72) = -A(248)+A(277)-A(278)-A(814) + Vdot(73) = -A(254)-A(287)-A(809) + Vdot(74) = -A(188)-0.68*A(230)-A(805) Vdot(75) = -A(604)-A(605) Vdot(76) = -A(617) Vdot(77) = -A(618) - Vdot(78) = -0.79*A(238)-A(260)-A(825) - Vdot(79) = -0.69*A(236)-A(258)-A(826) - Vdot(80) = -0.74*A(237)-A(259)-A(827) - Vdot(81) = -0.72*A(231)-A(257)-A(828) + Vdot(78) = -0.79*A(238)-A(260)-A(826) + Vdot(79) = -0.69*A(236)-A(258)-A(827) + Vdot(80) = -0.74*A(237)-A(259)-A(828) + Vdot(81) = -0.72*A(231)-A(257)-A(829) Vdot(82) = -A(164)-A(165)-A(166) - Vdot(83) = 0.73*A(341)+0.4*A(342)-A(597)-A(869) - Vdot(84) = 0.098*A(575)+0.75*A(587)-A(588)-A(743) + Vdot(83) = 0.73*A(341)+0.4*A(342)-A(597)-A(870) + Vdot(84) = 0.098*A(575)+0.75*A(587)-A(588)-A(744) Vdot(85) = A(10)-A(11)-A(12) - Vdot(86) = A(74)-A(394)-A(867) - Vdot(87) = A(27)-A(392)-A(865) - Vdot(88) = A(60)-A(393)-A(866) - Vdot(89) = A(65)-A(395)-A(868) - Vdot(90) = A(316)-A(317)-2*A(318)+2*A(319)-A(320)+A(331)+A(334)-A(836)+A(840)+2*A(845)+A(846) - Vdot(91) = A(87)-A(135)-A(793) - Vdot(92) = A(111)-A(133)-A(791) - Vdot(93) = A(91)-A(134)-A(792) - Vdot(94) = 0.41*A(113)-A(136)-A(795) + Vdot(86) = A(74)-A(394)-A(868) + Vdot(87) = A(27)-A(392)-A(866) + Vdot(88) = A(60)-A(393)-A(867) + Vdot(89) = A(65)-A(395)-A(869) + Vdot(90) = A(316)-A(317)-2*A(318)+2*A(319)-A(320)+A(331)+A(334)-A(837)+A(841)+2*A(846)+A(847) + Vdot(91) = A(87)-A(135)-A(794) + Vdot(92) = A(111)-A(133)-A(792) + Vdot(93) = A(91)-A(134)-A(793) + Vdot(94) = 0.41*A(113)-A(136)-A(796) Vdot(95) = A(635)-A(637)-A(638) - Vdot(96) = -A(389)+A(737)+A(738)+A(744)+A(745)+A(746)+A(747)+A(749)+A(750)+A(751)+A(752)+A(753)+A(754)+A(755) - Vdot(97) = -A(190)-A(228)-A(806) - Vdot(98) = A(323)+A(721)+A(722)+A(725)+A(726)+A(729)+A(730)-A(848) - Vdot(99) = 0.06*A(617)+0.06*A(618)-A(631)-A(632)-A(910) - Vdot(100) = -A(253)-A(286)-A(807) - Vdot(101) = A(41)-A(42)-A(43)-A(767)-A(768) - Vdot(102) = 0.995*A(608)+A(609)+0.6*A(610)-A(611)-A(612)+A(909) - Vdot(103) = A(244)+A(248)+A(273)+A(275)-A(276)-A(279)-A(280)+A(282)+A(813)-A(832) - Vdot(104) = 0.075*A(548)+0.241*A(553)+0.653*A(564)-A(596)-A(742)-A(871)+0.75*A(877) - Vdot(105) = 0.15*A(633)+A(638)+A(642)-A(643)-A(912) - Vdot(106) = 0.15*A(427)+0.15*A(428)-A(433)+0.112*A(887)+0.182*A(888)+0.161*A(898) - Vdot(107) = -A(247)+A(274)+A(281)+A(321)-A(812) - Vdot(108) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(167)+A(344)+A(348)-A(854) - Vdot(109) = A(109)+A(110)-A(132)-A(790) + Vdot(96) = -A(389)+A(738)+A(739)+A(745)+A(746)+A(747)+A(748)+A(750)+A(751)+A(752)+A(753)+A(754)+A(755)+A(756) + Vdot(97) = -A(190)-A(228)-A(807) + Vdot(98) = A(323)+A(722)+A(723)+A(726)+A(727)+A(730)+A(731)-A(849) + Vdot(99) = 0.06*A(617)+0.06*A(618)-A(631)-A(632)-A(911) + Vdot(100) = -A(253)-A(286)-A(808) + Vdot(101) = A(41)-A(42)-A(43)-A(768)-A(769) + Vdot(102) = 0.995*A(608)+A(609)+0.6*A(610)-A(611)-A(612)+A(910) + Vdot(103) = A(244)+A(248)+A(273)+A(275)-A(276)-A(279)-A(280)+A(282)+A(814)-A(833) + Vdot(104) = 0.075*A(548)+0.241*A(553)+0.653*A(564)-A(596)-A(743)-A(872)+0.75*A(878) + Vdot(105) = 0.15*A(633)+A(638)+A(642)-A(643)-A(913) + Vdot(106) = 0.15*A(427)+0.15*A(428)-A(433)+0.112*A(888)+0.182*A(889)+0.161*A(899) + Vdot(107) = -A(247)+A(274)+A(281)+A(321)-A(813) + Vdot(108) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(167)+A(344)+A(348)-A(855) + Vdot(109) = A(109)+A(110)-A(132)-A(791) Vdot(110) = 0.19*A(617)+0.15*A(618)-A(626)-A(627) - Vdot(111) = A(112)-A(137)-A(794) - Vdot(112) = A(92)-A(131)-A(789) + Vdot(111) = A(112)-A(137)-A(795) + Vdot(112) = A(92)-A(131)-A(790) Vdot(113) = -A(67)-A(76)-A(302) - Vdot(114) = A(607)+0.2*A(610)-A(614)-A(615)-A(909) - Vdot(115) = 0.255*A(440)+0.595*A(441)-A(454)+A(481)+A(483)-A(735) - Vdot(116) = A(460)+0.13*A(461)+0.2*A(462)-A(566)+0.35*A(589)+0.35*A(900) + Vdot(114) = A(607)+0.2*A(610)-A(614)-A(615)-A(910) + Vdot(115) = 0.255*A(440)+0.595*A(441)-A(454)+A(481)+A(483)-A(736) + Vdot(116) = A(460)+0.13*A(461)+0.2*A(462)-A(566)+0.35*A(589)+0.35*A(901) Vdot(117) = 0.315*A(428)-A(475)-A(476) Vdot(118) = 0.54*A(616)-A(624)-A(625) - Vdot(119) = A(354)+A(366)-A(370)-A(856) + Vdot(119) = A(354)+A(366)-A(370)-A(857) Vdot(120) = 0.315*A(427)-A(473)-A(474) Vdot(121) = -A(62)-A(63)-A(185)-A(298)-A(299) - Vdot(122) = A(459)+A(464)-A(590)-A(904) - Vdot(123) = 0.474*A(510)+0.34*A(511)+0.244*A(512)+0.841*A(515)+0.841*A(517)+0.841*A(520)-A(522)-A(523)+0.841*A(896)& - &+0.227*A(899) - Vdot(124) = A(173)+A(175)-A(176)+A(694)+A(698)+A(699)-A(798) - Vdot(125) = 0.15*A(399)+0.15*A(406)-A(429)+0.009*A(440)-A(889) - Vdot(126) = 0.15*A(400)+0.15*A(408)-A(430)+0.009*A(441)-A(890) - Vdot(127) = 0.67*A(435)+0.68*A(437)-A(455)-A(456)+0.67*A(478)+0.67*A(480)-A(733) - Vdot(128) = 0.33*A(435)+0.32*A(437)-A(457)-A(458)+0.33*A(478)+0.33*A(480)-A(734) + Vdot(122) = A(459)+A(464)-A(590)-A(905) + Vdot(123) = 0.474*A(510)+0.34*A(511)+0.244*A(512)+0.841*A(515)+0.841*A(517)+0.841*A(520)-A(522)-A(523)+0.841*A(897)& + &+0.227*A(900) + Vdot(124) = A(173)+A(175)-A(176)+A(695)+A(699)+A(700)-A(799) + Vdot(125) = 0.15*A(399)+0.15*A(406)-A(429)+0.009*A(440)-A(890) + Vdot(126) = 0.15*A(400)+0.15*A(408)-A(430)+0.009*A(441)-A(891) + Vdot(127) = 0.67*A(435)+0.68*A(437)-A(455)-A(456)+0.67*A(478)+0.67*A(480)-A(734) + Vdot(128) = 0.33*A(435)+0.32*A(437)-A(457)-A(458)+0.33*A(478)+0.33*A(480)-A(735) Vdot(129) = 0.25*A(94)+0.25*A(95)-A(103)+A(107)+A(108)-A(296) - Vdot(130) = A(465)+0.2*A(466)+0.13*A(468)-A(569)+0.15*A(589)+0.15*A(900)+0.122*A(901) - Vdot(131) = A(384)+A(385)+A(386)+A(387)+A(388)-A(391)-A(741)-A(860) - Vdot(132) = A(283)+A(675)+A(678)+A(679)+A(680)+A(686)+A(687)+A(688)+A(690)+A(695)+A(696)+A(697)-A(809) - Vdot(133) = 0.5*A(574)-A(575)-0.75*A(879) - Vdot(134) = A(28)-A(32)-A(33)-A(291)-A(762) + Vdot(130) = A(465)+0.2*A(466)+0.13*A(468)-A(569)+0.15*A(589)+0.15*A(901)+0.122*A(902) + Vdot(131) = A(384)+A(385)+A(386)+A(387)+A(388)-A(391)-A(742)-A(861) + Vdot(132) = A(283)+A(676)+A(679)+A(680)+A(681)+A(687)+A(688)+A(689)+A(691)+A(696)+A(697)+A(698)-A(810) + Vdot(133) = 0.5*A(574)-A(575)-0.75*A(880) + Vdot(134) = A(28)-A(32)-A(33)-A(291)-A(763) Vdot(135) = -2*A(4)-A(5)-A(6) - Vdot(136) = A(419)-A(477)-A(478)-A(745)-A(892) - Vdot(137) = A(423)-A(479)-A(480)-A(746)-A(893) + Vdot(136) = A(419)-A(477)-A(478)-A(746)-A(893) + Vdot(137) = A(423)-A(479)-A(480)-A(747)-A(894) Vdot(138) = 0.8*A(624)+0.727*A(626)-A(628)-A(629)-A(630) - Vdot(139) = A(306)+A(309)-A(310)+A(313)-A(326)-A(833) - Vdot(140) = 0.725*A(445)+0.725*A(449)+0.35*A(453)-A(591)-A(902) - Vdot(141) = -A(558)-A(559)-A(560)+0.224*A(887)+0.068*A(898) - Vdot(142) = -A(561)-A(562)-A(563)+0.182*A(888)+0.128*A(898) + Vdot(139) = A(306)+A(309)-A(310)+A(313)-A(326)-A(834) + Vdot(140) = 0.725*A(445)+0.725*A(449)+0.35*A(453)-A(591)-A(903) + Vdot(141) = -A(558)-A(559)-A(560)+0.224*A(888)+0.068*A(899) + Vdot(142) = -A(561)-A(562)-A(563)+0.182*A(889)+0.128*A(899) Vdot(143) = 0.435*A(544)-A(545)-A(546) Vdot(144) = -2*A(1)-A(2)-A(3) Vdot(145) = 0.3*A(617)+0.56*A(618)+0.44*A(626)+0.44*A(627)-A(653)-A(654)-A(655) Vdot(146) = 0.461*A(541)-0.33*A(542)-0.33*A(543)+0.041*A(594) - Vdot(147) = A(508)-A(525)-A(527)-A(528)-A(530)-A(531)-A(749)-A(896)-A(897) + Vdot(147) = A(508)-A(525)-A(527)-A(528)-A(530)-A(531)-A(750)-A(897)-A(898) Vdot(148) = A(479)-A(491)-A(492)-A(493)-A(494) Vdot(149) = A(580)+A(583)-A(586)-A(587) Vdot(150) = -A(351)-A(358)-A(360) Vdot(151) = -A(352)-A(359)-A(361) - Vdot(152) = A(433)-A(565)+0.444*A(590)-A(876)+0.112*A(887)+0.182*A(888)+0.162*A(898)+0.454*A(904) - Vdot(153) = 0.937*A(401)-A(434)-A(435)-A(438)-A(883) + Vdot(152) = A(433)-A(565)+0.444*A(590)-A(877)+0.112*A(888)+0.182*A(889)+0.162*A(899)+0.454*A(905) + Vdot(153) = 0.937*A(401)-A(434)-A(435)-A(438)-A(884) Vdot(154) = 0.25*A(85)+0.25*A(86)+0.25*A(97)+0.25*A(98)+0.25*A(100)+0.25*A(101)+0.25*A(102)-A(104)+0.25*A(355)+0.25& &*A(367)+0.25*A(376) Vdot(155) = 0.56*A(616)+0.68*A(617)+0.28*A(618)+0.18*A(624)+1.05*A(628)+A(629)+0.3*A(630)+A(646)+A(647)-A(650)-A(651)& - &-A(652)+A(913) + &-A(652)+A(914) Vdot(156) = 0.06*A(624)+0.742*A(625)+0.073*A(626)+0.3*A(627)+0.3*A(628)+0.3*A(630)+A(639)+A(640)+A(641)-A(644)-A(645)& - &+A(648)+A(912) + &+A(648)+A(913) Vdot(157) = -A(58)-A(140)-A(184)-A(292) - Vdot(158) = 0.937*A(403)-A(436)-A(437)-A(439)-A(884) - Vdot(159) = 0.824*A(442)+0.452*A(446)+A(450)+0.667*A(591)-A(592)-A(903) - Vdot(160) = -A(564)+0.022*A(594)-A(877)+0.552*A(887)+0.455*A(888)+0.481*A(898) - Vdot(161) = A(404)-A(441)-A(886) + Vdot(158) = 0.937*A(403)-A(436)-A(437)-A(439)-A(885) + Vdot(159) = 0.824*A(442)+0.452*A(446)+A(450)+0.667*A(591)-A(592)-A(904) + Vdot(160) = -A(564)+0.022*A(594)-A(878)+0.552*A(888)+0.455*A(889)+0.481*A(899) + Vdot(161) = A(404)-A(441)-A(887) Vdot(162) = A(477)-A(487)-A(488)-A(489)-A(490) Vdot(163) = A(484)-A(496)-A(500)-A(501)-A(502) Vdot(164) = A(482)-A(495)-A(497)-A(498)-A(499) Vdot(165) = -A(362)-A(363)-A(364) - Vdot(166) = 0.13*A(469)+0.2*A(471)+0.53*A(554)+0.6*A(566)-A(568)+0.255*A(570)+0.318*A(590)-A(873)+0.391*A(904) - Vdot(167) = A(402)-A(440)-A(885) + Vdot(166) = 0.13*A(469)+0.2*A(471)+0.53*A(554)+0.6*A(566)-A(568)+0.255*A(570)+0.318*A(590)-A(874)+0.391*A(905) + Vdot(167) = A(402)-A(440)-A(886) Vdot(168) = 0.3*A(399)+0.3*A(406)+0.018*A(440)+0.284*A(443)+0.135*A(445)+0.249*A(534)+0.471*A(535)+0.303*A(536)+0.59& - &*A(538)-A(599)-A(600)-A(870)+0.5*A(906) - Vdot(169) = A(47)-A(48)-A(667)-A(668)-A(669)-A(670)-A(671)-A(771) - Vdot(170) = 0.085*A(427)+0.165*A(428)+0.58*A(429)+0.77*A(430)-A(432)+0.75*A(454)+A(455)+A(457)+A(528)+A(540)-A(748) + &*A(538)-A(599)-A(600)-A(871)+0.5*A(907) + Vdot(169) = A(47)-A(48)-A(668)-A(669)-A(670)-A(671)-A(672)-A(772) + Vdot(170) = 0.085*A(427)+0.165*A(428)+0.58*A(429)+0.77*A(430)-A(432)+0.75*A(454)+A(455)+A(457)+A(528)+A(540)-A(749) Vdot(171) = 0.6*A(485)+0.031*A(497)+0.065*A(498)+0.094*A(503)+0.355*A(504)+0.06*A(534)+0.073*A(535)+0.17*A(536)+0.291& - &*A(538)+0.378*A(541)-A(557)+0.13*A(581)+0.3*A(585)-A(754)-A(882) - Vdot(172) = -A(175)+A(187)-A(674)-A(675)-A(801)-A(802) - Vdot(173) = A(194)+A(199)+A(202)+A(203)-A(214)-A(215)-A(216)-A(217)-A(218)+0.24*A(224)+0.15*A(225)+A(264)+A(763) + &*A(538)+0.378*A(541)-A(557)+0.13*A(581)+0.3*A(585)-A(755)-A(883) + Vdot(172) = -A(175)+A(187)-A(675)-A(676)-A(802)-A(803) + Vdot(173) = A(194)+A(199)+A(202)+A(203)-A(214)-A(215)-A(216)-A(217)-A(218)+0.24*A(224)+0.15*A(225)+A(264)+A(764) Vdot(174) = 0.12*A(353)+A(371)+0.7*A(373)+0.7*A(374)+0.7*A(375)+0.35*A(376)+0.7*A(377)+0.7*A(379)+1.4*A(381)+1.05& - &*A(382)+0.7*A(383)-A(384)-A(388)-A(739)-A(858) + &*A(382)+0.7*A(383)-A(384)-A(388)-A(740)-A(859) Vdot(175) = A(605)-A(607)-A(608)-A(609)-A(610)+A(614) Vdot(176) = A(631)+A(632)-A(633)-A(634)-A(635)+A(636)+A(637)-A(649) - Vdot(177) = 0.473*A(507)+0.07*A(509)+0.399*A(510)+0.355*A(513)-A(524)-A(526)-A(529)-A(750)-A(895) + Vdot(177) = 0.473*A(507)+0.07*A(509)+0.399*A(510)+0.355*A(513)-A(524)-A(526)-A(529)-A(751)-A(896) Vdot(178) = 0.46*A(616)+0.81*A(617)+0.85*A(618)-A(619)-A(620)-A(621)-A(622)-A(623)+0.14*A(624)+0.2*A(626)+0.2*A(627)& &+0.7*A(628)+0.2*A(630) Vdot(179) = 0.345*A(434)+0.595*A(440)-A(442)-A(443)-A(444)-A(445) Vdot(180) = 0.345*A(436)+0.255*A(441)-A(446)-A(447)-A(448)-A(449) - Vdot(181) = 0.29*A(553)+0.47*A(554)+0.063*A(564)+0.4*A(566)-A(567)+0.16*A(569)+0.126*A(590)-A(874)+0.1*A(901)+0.155& - &*A(904) - Vdot(182) = 0.25*A(399)+0.25*A(406)-A(427)+0.015*A(440)-A(887) + Vdot(181) = 0.29*A(553)+0.47*A(554)+0.063*A(564)+0.4*A(566)-A(567)+0.16*A(569)+0.126*A(590)-A(875)+0.1*A(902)+0.155& + &*A(905) + Vdot(182) = 0.25*A(399)+0.25*A(406)-A(427)+0.015*A(440)-A(888) Vdot(183) = 0.655*A(434)+0.655*A(436)-A(450)-A(451)-A(452)-A(453) - Vdot(184) = 0.25*A(400)+0.25*A(408)-A(428)+0.015*A(441)-A(888) + Vdot(184) = 0.25*A(400)+0.25*A(408)-A(428)+0.015*A(441)-A(889) Vdot(185) = A(525)-A(532)-A(535)-A(538)-A(539) - Vdot(186) = -A(25)+0.1*A(115)-A(197)-A(198)-A(199)-A(261)+A(773) - Vdot(187) = 0.2*A(633)+A(634)-A(639)-A(640)-A(641)-A(642)+A(643)+A(644)-A(648)+A(649)+A(910)+A(911) - Vdot(188) = A(39)-A(40)+0.5*A(663)+A(683)+A(684)+A(685)+A(686)+A(687)+A(688)+A(719)+A(720)+A(721)+A(722)-A(766)+A(861)& - &+A(863)+A(913) - Vdot(189) = A(412)+A(413)+A(414)+0.5*A(416)+0.5*A(418)+0.45*A(422)+0.45*A(426)-A(431)+0.06*A(440)+0.06*A(441)+A(885)& - &+A(886)+0.45*A(891)+0.45*A(894) + Vdot(186) = -A(25)+0.1*A(115)-A(197)-A(198)-A(199)-A(261)+A(774) + Vdot(187) = 0.2*A(633)+A(634)-A(639)-A(640)-A(641)-A(642)+A(643)+A(644)-A(648)+A(649)+A(911)+A(912) + Vdot(188) = A(39)-A(40)+0.5*A(664)+A(684)+A(685)+A(686)+A(687)+A(688)+A(689)+A(720)+A(721)+A(722)+A(723)-A(767)+A(862)& + &+A(864)+A(914) + Vdot(189) = A(412)+A(413)+A(414)+0.5*A(416)+0.5*A(418)+0.45*A(422)+0.45*A(426)-A(431)+0.06*A(440)+0.06*A(441)+A(886)& + &+A(887)+0.45*A(892)+0.45*A(895) Vdot(190) = 0.16*A(439)+0.25*A(454)-A(469)-A(470)-A(471)-A(472) Vdot(191) = 0.12*A(115)-A(345)-A(346)-A(347)-A(348)-A(349)-A(350) - Vdot(192) = -0.75*A(226)-A(243)+A(272)+A(279)+A(285)+0.5*A(672)+0.5*A(673)+A(677)+A(681)+A(682)+A(683)+A(684)+A(685)& - &+A(689)+A(691)+A(692)-A(810) + Vdot(192) = -0.75*A(226)-A(243)+A(272)+A(279)+A(285)+0.5*A(673)+0.5*A(674)+A(678)+A(682)+A(683)+A(684)+A(685)+A(686)& + &+A(690)+A(692)+A(693)-A(811) Vdot(193) = -A(34)-A(35)+0.85*A(89)+0.85*A(90)+0.3*A(400)+0.3*A(408)+0.018*A(441)+0.294*A(447)+0.135*A(449)+0.009& - &*A(534)+0.054*A(535)+0.013*A(536)+0.07*A(538)+0.036*A(549)+0.23*A(555)-A(851)+0.05*A(906) + &*A(534)+0.054*A(535)+0.013*A(536)+0.07*A(538)+0.036*A(549)+0.23*A(555)-A(852)+0.05*A(907) Vdot(194) = 0.791*A(131)-A(337)+0.551*A(497)+0.935*A(498)+0.242*A(503)+0.546*A(504)+0.589*A(534)+0.471*A(535)+0.687& - &*A(536)+0.59*A(538)+0.231*A(542)+0.231*A(543)+A(545)+0.82*A(546)+0.68*A(552)+A(557)-A(872)+A(882) - Vdot(195) = 0.059*A(488)+0.272*A(489)-A(556)+A(563)+A(578)+0.37*A(581)-A(755)-A(881)+0.5*A(905) + &*A(536)+0.59*A(538)+0.231*A(542)+0.231*A(543)+A(545)+0.82*A(546)+0.68*A(552)+A(557)-A(873)+A(883) + Vdot(195) = 0.059*A(488)+0.272*A(489)-A(556)+A(563)+A(578)+0.37*A(581)-A(756)-A(882)+0.5*A(906) Vdot(196) = 0.06*A(353)+0.22*A(365)+0.3*A(373)+0.3*A(374)+0.3*A(375)+0.15*A(376)+0.3*A(377)+0.3*A(379)+0.6*A(381)+0.45& - &*A(382)+0.3*A(383)-A(385)-A(386)-A(387)-A(740)-A(859) + &*A(382)+0.3*A(383)-A(385)-A(386)-A(387)-A(741)-A(860) Vdot(197) = -A(75)-A(92)-A(102)+A(118)+0.209*A(131)-A(149)-A(154) - Vdot(198) = A(69)+0.07*A(72)-A(77)+A(88)-A(738)-A(796) - Vdot(199) = A(307)-A(308)-2*A(309)-A(719)-A(720)-A(721)-A(722)-A(838) + Vdot(198) = A(69)+0.07*A(72)-A(77)+A(88)-A(739)-A(797) + Vdot(199) = A(307)-A(308)-2*A(309)-A(720)-A(721)-A(722)-A(723)-A(839) Vdot(200) = A(547)+A(558)+A(559)-A(570)-A(571)-A(572) Vdot(201) = 0.964*A(549)+A(561)+A(562)-A(573)-A(576)-A(577)-A(578) - Vdot(202) = 0.176*A(442)+0.548*A(446)+0.35*A(461)+0.35*A(468)+0.35*A(469)-A(589)+0.333*A(591)-A(900)-A(901)+0.75& - &*A(902) + Vdot(202) = 0.176*A(442)+0.548*A(446)+0.35*A(461)+0.35*A(468)+0.35*A(469)-A(589)+0.333*A(591)-A(901)-A(902)+0.75& + &*A(903) Vdot(203) = A(550)+0.32*A(552)-A(574)+0.165*A(575)-A(579)-A(580)+A(586) Vdot(204) = -A(66)-A(86)-A(112)+A(114)-A(126)-A(128)+0.209*A(137)+A(303)+A(304) Vdot(205) = -A(336)+0.441*A(500)+0.858*A(501)+0.033*A(503)+0.071*A(504)+0.051*A(534)+0.054*A(535)+0.064*A(536)+0.07& - &*A(538)+0.099*A(542)+0.099*A(543)+0.89*A(545)+0.73*A(546)-A(595)-A(857)+0.3*A(880)+0.15*A(905) - Vdot(206) = 0.258*A(625)+0.5*A(627)+0.5*A(630)+A(645)-A(646)-A(647)-A(756)-A(913) + &*A(538)+0.099*A(542)+0.099*A(543)+0.89*A(545)+0.73*A(546)-A(595)-A(858)+0.3*A(881)+0.15*A(906) + Vdot(206) = 0.258*A(625)+0.5*A(627)+0.5*A(630)+A(645)-A(646)-A(647)-A(757)-A(914) Vdot(207) = -A(49)+0.134*A(116)+A(117)+0.5*A(124)-A(289)+0.21*A(341)+0.54*A(342)+0.07*A(353)+0.01*A(363)+0.449*A(553)& &+0.187*A(564)+0.3*A(588)+0.5*A(597)+0.364*A(606)+0.25*A(650)+0.5*A(651)+0.1*A(653)+0.2*A(654) Vdot(208) = -A(7)+A(19)-A(21)+A(23)-A(213)-A(265)+0.06*A(341)+0.06*A(342)+A(349)+0.02*A(358)+0.02*A(359)+0.02*A(363)& - &+0.013*A(396)+0.045*A(548)-A(761) - Vdot(209) = A(463)+A(467)+A(470)+A(487)+A(491)+A(495)+A(496)+A(532)+0.5*A(533)-A(593)+0.92*A(594)-A(752)-A(907)-A(908) - Vdot(210) = A(421)-A(483)-A(484)-A(486)+0.127*A(511)+0.057*A(512)-A(747)-A(894) + &+0.013*A(396)+0.045*A(548)-A(762) + Vdot(209) = A(463)+A(467)+A(470)+A(487)+A(491)+A(495)+A(496)+A(532)+0.5*A(533)-A(593)+0.92*A(594)-A(753)-A(908)-A(909) + Vdot(210) = A(421)-A(483)-A(484)-A(486)+0.127*A(511)+0.057*A(512)-A(748)-A(895) Vdot(211) = 0.1*A(360)+0.1*A(361)+0.5*A(364)-A(371)-A(373)-A(375)-A(377)-A(379)-2*A(381)-A(382) Vdot(212) = 0.9*A(360)+0.9*A(361)+0.5*A(364)-A(372)-A(374)-A(376)-A(378)-A(380)-A(382)-2*A(383) Vdot(213) = A(58)-A(59)-A(60)-A(94)-2*A(105)-2*A(107)-A(109)+A(140)-A(156)-A(158)+A(184)+A(292)-A(293) Vdot(214) = A(29)+0.13*A(31)-A(50)+0.25*A(85)+0.25*A(86)+0.25*A(94)+0.25*A(95)+0.25*A(97)+0.25*A(98)+0.5*A(99)+0.25& &*A(100)+0.25*A(101)+0.25*A(102)-A(295)+0.25*A(355)+0.25*A(367)+0.25*A(376)+0.355*A(512)+0.034*A(513)+0.2& - &*A(610)+0.1*A(779) + &*A(610)+0.1*A(780) Vdot(215) = -A(78)+0.5*A(124)+A(127)+A(128)+A(143)+A(150)+A(151)+A(152)+A(153)+A(154)+A(155)+A(158)+A(159)-A(297)& &+A(350)+0.13*A(598)+0.15*A(653)+0.3*A(654) - Vdot(216) = A(425)-A(481)-A(482)-A(485)+0.032*A(510)+0.671*A(511)+0.298*A(512)-A(744)-A(891) + Vdot(216) = A(425)-A(481)-A(482)-A(485)+0.032*A(510)+0.671*A(511)+0.298*A(512)-A(745)-A(892) Vdot(217) = 0.67*A(524)-A(533)-A(534)-A(536)-A(537) Vdot(218) = 0.134*A(116)-A(119)-A(121)+0.8*A(466)+0.52*A(468)+A(600)+0.636*A(606)+0.18*A(616)+0.12*A(617)+0.1*A(618)& - &+0.06*A(624)+0.6*A(650)+0.6*A(651)+0.2*A(652)-A(731)-A(780)-A(781)-A(782)+0.5*A(874)+0.429*A(876)+0.125& - &*A(877)+0.438*A(901)+0.571*A(903) + &+0.06*A(624)+0.6*A(650)+0.6*A(651)+0.2*A(652)-A(732)-A(781)-A(782)-A(783)+0.5*A(875)+0.429*A(877)+0.125& + &*A(878)+0.438*A(902)+0.571*A(904) Vdot(219) = 0.32*A(68)+A(73)-A(84)+0.16*A(97)+0.75*A(101)+0.791*A(134)+0.32*A(144)+A(147)+A(155)-A(183)-A(300)+0.11& - &*A(353)+A(394)-A(776)-A(777)+A(792)+0.32*A(796)+A(867) + &*A(353)+A(394)-A(777)-A(778)+A(793)+0.32*A(797)+A(868) Vdot(220) = -A(301)-A(396)-A(397)-A(398)-A(399)-A(400)-A(506) Vdot(221) = A(362)-A(365)-A(366)-A(367)-A(368)-A(369) Vdot(222) = 0.19*A(68)-A(93)-A(96)+0.35*A(97)+0.25*A(100)+0.19*A(144)+A(150)+A(152)+0.44*A(353)+0.75*A(355)+A(356)& &+A(357)+0.53*A(358)+0.53*A(359)+0.289*A(365)+0.41*A(370)+0.464*A(372)+0.348*A(376)+0.464*A(378)+0.464& - &*A(380)+0.149*A(382)+0.285*A(383)-A(778)+0.19*A(796)+A(858) + &*A(380)+0.149*A(382)+0.285*A(383)-A(779)+0.19*A(797)+A(859) Vdot(223) = -A(311)+A(312)+A(314)-A(315)-A(316)-A(317)+A(320)-A(321)-A(322)-A(323)+A(324)+A(328)-A(329)-A(330)-2& - &*A(331)-2*A(332)+2*A(333)-A(835)+A(846) + &*A(331)-2*A(332)+2*A(333)-A(836)+A(847) Vdot(224) = 0.068*A(431)+0.33*A(456)+0.19*A(458)-A(464)-A(465)-A(466)-A(467)-A(468)+0.032*A(590) Vdot(225) = 0.294*A(431)+0.67*A(456)+0.81*A(458)-A(459)-A(460)-A(461)-A(462)-A(463)+0.08*A(590) Vdot(226) = A(412)+0.5*A(414)+0.5*A(416)+0.55*A(422)+0.33*A(427)+0.19*A(429)+0.125*A(431)+0.125*A(438)+0.706*A(447)& - &+0.14*A(449)+0.054*A(534)+0.059*A(536)-A(554)+0.335*A(570)+0.429*A(592)+0.75*A(593)-A(875)+0.55*A(891)+0.5& - &*A(908) + &+0.14*A(449)+0.054*A(534)+0.059*A(536)-A(554)+0.335*A(570)+0.429*A(592)+0.75*A(593)-A(876)+0.55*A(892)+0.5& + &*A(909) Vdot(227) = A(413)+0.5*A(414)+0.5*A(418)+0.55*A(426)+0.17*A(428)+0.09*A(430)+0.158*A(431)+0.165*A(439)+0.716*A(443)& - &+0.14*A(445)+0.004*A(534)+0.006*A(536)-A(555)+0.41*A(573)+0.5*A(589)+0.571*A(592)+0.25*A(593)-A(878)+0.55& - &*A(894)+0.5*A(900)+0.15*A(906)+0.5*A(908) + &+0.14*A(445)+0.004*A(534)+0.006*A(536)-A(555)+0.41*A(573)+0.5*A(589)+0.571*A(592)+0.25*A(593)-A(879)+0.55& + &*A(895)+0.5*A(901)+0.15*A(907)+0.5*A(909) Vdot(228) = A(35)+0.5*A(99)-A(120)-A(122)+A(123)+A(151)+A(337)+0.3*A(399)+0.3*A(400)+0.3*A(406)+0.3*A(408)+0.085& &*A(427)+0.165*A(428)+0.355*A(431)+0.5*A(432)+0.018*A(440)+0.018*A(441)+0.52*A(461)+0.8*A(462)+0.545*A(548)& &+0.88*A(551)+0.449*A(553)+0.187*A(564)+A(565)+A(567)+0.05*A(570)+0.242*A(571)+0.083*A(573)+0.14*A(577)+0.7& - &*A(588)+0.12*A(617)+0.2*A(618)+0.6*A(653)+0.6*A(654)+0.2*A(655)-A(732)-A(783)+0.5*A(874)+0.47*A(875)+0.571& - &*A(876)+0.125*A(877)+0.23*A(878)+0.088*A(901)+0.429*A(903)+A(907) + &*A(588)+0.12*A(617)+0.2*A(618)+0.6*A(653)+0.6*A(654)+0.2*A(655)-A(733)-A(784)+0.5*A(875)+0.47*A(876)+0.571& + &*A(877)+0.125*A(878)+0.23*A(879)+0.088*A(902)+0.429*A(904)+A(908) Vdot(229) = -A(503)-A(504)-A(505)+A(523)+0.33*A(524)+0.037*A(594) Vdot(230) = 0.12*A(115)-A(338)-A(339)-A(340)-A(341)-A(342)-A(343)-A(344)+0.58*A(396)+0.5*A(548)+0.88*A(551)+A(604) - Vdot(231) = -A(251)+A(668)+A(670)+A(671)-A(683)-A(684)-A(685)-A(686)-A(687)-A(688)-A(814) + Vdot(231) = -A(251)+A(669)+A(671)+A(672)-A(684)-A(685)-A(686)-A(687)-A(688)-A(689)-A(815) Vdot(232) = -A(116)-A(117)+0.294*A(447)+0.135*A(449)+A(451)+0.65*A(453)+0.52*A(461)+0.8*A(462)+0.459*A(488)+0.728& &*A(489)+0.551*A(497)+0.935*A(498)+0.242*A(503)+0.546*A(504)+0.34*A(534)+0.384*A(536)+0.11*A(545)+0.09& - &*A(546)+0.36*A(570)+0.758*A(571)+0.2*A(610)+A(612)+A(613)+A(615)+A(629)+0.9*A(651)+0.95*A(654)-A(779)+0.53& - &*A(875)+0.69*A(880)+0.5*A(899)+0.088*A(901)+0.25*A(902)+0.429*A(903)+0.3*A(905)+0.35*A(906)+A(907) + &*A(546)+0.36*A(570)+0.758*A(571)+0.2*A(610)+A(612)+A(613)+A(615)+A(629)+0.9*A(651)+0.95*A(654)-A(780)+0.53& + &*A(876)+0.69*A(881)+0.5*A(900)+0.088*A(902)+0.25*A(903)+0.429*A(904)+0.3*A(906)+0.35*A(907)+A(908) Vdot(233) = A(63)-A(64)-A(65)+0.05*A(68)+0.07*A(82)-A(85)+0.03*A(97)-A(111)+0.03*A(113)-A(125)-A(127)+0.07*A(129)+0.36& - &*A(133)+0.05*A(144)+0.07*A(160)+A(185)+A(299)+0.07*A(775)+0.06*A(778)+0.05*A(796) + &*A(133)+0.05*A(144)+0.07*A(160)+A(185)+A(299)+0.07*A(776)+0.06*A(779)+0.05*A(797) Vdot(234) = A(351)+A(352)-A(353)-A(354)-A(355)-A(356)-A(357) Vdot(235) = -A(61)+0.32*A(68)+0.5*A(82)-A(95)+0.16*A(97)-2*A(106)-2*A(108)-A(110)+0.22*A(113)+0.5*A(129)+0.36*A(132)& - &+0.32*A(144)-A(157)-A(159)+0.5*A(160)-A(294)+0.16*A(363)+0.5*A(775)+0.425*A(778)+0.32*A(796) + &+0.32*A(144)-A(157)-A(159)+0.5*A(160)-A(294)+0.16*A(363)+0.5*A(776)+0.425*A(779)+0.32*A(797) Vdot(236) = 0.4*A(485)+0.4*A(486)+0.07*A(509)+0.532*A(510)+0.861*A(511)+0.401*A(512)+0.034*A(513)+0.159*A(515)+0.159& - &*A(517)+0.159*A(520)+A(522)+A(531)-A(540)-A(541)+0.159*A(896)-A(898)+0.228*A(899) + &*A(517)+0.159*A(520)+A(522)+A(531)-A(540)-A(541)+0.159*A(897)-A(899)+0.228*A(900) Vdot(237) = 0.6*A(486)+0.599*A(492)+A(493)+0.065*A(500)+0.142*A(501)+0.01*A(503)+0.028*A(504)+0.008*A(534)+0.015& - &*A(535)+0.014*A(536)+0.049*A(538)+0.161*A(541)-A(553)+A(560)+0.438*A(572)-A(737)-A(880)+0.05*A(905) + &*A(535)+0.014*A(536)+0.049*A(538)+0.161*A(541)-A(553)+A(560)+0.438*A(572)-A(738)-A(881)+0.05*A(906) Vdot(238) = A(444)+A(448)+A(452)+0.482*A(488)+0.401*A(492)+0.418*A(497)+0.494*A(500)+0.621*A(503)+A(526)+A(527)+0.5& - &*A(533)+0.234*A(534)+0.387*A(535)+0.565*A(544)-A(594)-A(753)-A(905)-A(906) - Vdot(239) = A(490)+A(494)+A(499)+A(502)+A(505)+A(519)+A(521)+A(537)+A(539)-A(544)+0.18*A(546)-A(751)-A(899) + &*A(533)+0.234*A(534)+0.387*A(535)+0.565*A(544)-A(594)-A(754)-A(906)-A(907) + Vdot(239) = A(490)+A(494)+A(499)+A(502)+A(505)+A(519)+A(521)+A(537)+A(539)-A(544)+0.18*A(546)-A(752)-A(900) Vdot(240) = 0.465*A(506)-A(507)-2*A(509)-A(510)-A(513)-A(514)-A(516)-A(518)-A(519)+A(529) Vdot(241) = 0.535*A(506)-A(508)-A(510)-2*A(511)-A(512)-A(515)-A(517)-A(520)-A(521)+A(530) Vdot(242) = 0.5*A(301)+A(397)-A(401)-A(402)-A(405)-A(406)-2*A(409)-A(411)-2*A(412)-A(414)-A(415)-A(416)-A(419)-A(420)& - &-A(421)-A(422)+0.75*A(438)+0.03*A(440)+0.841*A(897) + &-A(421)-A(422)+0.75*A(438)+0.03*A(440)+0.841*A(898) Vdot(243) = 0.5*A(301)+A(398)-A(403)-A(404)-A(407)-A(408)-2*A(410)-A(411)-2*A(413)-A(414)-A(417)-A(418)-A(423)-A(424)& - &-A(425)-A(426)+0.51*A(439)+0.03*A(441)+0.159*A(897) + &-A(425)-A(426)+0.51*A(439)+0.03*A(441)+0.159*A(898) Vdot(244) = 0.177*A(396)+0.063*A(401)+A(405)+2*A(409)+A(411)+A(415)+A(420)+0.035*A(427)+0.23*A(429)+0.125*A(438)& &+A(473)+A(474)+0.479*A(507)+1.737*A(509)+0.544*A(510)+0.583*A(513)+0.903*A(514)+0.903*A(516)+0.904*A(518)& - &-A(547)-A(548)+0.04*A(617)+0.04*A(618)-A(784)-A(785)-A(786)+A(883)+A(889)+A(892)+0.903*A(895)+0.05*A(899) + &-A(547)-A(548)+0.04*A(617)+0.04*A(618)-A(785)-A(786)-A(787)+A(884)+A(890)+A(893)+0.903*A(896)+0.05*A(900) Vdot(245) = A(556)-A(581)-A(582)-A(583)-A(584)-A(585) Vdot(246) = 0.16*A(86)+0.2*A(99)-A(123)-A(124)+0.65*A(128)+0.791*A(137)+0.058*A(365)+A(391)+0.5*A(432)+0.284*A(443)& &+0.135*A(445)+A(451)+0.65*A(453)+0.8*A(466)+0.52*A(468)+0.52*A(469)+0.8*A(471)+A(472)+0.459*A(488)+0.728& &*A(489)+0.441*A(500)+0.858*A(501)+0.033*A(503)+0.071*A(504)+0.042*A(534)+0.051*A(536)+0.77*A(555)+0.84& - &*A(569)+0.507*A(573)+0.488*A(575)+A(576)+0.86*A(577)+0.5*A(581)+A(582)+A(584)+0.7*A(585)+0.25*A(587)-A(788)& - &+A(860)+0.77*A(878)+A(881)+0.5*A(899)+0.438*A(901)+0.25*A(902)+0.571*A(903)+0.45*A(905)+0.8*A(906) + &*A(569)+0.507*A(573)+0.488*A(575)+A(576)+0.86*A(577)+0.5*A(581)+A(582)+A(584)+0.7*A(585)+0.25*A(587)-A(789)& + &+A(861)+0.77*A(879)+A(882)+0.5*A(900)+0.438*A(902)+0.25*A(903)+0.571*A(904)+0.45*A(906)+0.8*A(907) Vdot(247) = 0.79*A(363)+0.308*A(367)+0.308*A(368)+0.615*A(369)+0.416*A(396)+0.063*A(403)+A(407)+2*A(410)+A(411)+A(417)& &+A(424)+0.035*A(428)+0.14*A(430)+0.165*A(439)+A(475)+A(476)+0.048*A(507)+0.123*A(509)+0.019*A(510)+0.028& - &*A(513)+0.097*A(514)+0.097*A(516)+0.096*A(518)-A(549)-A(550)-A(551)-A(552)-A(787)+A(884)+A(890)+A(893)& - &+0.097*A(895)+0.005*A(899) + &*A(513)+0.097*A(514)+0.097*A(516)+0.096*A(518)-A(549)-A(550)-A(551)-A(552)-A(788)+A(885)+A(891)+A(894)& + &+0.097*A(896)+0.005*A(900) Vdot(248) = A(34)-A(71)+A(84)-A(89)-A(99)-A(145)-A(151)+A(183)+A(300) Vdot(249) = -A(72)-A(90)+A(93)+A(96)-A(100)-A(146)-A(152)+0.62*A(358)+0.62*A(359)+0.42*A(363) - Vdot(250) = A(79)-A(80)+A(81)-A(82)+A(83)-A(113)-A(129)-A(130)+A(136)-A(160)+0.33*A(650)+0.33*A(653)+0.15*A(778)& - &+A(786) + Vdot(250) = A(79)-A(80)+A(81)-A(82)+A(83)-A(113)-A(129)-A(130)+A(136)-A(160)+0.33*A(650)+0.33*A(653)+0.15*A(779)& + &+A(787) Vdot(251) = -A(70)+A(77)-A(88)-A(98)-A(148)-A(153)+0.5*A(646)+0.5*A(647) Vdot(252) = A(67)-A(68)-A(69)+A(76)-A(87)-A(97)+0.15*A(98)+0.209*A(135)-A(144)+0.3*A(148)-A(150)+A(302)+0.44*A(370)& &+0.2*A(655) Vdot(253) = A(62)+0.18*A(68)-A(73)-A(74)+0.27*A(82)-A(91)+0.09*A(97)-A(101)+0.12*A(113)+0.27*A(129)+0.209*A(134)+0.18& - &*A(144)-A(147)-A(155)+0.27*A(160)+A(298)+0.27*A(775)+0.23*A(778)+0.18*A(796) - Vdot(254) = -A(114)-A(115)-A(118)-A(303)-A(304)+0.46*A(363)+0.289*A(365)+0.192*A(367)+0.192*A(368)+0.385*A(369)+A(784) + &*A(144)-A(147)-A(155)+0.27*A(160)+A(298)+0.27*A(776)+0.23*A(779)+0.18*A(797) + Vdot(254) = -A(114)-A(115)-A(118)-A(303)-A(304)+0.46*A(363)+0.289*A(365)+0.192*A(367)+0.192*A(368)+0.385*A(369)+A(785) Vdot(255) = A(64)+0.14*A(68)+0.57*A(70)-A(79)-A(83)+0.75*A(85)+0.09*A(86)+0.07*A(97)+0.54*A(98)+0.25*A(102)+A(104)& &+A(125)+A(127)+0.35*A(128)+0.64*A(133)+0.791*A(135)+0.13*A(144)+0.57*A(148)+A(153)+A(154)+0.43*A(353)+0.75& &*A(355)+A(356)+A(357)+0.65*A(358)+0.65*A(359)+0.491*A(365)+0.08*A(370)+1.24*A(372)+0.93*A(376)+1.24*A(378)& - &+1.24*A(380)+0.64*A(382)+1.21*A(383)+A(395)+1.2*A(652)+1.2*A(655)-A(775)+A(789)+A(791)+A(793)+0.13*A(796)& - &+A(856)+A(859)+A(868) - Vdot(256) = A(169)+A(176)-A(177)+A(674)-A(694)-A(695)-A(696)-A(697)-A(698)-A(699)-A(700)+A(701)+A(702)+A(703)-A(800) + &+1.24*A(380)+0.64*A(382)+1.21*A(383)+A(395)+1.2*A(652)+1.2*A(655)-A(776)+A(790)+A(792)+A(794)+0.13*A(797)& + &+A(857)+A(860)+A(869) + Vdot(256) = A(169)+A(176)-A(177)+A(675)-A(695)-A(696)-A(697)-A(698)-A(699)-A(700)-A(701)+A(702)+A(703)+A(704)-A(801) Vdot(257) = 0.95*A(53)+A(54)-A(55)+A(56)-A(57)+A(71)+0.93*A(72)+0.15*A(89)+0.15*A(90)+0.3*A(99)+0.5*A(100)+A(120)& &+A(122)-A(125)-A(126)-A(127)-A(128)+A(139)-2*A(141)-A(142)-A(143)-A(144)-A(147)-A(148)-A(149)-A(150)-A(151)& &-A(152)-A(153)-A(154)-A(155)-A(156)-A(157)-A(158)-A(159)-A(160)+A(182)-A(356)-A(368)-A(377)-A(378)+0.3& &*A(399)+0.3*A(406)+0.018*A(440)-A(514)-A(515)+0.38*A(548)+0.12*A(551)+0.04*A(553)+0.097*A(564)+A(568)+0.36& &*A(570)+0.758*A(571)+0.175*A(574)+0.087*A(575)+0.35*A(579)+0.3*A(588)+A(595)+A(596)-A(598)-A(623)+0.12& - &*A(772)+0.7*A(774)+A(776)+0.85*A(778)+A(783)+A(785)+A(787)+A(788)+A(851)+A(871)+A(872)+A(873)+0.5*A(874)& - &+0.53*A(875)+0.429*A(876)+0.125*A(877)+0.262*A(879)+1.01*A(880) + &*A(773)+0.7*A(775)+A(777)+0.85*A(779)+A(784)+A(786)+A(788)+A(789)+A(852)+A(872)+A(873)+A(874)+0.5*A(875)& + &+0.53*A(876)+0.429*A(877)+0.125*A(878)+0.262*A(880)+1.01*A(881) Vdot(258) = -A(24)+A(36)+A(52)+0.05*A(53)+0.56*A(115)+0.505*A(116)+A(117)+2*A(119)+A(120)+2*A(121)+A(122)+0.5*A(124)& &+A(181)+A(207)+A(223)+A(262)+A(286)+A(287)+A(288)-A(338)-A(345)+0.14*A(358)+0.14*A(359)+0.14*A(363)+0.407& &*A(396)+0.6*A(399)+0.9*A(400)+0.6*A(406)+0.9*A(408)+A(412)+A(413)+A(414)+0.5*A(416)+0.5*A(418)+0.55*A(422)& @@ -1351,19 +1352,19 @@ SUBROUTINE Fun ( V, F, RCT, Vdot, Aout, Vdotout ) &*A(469)+0.8*A(471)+2*A(472)+0.6*A(485)+0.6*A(486)+0.539*A(541)+0.33*A(542)+0.33*A(543)+0.18*A(548)+0.036& &*A(549)+0.12*A(551)+0.68*A(552)+0.77*A(555)+0.25*A(557)+0.75*A(564)+A(565)+2*A(568)+0.84*A(569)+0.507& &*A(573)+0.325*A(574)+0.488*A(575)+A(576)+0.86*A(577)+0.65*A(579)+0.25*A(587)+A(589)+0.888*A(590)+A(593)& - &+A(599)+0.364*A(606)+0.2*A(616)+0.27*A(617)+0.3*A(618)+0.25*A(650)+0.5*A(651)+0.25*A(653)+0.5*A(654)+A(763)& - &+A(764)+0.88*A(772)+A(773)+A(775)+A(777)+A(779)+2*A(780)+2*A(781)+A(782)+A(783)+A(784)+A(785)+A(787)+A(853)& - &+A(857)+A(870)+A(873)+0.5*A(874)+0.571*A(876)+0.875*A(877)+0.77*A(878)+A(881)+A(882)+0.888*A(887)+0.818& - &*A(888)+A(889)+A(890)+0.55*A(891)+0.55*A(894)+0.839*A(898)+A(900)+0.122*A(901)+A(904)+A(908)+A(910)+A(913) - Vdot(259) = -A(252)+A(271)-A(284)-A(285)-A(676)-A(677)-A(678)-A(679)-A(680)-A(681)-A(682)-A(815)-A(816) + &+A(599)+0.364*A(606)+0.2*A(616)+0.27*A(617)+0.3*A(618)+0.25*A(650)+0.5*A(651)+0.25*A(653)+0.5*A(654)+A(764)& + &+A(765)+0.88*A(773)+A(774)+A(776)+A(778)+A(780)+2*A(781)+2*A(782)+A(783)+A(784)+A(785)+A(786)+A(788)+A(854)& + &+A(858)+A(871)+A(874)+0.5*A(875)+0.571*A(877)+0.875*A(878)+0.77*A(879)+A(882)+A(883)+0.888*A(888)+0.818& + &*A(889)+A(890)+A(891)+0.55*A(892)+0.55*A(895)+0.839*A(899)+A(901)+0.122*A(902)+A(905)+A(909)+A(911)+A(914) + Vdot(259) = -A(252)+A(271)-A(284)-A(285)-A(677)-A(678)-A(679)-A(680)-A(681)-A(682)-A(683)-A(816)-A(817) Vdot(260) = -A(3)-A(6)+A(37)-A(38)+A(52)+A(54)+A(76)+A(83)+A(96)+A(121)+A(122)+A(140)+A(166)+A(389)+A(390)+0.32*A(552)& - &+A(595)+0.742*A(625)+0.5*A(627)+0.5*A(630)+A(632)+0.5*A(647)+0.5*A(663)+A(664)+2*A(667)+A(668)+2*A(669)& - &+A(670)+A(671)+A(674)+A(675)+A(676)+A(677)+A(678)+A(679)+A(680)+A(681)+A(682)+A(718)+A(723)+A(724)+A(725)& - &+A(726)-A(765) + &+A(595)+0.742*A(625)+0.5*A(627)+0.5*A(630)+A(632)+0.5*A(647)+0.5*A(664)+A(665)+2*A(668)+A(669)+2*A(670)& + &+A(671)+A(672)+A(675)+A(676)+A(677)+A(678)+A(679)+A(680)+A(681)+A(682)+A(683)+A(719)+A(724)+A(725)+A(726)& + &+A(727)-A(766) Vdot(261) = -A(53)-A(54)+A(59)+A(61)+A(66)+0.32*A(68)+0.86*A(70)+0.93*A(72)+A(75)+0.5*A(86)+0.15*A(90)+0.75*A(94)+0.75& &*A(95)+0.16*A(97)+0.38*A(98)+0.5*A(100)+0.5*A(102)+A(103)+2*A(105)+2*A(106)+A(107)+A(108)+0.5*A(115)+A(126)& &+0.64*A(132)+0.32*A(144)+A(146)+0.75*A(148)+A(149)+A(156)+A(157)+A(158)+A(159)-A(182)+A(293)+A(294)+A(296)& - &+A(345)+A(346)+A(347)+A(348)+A(349)+A(393)-A(772)-A(773)+A(790)+A(794)+A(795)+0.32*A(796)+A(866) + &+A(345)+A(346)+A(347)+A(348)+A(349)+A(393)-A(773)-A(774)+A(791)+A(795)+A(796)+0.32*A(797)+A(867) Vdot(262) = -A(10)+A(11)+A(12)+A(17)+A(26)+A(29)+2*A(30)+0.87*A(31)+A(33)-A(36)+A(50)-A(52)+0.05*A(53)+A(66)+0.57& &*A(70)+A(71)+A(75)+0.75*A(85)+1.25*A(86)+0.15*A(89)+0.75*A(94)+0.75*A(95)+0.75*A(97)+0.95*A(98)+0.5*A(99)& &+0.75*A(100)+0.75*A(101)+1.25*A(102)+0.5*A(115)+0.732*A(116)+A(126)+A(129)+A(130)+A(142)+A(143)+A(145)+0.39& @@ -1377,28 +1378,28 @@ SUBROUTINE Fun ( V, F, RCT, Vdot, Aout, Vdotout ) &*A(503)+0.383*A(504)+0.527*A(507)+1.86*A(509)+0.563*A(510)+0.645*A(512)+1.577*A(513)+A(514)+A(516)+A(518)& &+0.126*A(534)+0.088*A(535)+0.249*A(536)+0.34*A(538)+0.6*A(548)+0.12*A(551)+0.241*A(553)+0.05*A(570)+0.242& &*A(571)+0.083*A(573)+0.5*A(574)+0.25*A(575)+0.14*A(577)+A(579)+A(585)+0.022*A(594)+0.5*A(597)+A(599)+A(604)& - &+0.8*A(610)+2*A(611)+A(622)+A(648)+A(649)+A(762)-A(763)-A(764)+0.9*A(779)+A(782)+A(785)+A(787)+A(788)& - &+A(794)+A(849)+A(851)+A(857)+A(865)+A(869)+A(870)+A(872)+A(873)+0.47*A(875)+0.23*A(878)+0.75*A(879)+A(883)& - &+A(884)+A(892)+A(893)+A(895)+0.055*A(899)+0.1*A(901)+0.55*A(905)+0.15*A(906) + &+0.8*A(610)+2*A(611)+A(622)+A(648)+A(649)+A(662)+A(763)-A(764)-A(765)+0.9*A(780)+A(783)+A(786)+A(788)& + &+A(789)+A(795)+A(850)+A(852)+A(858)+A(866)+A(870)+A(871)+A(873)+A(874)+0.47*A(876)+0.23*A(879)+0.75*A(880)& + &+A(884)+A(885)+A(893)+A(894)+A(896)+0.055*A(900)+0.1*A(902)+0.55*A(906)+0.15*A(907) Vdot(263) = -A(17)+A(25)-A(26)-A(27)-A(28)-2*A(29)-2*A(30)-A(31)+A(32)+A(57)+0.19*A(68)+A(78)-A(85)-A(86)-A(94)-A(95)& &-0.91*A(97)-A(98)-A(99)-A(100)-A(101)-A(102)+0.28*A(115)+0.5*A(124)+A(125)+A(126)-A(129)-A(130)+2*A(141)& &-A(143)+A(144)+A(145)+A(146)+A(147)+A(148)+A(149)+A(156)+A(157)+A(160)-A(162)+A(163)+A(164)+A(165)+A(166)& &+A(197)+A(228)-A(244)+A(261)-A(290)+A(291)+A(297)+A(335)-A(355)+0.5*A(356)-A(367)+0.5*A(368)-A(375)-A(376)& &+A(377)+0.5*A(378)+0.407*A(396)-A(415)-A(416)-A(417)-A(418)-A(512)-A(513)+A(514)+A(515)+0.325*A(574)+0.162& - &*A(575)+0.65*A(579)-A(585)+0.5*A(598)-A(610)-A(622)+A(623)-A(648)-A(649)+0.88*A(772)+0.3*A(774)+A(776)+2& - &*A(777)+0.15*A(778)+A(786)+0.18*A(796)+A(797)+A(806)+A(807)+A(850)+0.488*A(879) - Vdot(264) = A(326)-A(328)+A(329)+A(718)-A(727)-A(728)-A(729)-A(730)-A(834) + &*A(575)+0.65*A(579)-A(585)+0.5*A(598)-A(610)-A(622)+A(623)-A(648)-A(649)-A(662)+0.88*A(773)+0.3*A(775)& + &+A(777)+2*A(778)+0.15*A(779)+A(787)+0.18*A(797)+A(798)+A(807)+A(808)+A(851)+0.488*A(880) + Vdot(264) = A(326)-A(328)+A(329)+A(719)-A(728)-A(729)-A(730)-A(731)-A(835) Vdot(265) = -A(305)-A(307)+A(308)+A(310)-A(313)-A(314)+A(315)+A(321)+A(322)-A(324)-A(325)+A(326)+A(327)+A(330)+A(331)& - &+A(334)+A(335)+2*A(833)+A(834)+A(835)+A(836)+A(837)+A(838)+A(839)+A(840)+A(841)+2*A(842)+A(843)+A(844)& - &+A(847)+A(848) - Vdot(266) = A(310)+A(311)-A(312)-A(313)-A(718)-A(723)-A(724)-A(725)-A(726)-A(839) - Vdot(267) = A(243)+A(247)+A(248)-A(250)+A(251)+A(252)+A(269)+A(676)-A(689)-A(690)-A(691)-A(692)-A(693)-A(817) + &+A(334)+A(335)+2*A(834)+A(835)+A(836)+A(837)+A(838)+A(839)+A(840)+A(841)+A(842)+2*A(843)+A(844)+A(845)& + &+A(848)+A(849) + Vdot(266) = A(310)+A(311)-A(312)-A(313)-A(719)-A(724)-A(725)-A(726)-A(727)-A(840) + Vdot(267) = A(243)+A(247)+A(248)-A(250)+A(251)+A(252)+A(269)+A(677)-A(690)-A(691)-A(692)-A(693)-A(694)-A(818) Vdot(268) = -A(191)-A(192)-A(193)-A(194)-A(195)-A(196)-A(197)-A(198)-A(199)-A(205)-A(206)-A(224)-A(225)-A(226)-A(227)& &-A(228)-A(229)-A(230)-A(231)-A(232)-A(233)-A(234)-A(235)-A(236)-A(237)-A(238)-A(239)-A(240)-A(241)-A(242)& - &+A(758)+A(852) + &+A(759)+A(853) Vdot(269) = -A(1)-A(4)-A(8)-A(13)-A(14)-A(15)-A(16)-A(17)+0.15*A(113)-A(115)-A(168)+A(200)-A(201)-A(205)-A(206)-A(215)& &-A(263)-A(324)-A(343)-A(358)-A(359)-A(363)-A(386)-A(396)-A(548)-A(551)+0.13*A(574)+0.13*A(581)+0.13*A(598)& - &-A(604)-A(629)+0.15*A(633)-A(644)-A(651)-A(654)-A(701)-A(702)-A(703)-A(757)-A(758) + &-A(604)-A(629)+0.15*A(633)-A(644)-A(651)-A(654)-A(702)-A(703)-A(704)-A(758)-A(759) Vdot(270) = A(13)-A(16)+A(22)+A(26)-A(37)+A(40)-A(41)+A(42)+A(43)+A(44)+2*A(45)+A(46)-A(47)+A(48)-A(55)+A(56)+A(57)& &+A(59)+A(61)+A(64)+A(66)+A(68)+2*A(70)+A(71)+0.93*A(72)+A(73)+2*A(75)-A(80)+A(81)+A(82)+A(98)+A(102)+A(148)& &+A(149)+A(153)+A(154)+2*A(161)-A(162)+A(163)+A(174)+A(180)-A(186)-A(187)-A(209)+A(210)+A(211)-A(212)-A(221)& @@ -1410,29 +1411,29 @@ SUBROUTINE Fun ( V, F, RCT, Vdot, Aout, Vdotout ) &+1.065*A(536)+A(538)+A(540)+A(542)+0.565*A(544)+1.11*A(545)+0.09*A(546)+0.31*A(553)+A(558)-A(560)+A(561)& &-A(563)+A(571)+A(577)+A(579)-A(580)+0.5*A(581)+2*A(582)+2*A(584)+0.7*A(585)+A(586)+A(593)+0.022*A(594)& &+A(595)+0.995*A(608)+A(609)+A(613)+A(620)+A(621)+A(634)-A(635)+A(637)+A(638)-A(639)+A(640)+A(641)-A(645)& - &+0.5*A(646)+A(647)-A(663)-A(760)+A(765)+A(768)+A(769)+A(771)+0.7*A(774)+A(789)+A(796)+A(802)+A(803)+A(814)& - &+A(816)+A(838)+A(850)+A(857)+A(858)+A(859)+A(860)+A(862)+A(864)+A(865)+A(866)+A(867)+A(868)+A(872)+0.7& - &*A(880)+A(881)+A(891)+A(892)+A(893)+A(894)+A(895)+A(897)+A(898)+1.555*A(899)+0.3*A(905)+A(906)+A(907)& - &+A(908) + &+0.5*A(646)+A(647)+A(662)-A(664)-A(761)+A(766)+A(769)+A(770)+A(772)+0.7*A(775)+A(790)+A(797)+A(803)+A(804)& + &+A(815)+A(817)+A(839)+A(851)+A(858)+A(859)+A(860)+A(861)+A(863)+A(865)+A(866)+A(867)+A(868)+A(869)+A(873)& + &+0.7*A(881)+A(882)+A(892)+A(893)+A(894)+A(895)+A(896)+A(898)+A(899)+1.555*A(900)+0.3*A(906)+A(907)+A(908)& + &+A(909) Vdot(271) = -A(2)-A(5)-0.91*A(224)+A(246)-A(249)+A(261)+A(262)+A(264)+A(265)+A(266)+2*A(286)+A(287)+A(288)+A(289)& - &+A(291)+A(292)+A(295)+A(296)+A(297)+A(298)+A(299)+A(300)+A(301)+A(302)+A(303)-A(668)-A(675)-A(677)-A(685)& - &-A(689)+A(693)-A(695) - Vdot(272) = A(170)-A(171)-A(178)+A(181)+A(182)+A(183)+A(184)+A(185)-0.8*A(225)+A(304)-A(678)-A(688)-A(690)-A(694)& - &+A(700)-A(701)-A(704)-A(705) + &+A(291)+A(292)+A(295)+A(296)+A(297)+A(298)+A(299)+A(300)+A(301)+A(302)+A(303)-A(669)-A(676)-A(678)-A(686)& + &-A(690)+A(694)-A(696) + Vdot(272) = A(170)-A(171)-A(178)+A(181)+A(182)+A(183)+A(184)+A(185)-0.8*A(225)+A(304)-A(679)-A(689)-A(691)-A(695)& + &+A(701)-A(702)-A(705)-A(706) Vdot(273) = A(18)+A(20)+A(21)+A(25)+A(32)+A(33)+A(34)+A(35)+A(36)+A(38)+A(40)+A(43)+A(49)+A(53)+A(58)+A(77)+A(78)& &+A(79)+A(84)+A(93)+A(171)+A(190)-A(191)+A(202)+A(217)+A(249)+A(250)+A(253)+A(256)+A(257)+A(258)+A(259)& - &+A(260)+A(289)+A(327)+A(328)+A(335)-A(341)-2*A(342)-A(349)-A(350)+A(662)-A(667)-A(674)-A(676)+A(689)+A(690)& - &+A(691)+A(692)+A(694)+A(695)+A(696)+A(697)-A(718) + &+A(260)+A(289)+A(327)+A(328)+A(335)-A(341)-2*A(342)-A(349)-A(350)+A(663)-A(668)-A(675)-A(677)+A(690)+A(691)& + &+A(692)+A(693)+A(695)+A(696)+A(697)+A(698)-A(719) Vdot(274) = A(168)-A(169)-2*A(172)-2*A(173)-A(174)+A(177)-A(179)+A(180)-A(187)-A(222)+0.15*A(225)+0.44*A(228)+0.95& - &*A(229)+0.68*A(230)+0.31*A(234)+0.41*A(235)+0.75*A(242)-A(281)-A(282)-A(283)-A(314)-A(315)-A(316)-A(799)& - &+A(802) - Vdot(275) = -A(679)-A(686)-A(698)-A(702)+A(704)-A(719)-A(723)-A(727) - Vdot(276) = -A(680)-A(687)-A(699)-A(703)+A(705)-A(720)-A(724)-A(728) + &*A(229)+0.68*A(230)+0.31*A(234)+0.41*A(235)+0.75*A(242)-A(281)-A(282)-A(283)-A(314)-A(315)-A(316)-A(800)& + &+A(803) + Vdot(275) = -A(680)-A(687)-A(699)-A(703)+A(705)-A(720)-A(724)-A(728) + Vdot(276) = -A(681)-A(688)-A(700)-A(704)+A(706)-A(721)-A(725)-A(729) Vdot(277) = 0.24*A(224)+0.75*A(226)+0.86*A(227)+0.55*A(231)+0.88*A(232)+0.86*A(233)+0.33*A(234)+0.69*A(236)+0.74& &*A(237)+0.79*A(238)+0.75*A(239)+0.75*A(240)+0.3*A(241)-A(244)-A(245)-A(246)+A(250)+A(263)+A(267)-A(268)& &-A(269)-A(270)-A(271)-2*A(272)-2*A(273)-2*A(274)-2*A(277)+2*A(278)+2*A(280)-A(281)-A(282)-A(283)+A(284)& - &+A(290)+A(293)+A(294)-A(321)-A(322)-A(323)-A(811)+A(812)+A(816) - Vdot(278) = A(2)-A(670)-A(672)-A(681)-A(683)-A(691)-A(696)-A(721)-A(725)-A(729) + &+A(290)+A(293)+A(294)-A(321)-A(322)-A(323)-A(812)+A(813)+A(817) + Vdot(278) = A(2)-A(671)-A(673)-A(682)-A(684)-A(692)-A(697)-A(722)-A(726)-A(730) Vdot(279) = -A(12)-A(14)+A(15)-2*A(18)-2*A(19)-A(20)-A(21)+A(22)-A(24)-A(25)-A(31)-A(32)-A(34)-A(36)-A(37)-A(38)-A(39)& &-A(40)-A(43)+A(44)-A(46)-A(49)-A(50)-A(53)-A(58)-A(62)-A(63)-A(67)-A(77)-A(78)-A(79)-A(84)+0.15*A(89)+0.15& &*A(90)-A(93)-A(103)-A(104)+0.44*A(113)-A(114)+0.36*A(115)-0.773*A(116)-A(119)-A(120)-A(123)-0.209*A(131)& @@ -1452,19 +1453,19 @@ SUBROUTINE Fun ( V, F, RCT, Vdot, Aout, Vdotout ) &-0.98*A(553)-A(556)+A(559)+A(562)-0.715*A(564)-A(566)-A(568)-A(569)+0.665*A(570)+0.59*A(573)+0.5*A(574)& &-0.415*A(575)+A(576)+0.5*A(581)-A(587)-0.3*A(588)-0.5*A(589)-0.556*A(590)-A(593)-0.7*A(594)-A(596)-0.5& &*A(597)+0.5*A(598)-A(605)-0.364*A(606)-A(613)-A(614)-A(616)-A(617)-A(618)+A(619)-A(624)-A(626)-A(628)& - &+A(629)-A(631)+0.2*A(633)-A(636)-A(638)-A(643)-A(646)-0.75*A(650)+0.1*A(651)-0.75*A(653)+0.1*A(654)-A(672)& - &-A(673)+2*A(761)+A(762)+A(765)+A(766)+A(767)+0.07*A(779)+A(789)+A(790)+A(791)+A(792)+A(793)+A(794)+A(795)& - &+A(797)+A(800)+A(817)+A(834)+A(851)+2*A(854)+A(856)+2*A(869)+A(870)+A(875)+A(876)+1.75*A(877)+A(878)+0.75& - &*A(879)+0.01*A(880)+A(882)+A(883)+A(884)+A(885)+A(886)+1.662*A(887)+1.637*A(888)+A(889)+A(890)+0.55*A(891)& - &+0.55*A(894)+0.67*A(895)+A(896)+0.645*A(898)+0.5*A(900)+A(901)+1.25*A(902)+A(903)+0.546*A(904)+A(905)+0.3& - &*A(906)+A(907)+A(909)+A(911) + &+A(629)-A(631)+0.2*A(633)-A(636)-A(638)-A(643)-A(646)-0.75*A(650)+0.1*A(651)-0.75*A(653)+0.1*A(654)-A(673)& + &-A(674)+2*A(762)+A(763)+A(766)+A(767)+A(768)+0.07*A(780)+A(790)+A(791)+A(792)+A(793)+A(794)+A(795)+A(796)& + &+A(798)+A(801)+A(818)+A(835)+A(852)+2*A(855)+A(857)+2*A(870)+A(871)+A(876)+A(877)+1.75*A(878)+A(879)+0.75& + &*A(880)+0.01*A(881)+A(883)+A(884)+A(885)+A(886)+A(887)+1.662*A(888)+1.637*A(889)+A(890)+A(891)+0.55*A(892)& + &+0.55*A(895)+0.67*A(896)+A(897)+0.645*A(899)+0.5*A(901)+A(902)+1.25*A(903)+A(904)+0.546*A(905)+A(906)+0.3& + &*A(907)+A(908)+A(910)+A(912) Vdot(280) = -A(13)-A(22)-A(26)-A(27)-A(39)-A(45)+A(51)-A(57)-A(59)-A(60)-A(61)-A(64)-A(65)-A(66)-A(68)-A(69)-A(70)& &-A(71)-A(72)-A(73)-A(74)-A(75)-A(82)-A(174)+2*A(196)+A(209)-A(211)+A(219)-A(220)-A(270)-A(305)+2*A(306)& &-A(320)-A(330)-A(339)-A(346)-A(353)-A(365)-A(371)-A(372)-A(419)-A(420)-A(421)-A(422)-A(423)-A(424)-A(425)& &-A(426)-A(443)-A(444)-A(447)-A(448)-A(451)-A(452)-A(462)-A(463)-A(466)-A(467)-A(470)-A(471)-A(473)-A(475)& &-A(489)-A(490)-A(493)-A(494)-A(498)-A(499)-A(501)-A(502)-A(504)-A(505)-A(518)-A(519)-A(520)-A(521)-A(536)& &-A(537)-A(538)-A(539)-A(542)-A(545)-A(558)-A(561)-A(571)-A(572)-A(577)-A(578)-A(579)-A(582)-A(608)-A(620)& - &-A(634)-A(640)+A(760)+A(766)+A(770)+A(837)-A(855) + &-A(634)-A(640)+A(761)+A(767)+A(771)+A(838)-A(856) Vdot(281) = A(14)-A(15)+A(17)-A(20)+A(21)-A(22)-2*A(23)+A(24)+A(26)-A(28)+2*A(30)+1.74*A(31)+A(36)-A(41)+A(42)-A(44)& &+A(46)+A(49)+A(50)+A(52)+0.05*A(53)+A(59)+A(61)+A(64)+A(66)+0.27*A(68)+A(73)+A(85)+A(86)-A(87)-A(88)-A(89)& &-A(90)-A(91)-A(92)+A(94)+A(95)+0.64*A(97)+0.5*A(98)+0.3*A(99)+0.5*A(100)+A(101)+0.5*A(102)+A(103)+A(104)+2& @@ -1486,36 +1487,36 @@ SUBROUTINE Fun ( V, F, RCT, Vdot, Aout, Vdotout ) &*A(577)-A(581)+0.7*A(585)+0.5*A(589)+0.444*A(590)+0.62*A(594)+0.5*A(597)-A(598)+0.364*A(606)-A(607)+0.6& &*A(610)+A(611)+A(612)+0.54*A(616)+0.19*A(617)+0.15*A(618)+A(620)+A(621)+2*A(622)+A(623)+0.8*A(624)+0.727& &*A(626)+A(629)-A(633)-A(642)+A(648)+A(649)+0.33*A(650)+0.1*A(651)+0.2*A(652)+0.33*A(653)+0.1*A(654)+0.2& - &*A(655)-A(662)+A(762)+A(763)+A(768)+A(772)+A(775)+1.73*A(779)+2*A(780)+A(783)+A(785)+A(787)+A(788)+A(789)& - &+A(790)+A(791)+A(792)+A(793)+A(794)+A(795)+0.27*A(796)+A(849)+A(856)+A(857)+A(865)+A(866)+A(867)+A(868)& - &+A(870)+A(871)+A(873)+1.5*A(874)+0.47*A(875)+0.571*A(876)+0.125*A(877)+A(878)+0.29*A(880)+A(881)+A(882)& - &+A(883)+A(884)+A(885)+A(886)+0.112*A(887)+0.182*A(888)+A(889)+A(890)+0.45*A(891)+A(892)+A(893)+0.45*A(894)& - &+0.33*A(895)+0.159*A(896)+0.161*A(898)+0.228*A(899)+1.5*A(900)+A(901)+0.75*A(902)+A(903)+1.454*A(904)+0.7& - &*A(905)+0.7*A(906)+A(908)+A(910)+A(913) - Vdot(282) = A(5)-A(671)-A(673)-A(682)-A(684)-A(692)-A(697)-A(722)-A(726)-A(730) + &*A(655)+A(662)-A(663)+A(763)+A(764)+A(769)+A(773)+A(776)+1.73*A(780)+2*A(781)+A(784)+A(786)+A(788)+A(789)& + &+A(790)+A(791)+A(792)+A(793)+A(794)+A(795)+A(796)+0.27*A(797)+A(850)+A(857)+A(858)+A(866)+A(867)+A(868)& + &+A(869)+A(871)+A(872)+A(874)+1.5*A(875)+0.47*A(876)+0.571*A(877)+0.125*A(878)+A(879)+0.29*A(881)+A(882)& + &+A(883)+A(884)+A(885)+A(886)+A(887)+0.112*A(888)+0.182*A(889)+A(890)+A(891)+0.45*A(892)+A(893)+A(894)+0.45& + &*A(895)+0.33*A(896)+0.159*A(897)+0.161*A(899)+0.228*A(900)+1.5*A(901)+A(902)+0.75*A(903)+A(904)+1.454& + &*A(905)+0.7*A(906)+0.7*A(907)+A(909)+A(911)+A(914) + Vdot(282) = A(5)-A(672)-A(674)-A(683)-A(685)-A(693)-A(698)-A(723)-A(727)-A(731) Vdot(283) = A(16)+A(38)-A(44)-A(45)-A(46)-A(47)+A(48)-A(51)-A(52)-A(54)-A(76)-A(83)-A(96)-A(118)-A(121)-A(122)-A(140)& &-2*A(161)-A(166)+A(175)-A(180)-A(210)+A(212)+A(252)+A(284)+A(285)-A(310)+A(313)+A(340)+A(347)-A(357)-A(360)& &-A(361)-A(364)-A(369)-A(379)-A(380)-A(387)-A(388)+A(391)-A(506)-A(516)-A(517)-A(552)+0.69*A(553)-A(584)& - &+A(587)-A(595)-A(609)-A(621)-A(625)-A(627)-A(630)-A(632)+A(639)-A(641)-A(647)-A(664)-A(665)-A(666)+A(767)& - &-A(769)-A(770)+A(771)+0.3*A(774)+A(801)+A(815)+A(839)+A(849) + &+A(587)-A(595)-A(609)-A(621)-A(625)-A(627)-A(630)-A(632)+A(639)-A(641)-A(647)-A(662)-A(665)-A(666)-A(667)& + &+A(768)-A(770)-A(771)+A(772)+0.3*A(775)+A(802)+A(816)+A(840)+A(850) Vdot(284) = A(18)-A(177)-A(178)+A(192)+A(193)-A(200)-A(201)-A(203)-A(204)+2*A(206)-A(207)-A(209)-A(210)-A(211)-A(212)& &-A(213)+A(217)+A(219)+A(220)+A(221)-A(222)-A(223)+0.09*A(224)+0.2*A(225)+0.25*A(226)+0.14*A(227)+0.05& &*A(229)+0.32*A(230)+0.28*A(231)+0.12*A(232)+0.14*A(233)+0.36*A(234)+0.59*A(235)+0.31*A(236)+0.26*A(237)& - &+0.21*A(238)+0.25*A(239)+0.25*A(240)+0.7*A(241)+0.25*A(242)-A(268)-A(284)+A(757)+2*A(759)+A(760)+A(769)& - &+A(799)+A(811)+A(812)+A(835)+A(855) + &+0.21*A(238)+0.25*A(239)+0.25*A(240)+0.7*A(241)+0.25*A(242)-A(268)-A(284)+A(758)+2*A(760)+A(761)+A(770)& + &+A(800)+A(812)+A(813)+A(836)+A(856) Vdot(285) = 0.67*A(224)+0.75*A(226)+2.58*A(227)+0.17*A(231)+1.76*A(232)+0.86*A(233)+0.31*A(234)+0.69*A(236)+0.79& &*A(238)+1.5*A(239)+0.75*A(240)+A(243)+A(245)+A(249)+A(253)+2*A(254)+3*A(255)+3*A(256)+A(257)+2*A(258)& &+A(259)+2*A(260)-A(261)-A(262)-A(263)-A(264)-A(265)-A(266)-A(267)+A(268)+A(270)+A(273)+A(274)-A(275)+A(276)& &-A(279)-A(280)-A(285)-A(286)+A(287)+2*A(288)-A(289)-A(290)-A(291)-A(292)-A(293)-A(294)-A(295)-A(296)-A(297)& - &-A(298)-A(299)-A(300)-A(301)-A(302)-A(303)+A(322)+A(807)+2*A(808)+A(809)+2*A(810)+A(811)+A(813)+A(814)& - &+A(815)+A(817)+3*A(818)+4*A(819)+3*A(820)+2*A(821)+3*A(822)+2*A(823)+A(824)+2*A(825)+2*A(826)+A(827)+A(828)& - &+A(830)+A(832)+A(843)+A(848) + &-A(298)-A(299)-A(300)-A(301)-A(302)-A(303)+A(322)+A(808)+2*A(809)+A(810)+2*A(811)+A(812)+A(814)+A(815)& + &+A(816)+A(818)+3*A(819)+4*A(820)+3*A(821)+2*A(822)+3*A(823)+2*A(824)+A(825)+2*A(826)+2*A(827)+A(828)+A(829)& + &+A(831)+A(833)+A(844)+A(849) Vdot(286) = -A(1)-A(4)-A(7)-A(8)-A(9)-A(10)+A(11)-A(12)+A(164)+0.75*A(165)+A(166)-A(167)+A(207)+A(208)-A(344)-A(348)& - &-A(693)-A(700)+A(853)+A(854) + &-A(694)-A(701)+A(854)+A(855) Vdot(287) = -A(168)-A(170)+A(171)+2*A(172)+A(174)-A(175)+A(176)+A(178)+A(179)-A(180)-A(181)-A(182)-A(183)-A(184)& &-A(185)-A(186)+3*A(188)+2*A(189)+A(190)+A(222)+0.65*A(225)+0.56*A(228)+0.95*A(229)+1.36*A(230)+0.33*A(234)& - &+0.75*A(242)+A(281)+A(282)-A(304)+A(314)+A(315)+A(316)+2*A(798)+A(799)+A(800)+A(801)+A(803)+3*A(804)+2& - &*A(805)+A(806)+A(809)+A(829)+A(830)+2*A(831)+A(844)+A(847) + &+0.75*A(242)+A(281)+A(282)-A(304)+A(314)+A(315)+A(316)+2*A(799)+A(800)+A(801)+A(802)+A(804)+3*A(805)+2& + &*A(806)+A(807)+A(810)+A(830)+A(831)+2*A(832)+A(845)+A(848) !### Use Vdotout to return time deriv. of variable species IF ( PRESENT( Vdotout ) ) Vdotout = Vdot @@ -2213,272 +2214,273 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) A(659) = RCT(659)*V(21)*V(280) A(660) = RCT(660)*V(26)*V(281) A(661) = RCT(661)*V(26)*V(280) - A(662) = RCT(662)*V(281) - A(663) = RCT(663)*V(270) - A(664) = RCT(664)*V(283) + A(662) = RCT(662)*V(263)*V(283) + A(663) = RCT(663)*V(281) + A(664) = RCT(664)*V(270) A(665) = RCT(665)*V(283) A(666) = RCT(666)*V(283) - A(667) = RCT(667)*V(169)*V(273) - A(668) = RCT(668)*V(169)*V(271) - A(669) = RCT(669)*V(169) - A(670) = RCT(670)*V(169)*V(278) - A(671) = RCT(671)*V(169)*V(282) - A(672) = RCT(672)*V(278)*V(279) - A(673) = RCT(673)*V(279)*V(282) - A(674) = RCT(674)*V(172)*V(273) - A(675) = RCT(675)*V(172)*V(271) - A(676) = RCT(676)*V(259)*V(273) - A(677) = RCT(677)*V(259)*V(271) - A(678) = RCT(678)*V(259)*V(272) - A(679) = RCT(679)*V(259)*V(275) - A(680) = RCT(680)*V(259)*V(276) - A(681) = RCT(681)*V(259)*V(278) - A(682) = RCT(682)*V(259)*V(282) - A(683) = RCT(683)*V(231)*V(278) - A(684) = RCT(684)*V(231)*V(282) - A(685) = RCT(685)*V(231)*V(271) - A(686) = RCT(686)*V(231)*V(275) - A(687) = RCT(687)*V(231)*V(276) - A(688) = RCT(688)*V(231)*V(272) - A(689) = RCT(689)*V(267)*V(271) - A(690) = RCT(690)*V(267)*V(272) - A(691) = RCT(691)*V(267)*V(278) - A(692) = RCT(692)*V(267)*V(282) - A(693) = RCT(693)*V(267)*V(286) - A(694) = RCT(694)*V(256)*V(272) - A(695) = RCT(695)*V(256)*V(271) - A(696) = RCT(696)*V(256)*V(278) - A(697) = RCT(697)*V(256)*V(282) - A(698) = RCT(698)*V(256)*V(275) - A(699) = RCT(699)*V(256)*V(276) - A(700) = RCT(700)*V(256)*V(286) - A(701) = RCT(701)*V(269)*V(272) - A(702) = RCT(702)*V(269)*V(275) - A(703) = RCT(703)*V(269)*V(276) - A(704) = RCT(704)*V(272) + A(667) = RCT(667)*V(283) + A(668) = RCT(668)*V(169)*V(273) + A(669) = RCT(669)*V(169)*V(271) + A(670) = RCT(670)*V(169) + A(671) = RCT(671)*V(169)*V(278) + A(672) = RCT(672)*V(169)*V(282) + A(673) = RCT(673)*V(278)*V(279) + A(674) = RCT(674)*V(279)*V(282) + A(675) = RCT(675)*V(172)*V(273) + A(676) = RCT(676)*V(172)*V(271) + A(677) = RCT(677)*V(259)*V(273) + A(678) = RCT(678)*V(259)*V(271) + A(679) = RCT(679)*V(259)*V(272) + A(680) = RCT(680)*V(259)*V(275) + A(681) = RCT(681)*V(259)*V(276) + A(682) = RCT(682)*V(259)*V(278) + A(683) = RCT(683)*V(259)*V(282) + A(684) = RCT(684)*V(231)*V(278) + A(685) = RCT(685)*V(231)*V(282) + A(686) = RCT(686)*V(231)*V(271) + A(687) = RCT(687)*V(231)*V(275) + A(688) = RCT(688)*V(231)*V(276) + A(689) = RCT(689)*V(231)*V(272) + A(690) = RCT(690)*V(267)*V(271) + A(691) = RCT(691)*V(267)*V(272) + A(692) = RCT(692)*V(267)*V(278) + A(693) = RCT(693)*V(267)*V(282) + A(694) = RCT(694)*V(267)*V(286) + A(695) = RCT(695)*V(256)*V(272) + A(696) = RCT(696)*V(256)*V(271) + A(697) = RCT(697)*V(256)*V(278) + A(698) = RCT(698)*V(256)*V(282) + A(699) = RCT(699)*V(256)*V(275) + A(700) = RCT(700)*V(256)*V(276) + A(701) = RCT(701)*V(256)*V(286) + A(702) = RCT(702)*V(269)*V(272) + A(703) = RCT(703)*V(269)*V(275) + A(704) = RCT(704)*V(269)*V(276) A(705) = RCT(705)*V(272) - A(706) = RCT(706)*V(65) + A(706) = RCT(706)*V(272) A(707) = RCT(707)*V(65) A(708) = RCT(708)*V(65) - A(709) = RCT(709)*V(40) + A(709) = RCT(709)*V(65) A(710) = RCT(710)*V(40) A(711) = RCT(711)*V(40) - A(712) = RCT(712)*V(47) + A(712) = RCT(712)*V(40) A(713) = RCT(713)*V(47) A(714) = RCT(714)*V(47) - A(715) = RCT(715)*V(38) + A(715) = RCT(715)*V(47) A(716) = RCT(716)*V(38) A(717) = RCT(717)*V(38) - A(718) = RCT(718)*V(266)*V(273) - A(719) = RCT(719)*V(199)*V(275) - A(720) = RCT(720)*V(199)*V(276) - A(721) = RCT(721)*V(199)*V(278) - A(722) = RCT(722)*V(199)*V(282) - A(723) = RCT(723)*V(266)*V(275) - A(724) = RCT(724)*V(266)*V(276) - A(725) = RCT(725)*V(266)*V(278) - A(726) = RCT(726)*V(266)*V(282) - A(727) = RCT(727)*V(264)*V(275) - A(728) = RCT(728)*V(264)*V(276) - A(729) = RCT(729)*V(264)*V(278) - A(730) = RCT(730)*V(264)*V(282) - A(731) = RCT(731)*V(218) - A(732) = RCT(732)*V(228) - A(733) = RCT(733)*V(127) - A(734) = RCT(734)*V(128) - A(735) = RCT(735)*V(115) - A(736) = RCT(736)*V(23) - A(737) = RCT(737)*V(237) - A(738) = RCT(738)*V(198) - A(739) = RCT(739)*V(174) - A(740) = RCT(740)*V(196) - A(741) = RCT(741)*V(131) - A(742) = RCT(742)*V(104) - A(743) = RCT(743)*V(84) - A(744) = RCT(744)*V(216) - A(745) = RCT(745)*V(136) - A(746) = RCT(746)*V(137) - A(747) = RCT(747)*V(210) - A(748) = RCT(748)*V(170) - A(749) = RCT(749)*V(147) - A(750) = RCT(750)*V(177) - A(751) = RCT(751)*V(239) - A(752) = RCT(752)*V(209) - A(753) = RCT(753)*V(238) - A(754) = RCT(754)*V(171) - A(755) = RCT(755)*V(195) - A(756) = RCT(756)*V(206) - A(757) = RCT(757)*V(269) + A(718) = RCT(718)*V(38) + A(719) = RCT(719)*V(266)*V(273) + A(720) = RCT(720)*V(199)*V(275) + A(721) = RCT(721)*V(199)*V(276) + A(722) = RCT(722)*V(199)*V(278) + A(723) = RCT(723)*V(199)*V(282) + A(724) = RCT(724)*V(266)*V(275) + A(725) = RCT(725)*V(266)*V(276) + A(726) = RCT(726)*V(266)*V(278) + A(727) = RCT(727)*V(266)*V(282) + A(728) = RCT(728)*V(264)*V(275) + A(729) = RCT(729)*V(264)*V(276) + A(730) = RCT(730)*V(264)*V(278) + A(731) = RCT(731)*V(264)*V(282) + A(732) = RCT(732)*V(218) + A(733) = RCT(733)*V(228) + A(734) = RCT(734)*V(127) + A(735) = RCT(735)*V(128) + A(736) = RCT(736)*V(115) + A(737) = RCT(737)*V(23) + A(738) = RCT(738)*V(237) + A(739) = RCT(739)*V(198) + A(740) = RCT(740)*V(174) + A(741) = RCT(741)*V(196) + A(742) = RCT(742)*V(131) + A(743) = RCT(743)*V(104) + A(744) = RCT(744)*V(84) + A(745) = RCT(745)*V(216) + A(746) = RCT(746)*V(136) + A(747) = RCT(747)*V(137) + A(748) = RCT(748)*V(210) + A(749) = RCT(749)*V(170) + A(750) = RCT(750)*V(147) + A(751) = RCT(751)*V(177) + A(752) = RCT(752)*V(239) + A(753) = RCT(753)*V(209) + A(754) = RCT(754)*V(238) + A(755) = RCT(755)*V(171) + A(756) = RCT(756)*V(195) + A(757) = RCT(757)*V(206) A(758) = RCT(758)*V(269) - A(759) = RCT(759)*F(3) - A(760) = RCT(760)*V(270) - A(761) = RCT(761)*V(208) - A(762) = RCT(762)*V(134) - A(763) = RCT(763)*V(262) + A(759) = RCT(759)*V(269) + A(760) = RCT(760)*F(3) + A(761) = RCT(761)*V(270) + A(762) = RCT(762)*V(208) + A(763) = RCT(763)*V(134) A(764) = RCT(764)*V(262) - A(765) = RCT(765)*V(260) - A(766) = RCT(766)*V(188) - A(767) = RCT(767)*V(101) + A(765) = RCT(765)*V(262) + A(766) = RCT(766)*V(260) + A(767) = RCT(767)*V(188) A(768) = RCT(768)*V(101) - A(769) = RCT(769)*V(283) + A(769) = RCT(769)*V(101) A(770) = RCT(770)*V(283) - A(771) = RCT(771)*V(169) - A(772) = RCT(772)*V(261) + A(771) = RCT(771)*V(283) + A(772) = RCT(772)*V(169) A(773) = RCT(773)*V(261) - A(774) = RCT(774)*V(63) - A(775) = RCT(775)*V(255) - A(776) = RCT(776)*V(219) + A(774) = RCT(774)*V(261) + A(775) = RCT(775)*V(63) + A(776) = RCT(776)*V(255) A(777) = RCT(777)*V(219) - A(778) = RCT(778)*V(222) - A(779) = RCT(779)*V(232) - A(780) = RCT(780)*V(218) + A(778) = RCT(778)*V(219) + A(779) = RCT(779)*V(222) + A(780) = RCT(780)*V(232) A(781) = RCT(781)*V(218) A(782) = RCT(782)*V(218) - A(783) = RCT(783)*V(228) - A(784) = RCT(784)*V(244) + A(783) = RCT(783)*V(218) + A(784) = RCT(784)*V(228) A(785) = RCT(785)*V(244) A(786) = RCT(786)*V(244) - A(787) = RCT(787)*V(247) - A(788) = RCT(788)*V(246) - A(789) = RCT(789)*V(112) - A(790) = RCT(790)*V(109) - A(791) = RCT(791)*V(92) - A(792) = RCT(792)*V(93) - A(793) = RCT(793)*V(91) - A(794) = RCT(794)*V(111) - A(795) = RCT(795)*V(94) - A(796) = RCT(796)*V(198) - A(797) = RCT(797)*V(66) - A(798) = RCT(798)*V(124) - A(799) = RCT(799)*V(274) - A(800) = RCT(800)*V(256) - A(801) = RCT(801)*V(172) + A(787) = RCT(787)*V(244) + A(788) = RCT(788)*V(247) + A(789) = RCT(789)*V(246) + A(790) = RCT(790)*V(112) + A(791) = RCT(791)*V(109) + A(792) = RCT(792)*V(92) + A(793) = RCT(793)*V(93) + A(794) = RCT(794)*V(91) + A(795) = RCT(795)*V(111) + A(796) = RCT(796)*V(94) + A(797) = RCT(797)*V(198) + A(798) = RCT(798)*V(66) + A(799) = RCT(799)*V(124) + A(800) = RCT(800)*V(274) + A(801) = RCT(801)*V(256) A(802) = RCT(802)*V(172) - A(803) = RCT(803)*V(50) - A(804) = RCT(804)*V(74) - A(805) = RCT(805)*V(70) - A(806) = RCT(806)*V(97) - A(807) = RCT(807)*V(100) - A(808) = RCT(808)*V(73) - A(809) = RCT(809)*V(132) - A(810) = RCT(810)*V(192) - A(811) = RCT(811)*V(277) - A(812) = RCT(812)*V(107) - A(813) = RCT(813)*V(72) - A(814) = RCT(814)*V(231) - A(815) = RCT(815)*V(259) + A(803) = RCT(803)*V(172) + A(804) = RCT(804)*V(50) + A(805) = RCT(805)*V(74) + A(806) = RCT(806)*V(70) + A(807) = RCT(807)*V(97) + A(808) = RCT(808)*V(100) + A(809) = RCT(809)*V(73) + A(810) = RCT(810)*V(132) + A(811) = RCT(811)*V(192) + A(812) = RCT(812)*V(277) + A(813) = RCT(813)*V(107) + A(814) = RCT(814)*V(72) + A(815) = RCT(815)*V(231) A(816) = RCT(816)*V(259) - A(817) = RCT(817)*V(267) - A(818) = RCT(818)*V(39) - A(819) = RCT(819)*V(51) - A(820) = RCT(820)*V(52) - A(821) = RCT(821)*V(53) - A(822) = RCT(822)*V(48) - A(823) = RCT(823)*V(42) - A(824) = RCT(824)*V(46) - A(825) = RCT(825)*V(78) - A(826) = RCT(826)*V(79) - A(827) = RCT(827)*V(80) - A(828) = RCT(828)*V(81) - A(829) = RCT(829)*V(44) - A(830) = RCT(830)*V(55) - A(831) = RCT(831)*V(45) - A(832) = RCT(832)*V(103) - A(833) = RCT(833)*V(139) - A(834) = RCT(834)*V(264) - A(835) = RCT(835)*V(223) - A(836) = RCT(836)*V(90) - A(837) = RCT(837)*V(56) - A(838) = RCT(838)*V(199) - A(839) = RCT(839)*V(266) - A(840) = RCT(840)*V(40) - A(841) = RCT(841)*V(43) - A(842) = RCT(842)*V(1) - A(843) = RCT(843)*V(3) - A(844) = RCT(844)*V(2) - A(845) = RCT(845)*V(38) - A(846) = RCT(846)*V(47) - A(847) = RCT(847)*V(69) - A(848) = RCT(848)*V(98) - A(849) = RCT(849)*V(71) + A(817) = RCT(817)*V(259) + A(818) = RCT(818)*V(267) + A(819) = RCT(819)*V(39) + A(820) = RCT(820)*V(51) + A(821) = RCT(821)*V(52) + A(822) = RCT(822)*V(53) + A(823) = RCT(823)*V(48) + A(824) = RCT(824)*V(42) + A(825) = RCT(825)*V(46) + A(826) = RCT(826)*V(78) + A(827) = RCT(827)*V(79) + A(828) = RCT(828)*V(80) + A(829) = RCT(829)*V(81) + A(830) = RCT(830)*V(44) + A(831) = RCT(831)*V(55) + A(832) = RCT(832)*V(45) + A(833) = RCT(833)*V(103) + A(834) = RCT(834)*V(139) + A(835) = RCT(835)*V(264) + A(836) = RCT(836)*V(223) + A(837) = RCT(837)*V(90) + A(838) = RCT(838)*V(56) + A(839) = RCT(839)*V(199) + A(840) = RCT(840)*V(266) + A(841) = RCT(841)*V(40) + A(842) = RCT(842)*V(43) + A(843) = RCT(843)*V(1) + A(844) = RCT(844)*V(3) + A(845) = RCT(845)*V(2) + A(846) = RCT(846)*V(38) + A(847) = RCT(847)*V(47) + A(848) = RCT(848)*V(69) + A(849) = RCT(849)*V(98) A(850) = RCT(850)*V(71) - A(851) = RCT(851)*V(193) - A(852) = RCT(852)*V(57) - A(853) = RCT(853)*V(62) - A(854) = RCT(854)*V(108) - A(855) = RCT(855)*V(280) - A(856) = RCT(856)*V(119) - A(857) = RCT(857)*V(205) - A(858) = RCT(858)*V(174) - A(859) = RCT(859)*V(196) - A(860) = RCT(860)*V(131) - A(861) = RCT(861)*V(59) + A(851) = RCT(851)*V(71) + A(852) = RCT(852)*V(193) + A(853) = RCT(853)*V(57) + A(854) = RCT(854)*V(62) + A(855) = RCT(855)*V(108) + A(856) = RCT(856)*V(280) + A(857) = RCT(857)*V(119) + A(858) = RCT(858)*V(205) + A(859) = RCT(859)*V(174) + A(860) = RCT(860)*V(196) + A(861) = RCT(861)*V(131) A(862) = RCT(862)*V(59) - A(863) = RCT(863)*V(58) + A(863) = RCT(863)*V(59) A(864) = RCT(864)*V(58) - A(865) = RCT(865)*V(87) - A(866) = RCT(866)*V(88) - A(867) = RCT(867)*V(86) - A(868) = RCT(868)*V(89) - A(869) = RCT(869)*V(83) - A(870) = RCT(870)*V(168) - A(871) = RCT(871)*V(104) - A(872) = RCT(872)*V(194) - A(873) = RCT(873)*V(166) - A(874) = RCT(874)*V(181) - A(875) = RCT(875)*V(226) - A(876) = RCT(876)*V(152) - A(877) = RCT(877)*V(160) - A(878) = RCT(878)*V(227) - A(879) = RCT(879)*V(133) - A(880) = RCT(880)*V(237) - A(881) = RCT(881)*V(195) - A(882) = RCT(882)*V(171) - A(883) = RCT(883)*V(153) - A(884) = RCT(884)*V(158) - A(885) = RCT(885)*V(167) - A(886) = RCT(886)*V(161) - A(887) = RCT(887)*V(182) - A(888) = RCT(888)*V(184) - A(889) = RCT(889)*V(125) - A(890) = RCT(890)*V(126) - A(891) = RCT(891)*V(216) - A(892) = RCT(892)*V(136) - A(893) = RCT(893)*V(137) - A(894) = RCT(894)*V(210) - A(895) = RCT(895)*V(177) - A(896) = RCT(896)*V(147) + A(865) = RCT(865)*V(58) + A(866) = RCT(866)*V(87) + A(867) = RCT(867)*V(88) + A(868) = RCT(868)*V(86) + A(869) = RCT(869)*V(89) + A(870) = RCT(870)*V(83) + A(871) = RCT(871)*V(168) + A(872) = RCT(872)*V(104) + A(873) = RCT(873)*V(194) + A(874) = RCT(874)*V(166) + A(875) = RCT(875)*V(181) + A(876) = RCT(876)*V(226) + A(877) = RCT(877)*V(152) + A(878) = RCT(878)*V(160) + A(879) = RCT(879)*V(227) + A(880) = RCT(880)*V(133) + A(881) = RCT(881)*V(237) + A(882) = RCT(882)*V(195) + A(883) = RCT(883)*V(171) + A(884) = RCT(884)*V(153) + A(885) = RCT(885)*V(158) + A(886) = RCT(886)*V(167) + A(887) = RCT(887)*V(161) + A(888) = RCT(888)*V(182) + A(889) = RCT(889)*V(184) + A(890) = RCT(890)*V(125) + A(891) = RCT(891)*V(126) + A(892) = RCT(892)*V(216) + A(893) = RCT(893)*V(136) + A(894) = RCT(894)*V(137) + A(895) = RCT(895)*V(210) + A(896) = RCT(896)*V(177) A(897) = RCT(897)*V(147) - A(898) = RCT(898)*V(236) - A(899) = RCT(899)*V(239) - A(900) = RCT(900)*V(202) + A(898) = RCT(898)*V(147) + A(899) = RCT(899)*V(236) + A(900) = RCT(900)*V(239) A(901) = RCT(901)*V(202) - A(902) = RCT(902)*V(140) - A(903) = RCT(903)*V(159) - A(904) = RCT(904)*V(122) - A(905) = RCT(905)*V(238) + A(902) = RCT(902)*V(202) + A(903) = RCT(903)*V(140) + A(904) = RCT(904)*V(159) + A(905) = RCT(905)*V(122) A(906) = RCT(906)*V(238) - A(907) = RCT(907)*V(209) + A(907) = RCT(907)*V(238) A(908) = RCT(908)*V(209) - A(909) = RCT(909)*V(114) - A(910) = RCT(910)*V(99) - A(911) = RCT(911)*V(67) - A(912) = RCT(912)*V(105) - A(913) = RCT(913)*V(206) + A(909) = RCT(909)*V(209) + A(910) = RCT(910)*V(114) + A(911) = RCT(911)*V(99) + A(912) = RCT(912)*V(67) + A(913) = RCT(913)*V(105) + A(914) = RCT(914)*V(206) ! Production function P_VAR(1) = 0 P_VAR(2) = 0 P_VAR(3) = 0 - P_VAR(4) = A(706)+2*A(709)+2*A(712)+2*A(715) - P_VAR(5) = A(756) + P_VAR(4) = A(707)+2*A(710)+2*A(713)+2*A(716) + P_VAR(5) = A(757) P_VAR(6) = A(24)+A(49)+A(57)+A(78)+0.361*A(116)+0.5*A(124)+A(208)+A(289)+A(297)+A(336)+0.407*A(396)+0.355*A(431)& &+A(473)+A(474)+A(475)+A(476)+0.33*A(542)+0.33*A(543)+0.23*A(555)+0.75*A(557)+0.097*A(564)+0.5*A(574)+0.415& &*A(575)+A(579)+0.5*A(581)+A(582)+A(584)+0.7*A(585)+A(592)+A(596)+0.5*A(598)+0.35*A(633)+A(634)+A(638)+A(649)& - &+A(871)+1.238*A(879)+A(911)+A(913) + &+A(872)+1.238*A(880)+A(912)+A(914) P_VAR(7) = A(389)+A(390) - P_VAR(8) = A(707)+2*A(710)+2*A(713)+2*A(716) - P_VAR(9) = A(708)+2*A(711)+2*A(714)+2*A(717) + P_VAR(8) = A(708)+2*A(711)+2*A(714)+2*A(717) + P_VAR(9) = A(709)+2*A(712)+2*A(715)+2*A(718) P_VAR(10) = A(656) P_VAR(11) = A(657) P_VAR(12) = A(616) @@ -2491,15 +2493,15 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) P_VAR(19) = A(658) P_VAR(20) = A(659) P_VAR(21) = A(617) - P_VAR(22) = A(736) + P_VAR(22) = A(737) P_VAR(23) = 0.005*A(434)+0.005*A(435)+0.005*A(436)+0.005*A(437)+0.005*A(438)+0.005*A(439)+0.005*A(440)+0.005*A(441) P_VAR(24) = A(660) P_VAR(25) = A(661) P_VAR(26) = A(618) P_VAR(27) = 0.25*A(165) - P_VAR(28) = A(4)+A(693)+A(700) - P_VAR(29) = A(731)+A(732)+A(742) - P_VAR(30) = A(733)+A(734)+A(735)+A(743)+A(748) + P_VAR(28) = A(4)+A(694)+A(701) + P_VAR(29) = A(732)+A(733)+A(743) + P_VAR(30) = A(734)+A(735)+A(736)+A(744)+A(749) P_VAR(31) = A(18)+A(22)+A(26)+A(38)+A(40)+A(57)+A(59)+A(61)+A(64)+A(66)+A(68)+A(69)+A(70)+A(71)+A(72)+A(73)+A(75)& &+A(82)+0.15*A(113)+A(176)+A(217)+A(219)+A(220)+A(243)+A(251)+A(252)+A(267)+2*A(280)+A(290)+A(293)+A(294)& &+A(326)+A(339)+A(340)+A(346)+A(347)+A(353)+A(365)+A(371)+A(372)+A(389)+A(390)+A(391)+A(392)+A(393)+A(394)& @@ -2507,8 +2509,8 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) &+A(462)+A(463)+A(466)+A(467)+A(470)+A(471)+A(473)+A(475)+A(489)+A(490)+A(493)+A(494)+A(498)+A(499)+A(501)& &+A(502)+A(504)+A(505)+A(518)+A(519)+A(520)+A(521)+A(536)+A(537)+A(538)+A(539)+A(542)+A(545)+0.69*A(553)& &+A(558)+A(561)+A(571)+0.438*A(572)+0.13*A(574)+A(577)+A(578)+A(579)+0.13*A(581)+A(582)+A(587)+0.02*A(594)& - &+0.13*A(598)+0.995*A(608)+A(613)+A(620)+0.15*A(633)+A(634)+A(637)+A(638)+A(639)+A(640)+A(646)+2*A(759)& - &+A(767)+0.3*A(774)+A(849)+A(852)+A(855)+A(862)+A(864)+A(865)+A(866)+A(867)+A(868)+0.01*A(899) + &+0.13*A(598)+0.995*A(608)+A(613)+A(620)+0.15*A(633)+A(634)+A(637)+A(638)+A(639)+A(640)+A(646)+2*A(760)& + &+A(768)+0.3*A(775)+A(850)+A(853)+A(856)+A(863)+A(865)+A(866)+A(867)+A(868)+A(869)+0.01*A(900) P_VAR(32) = A(1)+A(3)+A(4)+A(6)+A(8)+A(14)+A(15)+A(17)+A(44)+A(46)+2*A(51)+A(52)+A(54)+A(76)+A(83)+A(96)+A(115)+A(118)& &+A(121)+A(122)+A(140)+2*A(161)+A(166)+2*A(172)+2*A(173)+A(177)+A(178)+A(179)+A(191)+A(194)+A(195)+A(196)& &+A(197)+A(198)+A(199)+2*A(201)+A(203)+A(204)+2*A(205)+A(207)+2*A(209)+2*A(210)+A(213)+A(215)+2*A(222)& @@ -2516,12 +2518,12 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) &*A(272)+2*A(273)+2*A(282)+2*A(283)+2*A(315)+2*A(322)+2*A(323)+A(343)+A(357)+A(358)+A(359)+A(360)+A(361)& &+A(363)+A(364)+A(369)+A(379)+A(380)+A(386)+2*A(387)+2*A(388)+A(396)+A(506)+0.001*A(511)+A(516)+A(517)& &+A(548)+A(551)+A(552)+A(584)+A(595)+A(604)+A(609)+A(621)+1.258*A(625)+1.5*A(627)+A(629)+1.5*A(630)+A(632)& - &+A(635)+A(641)+A(644)+A(645)+A(651)+A(654)+0.5*A(663)+A(664)+2*A(665)+2*A(666)+A(667)+A(668)+A(669)+A(670)& - &+A(671)+A(675)+A(677)+A(678)+A(679)+A(680)+A(681)+A(682)+A(683)+A(684)+A(685)+A(686)+A(687)+A(688)+A(689)& - &+A(690)+A(691)+A(692)+A(693)+A(694)+A(695)+A(696)+A(697)+A(698)+A(699)+A(700)+2*A(709)+2*A(710)+2*A(711)+3& - &*A(712)+3*A(713)+3*A(714)+4*A(715)+4*A(716)+4*A(717)+A(719)+A(720)+A(721)+A(722)+A(723)+A(724)+A(725)& - &+A(726)+A(727)+A(728)+A(729)+A(730)+A(737)+A(738)+A(739)+A(740)+A(741)+A(744)+A(745)+A(746)+A(747)+A(749)& - &+A(750)+2*A(751)+A(752)+A(753)+A(754)+A(755)+2*A(770)+A(800)+2*A(813)+A(817)+A(834)+2*A(836) + &+A(635)+A(641)+A(644)+A(645)+A(651)+A(654)+A(662)+0.5*A(664)+A(665)+2*A(666)+2*A(667)+A(668)+A(669)+A(670)& + &+A(671)+A(672)+A(676)+A(678)+A(679)+A(680)+A(681)+A(682)+A(683)+A(684)+A(685)+A(686)+A(687)+A(688)+A(689)& + &+A(690)+A(691)+A(692)+A(693)+A(694)+A(695)+A(696)+A(697)+A(698)+A(699)+A(700)+A(701)+2*A(710)+2*A(711)+2& + &*A(712)+3*A(713)+3*A(714)+3*A(715)+4*A(716)+4*A(717)+4*A(718)+A(720)+A(721)+A(722)+A(723)+A(724)+A(725)& + &+A(726)+A(727)+A(728)+A(729)+A(730)+A(731)+A(738)+A(739)+A(740)+A(741)+A(742)+A(745)+A(746)+A(747)+A(748)& + &+A(750)+A(751)+2*A(752)+A(753)+A(754)+A(755)+A(756)+2*A(771)+A(801)+2*A(814)+A(818)+A(835)+2*A(837) P_VAR(33) = A(36)+A(52)+0.05*A(53)+0.56*A(115)+0.505*A(116)+A(117)+2*A(119)+A(120)+2*A(121)+A(122)+0.5*A(124)+A(181)& &+A(207)+A(223)+A(262)+A(286)+A(287)+A(288)+0.14*A(358)+0.14*A(359)+0.14*A(363)+0.407*A(396)+0.6*A(399)+0.9& &*A(400)+0.6*A(406)+0.9*A(408)+A(412)+A(413)+A(414)+0.5*A(416)+0.5*A(418)+0.55*A(422)+0.55*A(426)+0.45& @@ -2530,10 +2532,10 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) &*A(472)+0.6*A(485)+0.6*A(486)+0.539*A(541)+0.33*A(542)+0.33*A(543)+0.18*A(548)+0.036*A(549)+0.12*A(551)& &+0.68*A(552)+0.77*A(555)+0.25*A(557)+0.75*A(564)+A(565)+2*A(568)+0.84*A(569)+0.507*A(573)+0.325*A(574)& &+0.488*A(575)+A(576)+0.86*A(577)+0.65*A(579)+0.25*A(587)+A(589)+0.888*A(590)+A(593)+A(599)+0.364*A(606)+0.2& - &*A(616)+0.27*A(617)+0.3*A(618)+0.25*A(650)+0.5*A(651)+0.25*A(653)+0.5*A(654)+A(763)+A(764)+0.88*A(772)& - &+A(773)+A(775)+A(777)+A(779)+2*A(780)+2*A(781)+A(782)+A(783)+A(784)+A(785)+A(787)+A(853)+A(857)+A(870)& - &+A(873)+0.5*A(874)+0.571*A(876)+0.875*A(877)+0.77*A(878)+A(881)+A(882)+0.888*A(887)+0.818*A(888)+A(889)& - &+A(890)+0.55*A(891)+0.55*A(894)+0.839*A(898)+A(900)+0.122*A(901)+A(904)+A(908)+A(910)+A(913) + &*A(616)+0.27*A(617)+0.3*A(618)+0.25*A(650)+0.5*A(651)+0.25*A(653)+0.5*A(654)+A(764)+A(765)+0.88*A(773)& + &+A(774)+A(776)+A(778)+A(780)+2*A(781)+2*A(782)+A(783)+A(784)+A(785)+A(786)+A(788)+A(854)+A(858)+A(871)& + &+A(874)+0.5*A(875)+0.571*A(877)+0.875*A(878)+0.77*A(879)+A(882)+A(883)+0.888*A(888)+0.818*A(889)+A(890)& + &+A(891)+0.55*A(892)+0.55*A(895)+0.839*A(899)+A(901)+0.122*A(902)+A(905)+A(909)+A(911)+A(914) P_VAR(34) = A(24)+A(338)+A(345) P_VAR(35) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(167)+A(344)+A(348) P_VAR(36) = A(25)+A(197)+A(198)+A(199)+A(261) @@ -2541,7 +2543,7 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) P_VAR(38) = A(318) P_VAR(39) = 0 P_VAR(40) = A(332) - P_VAR(41) = A(739)+A(740)+A(741) + P_VAR(41) = A(740)+A(741)+A(742) P_VAR(42) = 0.25*A(240) P_VAR(43) = 0 P_VAR(44) = 0.59*A(235) @@ -2558,10 +2560,10 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) P_VAR(55) = 0.36*A(234) P_VAR(56) = A(305) P_VAR(57) = A(221) - P_VAR(58) = A(3)+A(665) - P_VAR(59) = A(6)+A(666) + P_VAR(58) = A(3)+A(666) + P_VAR(59) = A(6)+A(667) P_VAR(60) = 0 - P_VAR(61) = A(855) + P_VAR(61) = A(856) P_VAR(62) = 0 P_VAR(63) = A(55) P_VAR(64) = 0.005*A(608) @@ -2569,7 +2571,7 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) P_VAR(66) = 0.37*A(598) P_VAR(67) = 0.65*A(633) P_VAR(68) = 0 - P_VAR(69) = A(719)+A(720)+A(723)+A(724)+A(727)+A(728) + P_VAR(69) = A(720)+A(721)+A(724)+A(725)+A(728)+A(729) P_VAR(70) = 0.05*A(229) P_VAR(71) = A(162) P_VAR(72) = A(277) @@ -2590,23 +2592,23 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) P_VAR(87) = A(27) P_VAR(88) = A(60) P_VAR(89) = A(65) - P_VAR(90) = A(316)+2*A(319)+A(331)+A(334)+A(840)+2*A(845)+A(846) + P_VAR(90) = A(316)+2*A(319)+A(331)+A(334)+A(841)+2*A(846)+A(847) P_VAR(91) = A(87) P_VAR(92) = A(111) P_VAR(93) = A(91) P_VAR(94) = 0.41*A(113) P_VAR(95) = A(635) - P_VAR(96) = A(737)+A(738)+A(744)+A(745)+A(746)+A(747)+A(749)+A(750)+A(751)+A(752)+A(753)+A(754)+A(755) + P_VAR(96) = A(738)+A(739)+A(745)+A(746)+A(747)+A(748)+A(750)+A(751)+A(752)+A(753)+A(754)+A(755)+A(756) P_VAR(97) = 0 - P_VAR(98) = A(323)+A(721)+A(722)+A(725)+A(726)+A(729)+A(730) + P_VAR(98) = A(323)+A(722)+A(723)+A(726)+A(727)+A(730)+A(731) P_VAR(99) = 0.06*A(617)+0.06*A(618) P_VAR(100) = 0 P_VAR(101) = A(41) - P_VAR(102) = 0.995*A(608)+A(609)+0.6*A(610)+A(909) - P_VAR(103) = A(244)+A(248)+A(273)+A(275)+A(282)+A(813) - P_VAR(104) = 0.075*A(548)+0.241*A(553)+0.653*A(564)+0.75*A(877) + P_VAR(102) = 0.995*A(608)+A(609)+0.6*A(610)+A(910) + P_VAR(103) = A(244)+A(248)+A(273)+A(275)+A(282)+A(814) + P_VAR(104) = 0.075*A(548)+0.241*A(553)+0.653*A(564)+0.75*A(878) P_VAR(105) = 0.15*A(633)+A(638)+A(642) - P_VAR(106) = 0.15*A(427)+0.15*A(428)+0.112*A(887)+0.182*A(888)+0.161*A(898) + P_VAR(106) = 0.15*A(427)+0.15*A(428)+0.112*A(888)+0.182*A(889)+0.161*A(899) P_VAR(107) = A(274)+A(281)+A(321) P_VAR(108) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(167)+A(344)+A(348) P_VAR(109) = A(109)+A(110) @@ -2616,24 +2618,24 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) P_VAR(113) = 0 P_VAR(114) = A(607)+0.2*A(610) P_VAR(115) = 0.255*A(440)+0.595*A(441)+A(481)+A(483) - P_VAR(116) = A(460)+0.13*A(461)+0.2*A(462)+0.35*A(589)+0.35*A(900) + P_VAR(116) = A(460)+0.13*A(461)+0.2*A(462)+0.35*A(589)+0.35*A(901) P_VAR(117) = 0.315*A(428) P_VAR(118) = 0.54*A(616) P_VAR(119) = A(354)+A(366) P_VAR(120) = 0.315*A(427) P_VAR(121) = 0 P_VAR(122) = A(459)+A(464) - P_VAR(123) = 0.474*A(510)+0.34*A(511)+0.244*A(512)+0.841*A(515)+0.841*A(517)+0.841*A(520)+0.841*A(896)+0.227*A(899) - P_VAR(124) = A(173)+A(175)+A(694)+A(698)+A(699) + P_VAR(123) = 0.474*A(510)+0.34*A(511)+0.244*A(512)+0.841*A(515)+0.841*A(517)+0.841*A(520)+0.841*A(897)+0.227*A(900) + P_VAR(124) = A(173)+A(175)+A(695)+A(699)+A(700) P_VAR(125) = 0.15*A(399)+0.15*A(406)+0.009*A(440) P_VAR(126) = 0.15*A(400)+0.15*A(408)+0.009*A(441) P_VAR(127) = 0.67*A(435)+0.68*A(437)+0.67*A(478)+0.67*A(480) P_VAR(128) = 0.33*A(435)+0.32*A(437)+0.33*A(478)+0.33*A(480) P_VAR(129) = 0.25*A(94)+0.25*A(95)+A(107)+A(108) - P_VAR(130) = A(465)+0.2*A(466)+0.13*A(468)+0.15*A(589)+0.15*A(900)+0.122*A(901) + P_VAR(130) = A(465)+0.2*A(466)+0.13*A(468)+0.15*A(589)+0.15*A(901)+0.122*A(902) P_VAR(131) = A(384)+A(385)+A(386)+A(387)+A(388) - P_VAR(132) = A(283)+A(675)+A(678)+A(679)+A(680)+A(686)+A(687)+A(688)+A(690)+A(695)+A(696)+A(697) - P_VAR(133) = 0.5*A(574)+0.25*A(879) + P_VAR(132) = A(283)+A(676)+A(679)+A(680)+A(681)+A(687)+A(688)+A(689)+A(691)+A(696)+A(697)+A(698) + P_VAR(133) = 0.5*A(574)+0.25*A(880) P_VAR(134) = A(28) P_VAR(135) = -A(4) P_VAR(136) = A(419) @@ -2641,8 +2643,8 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) P_VAR(138) = 0.8*A(624)+0.727*A(626) P_VAR(139) = A(306)+A(309)+A(313) P_VAR(140) = 0.725*A(445)+0.725*A(449)+0.35*A(453) - P_VAR(141) = 0.224*A(887)+0.068*A(898) - P_VAR(142) = 0.182*A(888)+0.128*A(898) + P_VAR(141) = 0.224*A(888)+0.068*A(899) + P_VAR(142) = 0.182*A(889)+0.128*A(899) P_VAR(143) = 0.435*A(544) P_VAR(144) = -A(1) P_VAR(145) = 0.3*A(617)+0.56*A(618)+0.44*A(626)+0.44*A(627) @@ -2652,31 +2654,31 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) P_VAR(149) = A(580)+A(583) P_VAR(150) = 0 P_VAR(151) = 0 - P_VAR(152) = A(433)+0.444*A(590)+0.112*A(887)+0.182*A(888)+0.162*A(898)+0.454*A(904) + P_VAR(152) = A(433)+0.444*A(590)+0.112*A(888)+0.182*A(889)+0.162*A(899)+0.454*A(905) P_VAR(153) = 0.937*A(401) P_VAR(154) = 0.25*A(85)+0.25*A(86)+0.25*A(97)+0.25*A(98)+0.25*A(100)+0.25*A(101)+0.25*A(102)+0.25*A(355)+0.25*A(367)& &+0.25*A(376) - P_VAR(155) = 0.56*A(616)+0.68*A(617)+0.28*A(618)+0.18*A(624)+1.05*A(628)+A(629)+0.3*A(630)+A(646)+A(647)+A(913) - P_VAR(156) = 0.06*A(624)+0.742*A(625)+0.073*A(626)+0.3*A(627)+0.3*A(628)+0.3*A(630)+A(639)+A(640)+A(641)+A(648)+A(912) + P_VAR(155) = 0.56*A(616)+0.68*A(617)+0.28*A(618)+0.18*A(624)+1.05*A(628)+A(629)+0.3*A(630)+A(646)+A(647)+A(914) + P_VAR(156) = 0.06*A(624)+0.742*A(625)+0.073*A(626)+0.3*A(627)+0.3*A(628)+0.3*A(630)+A(639)+A(640)+A(641)+A(648)+A(913) P_VAR(157) = 0 P_VAR(158) = 0.937*A(403) P_VAR(159) = 0.824*A(442)+0.452*A(446)+A(450)+0.667*A(591) - P_VAR(160) = 0.022*A(594)+0.552*A(887)+0.455*A(888)+0.481*A(898) + P_VAR(160) = 0.022*A(594)+0.552*A(888)+0.455*A(889)+0.481*A(899) P_VAR(161) = A(404) P_VAR(162) = A(477) P_VAR(163) = A(484) P_VAR(164) = A(482) P_VAR(165) = 0 - P_VAR(166) = 0.13*A(469)+0.2*A(471)+0.53*A(554)+0.6*A(566)+0.255*A(570)+0.318*A(590)+0.391*A(904) + P_VAR(166) = 0.13*A(469)+0.2*A(471)+0.53*A(554)+0.6*A(566)+0.255*A(570)+0.318*A(590)+0.391*A(905) P_VAR(167) = A(402) P_VAR(168) = 0.3*A(399)+0.3*A(406)+0.018*A(440)+0.284*A(443)+0.135*A(445)+0.249*A(534)+0.471*A(535)+0.303*A(536)+0.59& - &*A(538)+0.5*A(906) + &*A(538)+0.5*A(907) P_VAR(169) = A(47) P_VAR(170) = 0.085*A(427)+0.165*A(428)+0.58*A(429)+0.77*A(430)+0.75*A(454)+A(455)+A(457)+A(528)+A(540) P_VAR(171) = 0.6*A(485)+0.031*A(497)+0.065*A(498)+0.094*A(503)+0.355*A(504)+0.06*A(534)+0.073*A(535)+0.17*A(536)+0.291& &*A(538)+0.378*A(541)+0.13*A(581)+0.3*A(585) P_VAR(172) = A(187) - P_VAR(173) = A(194)+A(199)+A(202)+A(203)+0.24*A(224)+0.15*A(225)+A(264)+A(763) + P_VAR(173) = A(194)+A(199)+A(202)+A(203)+0.24*A(224)+0.15*A(225)+A(264)+A(764) P_VAR(174) = 0.12*A(353)+A(371)+0.7*A(373)+0.7*A(374)+0.7*A(375)+0.35*A(376)+0.7*A(377)+0.7*A(379)+1.4*A(381)+1.05& &*A(382)+0.7*A(383) P_VAR(175) = A(605)+A(614) @@ -2685,26 +2687,26 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) P_VAR(178) = 0.46*A(616)+0.81*A(617)+0.85*A(618)+0.14*A(624)+0.2*A(626)+0.2*A(627)+0.7*A(628)+0.2*A(630) P_VAR(179) = 0.345*A(434)+0.595*A(440) P_VAR(180) = 0.345*A(436)+0.255*A(441) - P_VAR(181) = 0.29*A(553)+0.47*A(554)+0.063*A(564)+0.4*A(566)+0.16*A(569)+0.126*A(590)+0.1*A(901)+0.155*A(904) + P_VAR(181) = 0.29*A(553)+0.47*A(554)+0.063*A(564)+0.4*A(566)+0.16*A(569)+0.126*A(590)+0.1*A(902)+0.155*A(905) P_VAR(182) = 0.25*A(399)+0.25*A(406)+0.015*A(440) P_VAR(183) = 0.655*A(434)+0.655*A(436) P_VAR(184) = 0.25*A(400)+0.25*A(408)+0.015*A(441) P_VAR(185) = A(525) - P_VAR(186) = 0.1*A(115)+A(773) - P_VAR(187) = 0.2*A(633)+A(634)+A(643)+A(644)+A(649)+A(910)+A(911) - P_VAR(188) = A(39)+0.5*A(663)+A(683)+A(684)+A(685)+A(686)+A(687)+A(688)+A(719)+A(720)+A(721)+A(722)+A(861)+A(863)& - &+A(913) - P_VAR(189) = A(412)+A(413)+A(414)+0.5*A(416)+0.5*A(418)+0.45*A(422)+0.45*A(426)+0.06*A(440)+0.06*A(441)+A(885)+A(886)& - &+0.45*A(891)+0.45*A(894) + P_VAR(186) = 0.1*A(115)+A(774) + P_VAR(187) = 0.2*A(633)+A(634)+A(643)+A(644)+A(649)+A(911)+A(912) + P_VAR(188) = A(39)+0.5*A(664)+A(684)+A(685)+A(686)+A(687)+A(688)+A(689)+A(720)+A(721)+A(722)+A(723)+A(862)+A(864)& + &+A(914) + P_VAR(189) = A(412)+A(413)+A(414)+0.5*A(416)+0.5*A(418)+0.45*A(422)+0.45*A(426)+0.06*A(440)+0.06*A(441)+A(886)+A(887)& + &+0.45*A(892)+0.45*A(895) P_VAR(190) = 0.16*A(439)+0.25*A(454) P_VAR(191) = 0.12*A(115) - P_VAR(192) = 0.25*A(226)+A(272)+A(279)+A(285)+0.5*A(672)+0.5*A(673)+A(677)+A(681)+A(682)+A(683)+A(684)+A(685)+A(689)& - &+A(691)+A(692) + P_VAR(192) = 0.25*A(226)+A(272)+A(279)+A(285)+0.5*A(673)+0.5*A(674)+A(678)+A(682)+A(683)+A(684)+A(685)+A(686)+A(690)& + &+A(692)+A(693) P_VAR(193) = 0.85*A(89)+0.85*A(90)+0.3*A(400)+0.3*A(408)+0.018*A(441)+0.294*A(447)+0.135*A(449)+0.009*A(534)+0.054& - &*A(535)+0.013*A(536)+0.07*A(538)+0.036*A(549)+0.23*A(555)+0.05*A(906) + &*A(535)+0.013*A(536)+0.07*A(538)+0.036*A(549)+0.23*A(555)+0.05*A(907) P_VAR(194) = 0.791*A(131)+0.551*A(497)+0.935*A(498)+0.242*A(503)+0.546*A(504)+0.589*A(534)+0.471*A(535)+0.687*A(536)& - &+0.59*A(538)+0.231*A(542)+0.231*A(543)+A(545)+0.82*A(546)+0.68*A(552)+A(557)+A(882) - P_VAR(195) = 0.059*A(488)+0.272*A(489)+A(563)+A(578)+0.37*A(581)+0.5*A(905) + &+0.59*A(538)+0.231*A(542)+0.231*A(543)+A(545)+0.82*A(546)+0.68*A(552)+A(557)+A(883) + P_VAR(195) = 0.059*A(488)+0.272*A(489)+A(563)+A(578)+0.37*A(581)+0.5*A(906) P_VAR(196) = 0.06*A(353)+0.22*A(365)+0.3*A(373)+0.3*A(374)+0.3*A(375)+0.15*A(376)+0.3*A(377)+0.3*A(379)+0.6*A(381)& &+0.45*A(382)+0.3*A(383) P_VAR(197) = A(118)+0.209*A(131) @@ -2712,11 +2714,11 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) P_VAR(199) = A(307) P_VAR(200) = A(547)+A(558)+A(559) P_VAR(201) = 0.964*A(549)+A(561)+A(562) - P_VAR(202) = 0.176*A(442)+0.548*A(446)+0.35*A(461)+0.35*A(468)+0.35*A(469)+0.333*A(591)+0.75*A(902) + P_VAR(202) = 0.176*A(442)+0.548*A(446)+0.35*A(461)+0.35*A(468)+0.35*A(469)+0.333*A(591)+0.75*A(903) P_VAR(203) = A(550)+0.32*A(552)+0.165*A(575)+A(586) P_VAR(204) = A(114)+0.209*A(137)+A(303)+A(304) P_VAR(205) = 0.441*A(500)+0.858*A(501)+0.033*A(503)+0.071*A(504)+0.051*A(534)+0.054*A(535)+0.064*A(536)+0.07*A(538)& - &+0.099*A(542)+0.099*A(543)+0.89*A(545)+0.73*A(546)+0.3*A(880)+0.15*A(905) + &+0.099*A(542)+0.099*A(543)+0.89*A(545)+0.73*A(546)+0.3*A(881)+0.15*A(906) P_VAR(206) = 0.258*A(625)+0.5*A(627)+0.5*A(630)+A(645) P_VAR(207) = 0.134*A(116)+A(117)+0.5*A(124)+0.21*A(341)+0.54*A(342)+0.07*A(353)+0.01*A(363)+0.449*A(553)+0.187*A(564)& &+0.3*A(588)+0.5*A(597)+0.364*A(606)+0.25*A(650)+0.5*A(651)+0.1*A(653)+0.2*A(654) @@ -2728,87 +2730,87 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) P_VAR(213) = A(58)+A(140)+A(184)+A(292) P_VAR(214) = A(29)+0.13*A(31)+0.25*A(85)+0.25*A(86)+0.25*A(94)+0.25*A(95)+0.25*A(97)+0.25*A(98)+0.5*A(99)+0.25*A(100)& &+0.25*A(101)+0.25*A(102)+0.25*A(355)+0.25*A(367)+0.25*A(376)+0.355*A(512)+0.034*A(513)+0.2*A(610)+0.1& - &*A(779) + &*A(780) P_VAR(215) = 0.5*A(124)+A(127)+A(128)+A(143)+A(150)+A(151)+A(152)+A(153)+A(154)+A(155)+A(158)+A(159)+A(350)+0.13& &*A(598)+0.15*A(653)+0.3*A(654) P_VAR(216) = A(425)+0.032*A(510)+0.671*A(511)+0.298*A(512) P_VAR(217) = 0.67*A(524) P_VAR(218) = 0.134*A(116)+0.8*A(466)+0.52*A(468)+A(600)+0.636*A(606)+0.18*A(616)+0.12*A(617)+0.1*A(618)+0.06*A(624)& - &+0.6*A(650)+0.6*A(651)+0.2*A(652)+0.5*A(874)+0.429*A(876)+0.125*A(877)+0.438*A(901)+0.571*A(903) - P_VAR(219) = 0.32*A(68)+A(73)+0.16*A(97)+0.75*A(101)+0.791*A(134)+0.32*A(144)+A(147)+A(155)+0.11*A(353)+A(394)+A(792)& - &+0.32*A(796)+A(867) + &+0.6*A(650)+0.6*A(651)+0.2*A(652)+0.5*A(875)+0.429*A(877)+0.125*A(878)+0.438*A(902)+0.571*A(904) + P_VAR(219) = 0.32*A(68)+A(73)+0.16*A(97)+0.75*A(101)+0.791*A(134)+0.32*A(144)+A(147)+A(155)+0.11*A(353)+A(394)+A(793)& + &+0.32*A(797)+A(868) P_VAR(220) = 0 P_VAR(221) = A(362) P_VAR(222) = 0.19*A(68)+0.35*A(97)+0.25*A(100)+0.19*A(144)+A(150)+A(152)+0.44*A(353)+0.75*A(355)+A(356)+A(357)+0.53& &*A(358)+0.53*A(359)+0.289*A(365)+0.41*A(370)+0.464*A(372)+0.348*A(376)+0.464*A(378)+0.464*A(380)+0.149& - &*A(382)+0.285*A(383)+0.19*A(796)+A(858) - P_VAR(223) = A(312)+A(314)+A(320)+A(324)+A(328)+2*A(333)+A(846) + &*A(382)+0.285*A(383)+0.19*A(797)+A(859) + P_VAR(223) = A(312)+A(314)+A(320)+A(324)+A(328)+2*A(333)+A(847) P_VAR(224) = 0.068*A(431)+0.33*A(456)+0.19*A(458)+0.032*A(590) P_VAR(225) = 0.294*A(431)+0.67*A(456)+0.81*A(458)+0.08*A(590) P_VAR(226) = A(412)+0.5*A(414)+0.5*A(416)+0.55*A(422)+0.33*A(427)+0.19*A(429)+0.125*A(431)+0.125*A(438)+0.706*A(447)& - &+0.14*A(449)+0.054*A(534)+0.059*A(536)+0.335*A(570)+0.429*A(592)+0.75*A(593)+0.55*A(891)+0.5*A(908) + &+0.14*A(449)+0.054*A(534)+0.059*A(536)+0.335*A(570)+0.429*A(592)+0.75*A(593)+0.55*A(892)+0.5*A(909) P_VAR(227) = A(413)+0.5*A(414)+0.5*A(418)+0.55*A(426)+0.17*A(428)+0.09*A(430)+0.158*A(431)+0.165*A(439)+0.716*A(443)& - &+0.14*A(445)+0.004*A(534)+0.006*A(536)+0.41*A(573)+0.5*A(589)+0.571*A(592)+0.25*A(593)+0.55*A(894)+0.5& - &*A(900)+0.15*A(906)+0.5*A(908) + &+0.14*A(445)+0.004*A(534)+0.006*A(536)+0.41*A(573)+0.5*A(589)+0.571*A(592)+0.25*A(593)+0.55*A(895)+0.5& + &*A(901)+0.15*A(907)+0.5*A(909) P_VAR(228) = A(35)+0.5*A(99)+A(123)+A(151)+A(337)+0.3*A(399)+0.3*A(400)+0.3*A(406)+0.3*A(408)+0.085*A(427)+0.165& &*A(428)+0.355*A(431)+0.5*A(432)+0.018*A(440)+0.018*A(441)+0.52*A(461)+0.8*A(462)+0.545*A(548)+0.88*A(551)& &+0.449*A(553)+0.187*A(564)+A(565)+A(567)+0.05*A(570)+0.242*A(571)+0.083*A(573)+0.14*A(577)+0.7*A(588)+0.12& - &*A(617)+0.2*A(618)+0.6*A(653)+0.6*A(654)+0.2*A(655)+0.5*A(874)+0.47*A(875)+0.571*A(876)+0.125*A(877)+0.23& - &*A(878)+0.088*A(901)+0.429*A(903)+A(907) + &*A(617)+0.2*A(618)+0.6*A(653)+0.6*A(654)+0.2*A(655)+0.5*A(875)+0.47*A(876)+0.571*A(877)+0.125*A(878)+0.23& + &*A(879)+0.088*A(902)+0.429*A(904)+A(908) P_VAR(229) = A(523)+0.33*A(524)+0.037*A(594) P_VAR(230) = 0.12*A(115)+0.58*A(396)+0.5*A(548)+0.88*A(551)+A(604) - P_VAR(231) = A(668)+A(670)+A(671) + P_VAR(231) = A(669)+A(671)+A(672) P_VAR(232) = 0.294*A(447)+0.135*A(449)+A(451)+0.65*A(453)+0.52*A(461)+0.8*A(462)+0.459*A(488)+0.728*A(489)+0.551& &*A(497)+0.935*A(498)+0.242*A(503)+0.546*A(504)+0.34*A(534)+0.384*A(536)+0.11*A(545)+0.09*A(546)+0.36& - &*A(570)+0.758*A(571)+0.2*A(610)+A(612)+A(613)+A(615)+A(629)+0.9*A(651)+0.95*A(654)+0.53*A(875)+0.69*A(880)& - &+0.5*A(899)+0.088*A(901)+0.25*A(902)+0.429*A(903)+0.3*A(905)+0.35*A(906)+A(907) + &*A(570)+0.758*A(571)+0.2*A(610)+A(612)+A(613)+A(615)+A(629)+0.9*A(651)+0.95*A(654)+0.53*A(876)+0.69*A(881)& + &+0.5*A(900)+0.088*A(902)+0.25*A(903)+0.429*A(904)+0.3*A(906)+0.35*A(907)+A(908) P_VAR(233) = A(63)+0.05*A(68)+0.07*A(82)+0.03*A(97)+0.03*A(113)+0.07*A(129)+0.36*A(133)+0.05*A(144)+0.07*A(160)+A(185)& - &+A(299)+0.07*A(775)+0.06*A(778)+0.05*A(796) + &+A(299)+0.07*A(776)+0.06*A(779)+0.05*A(797) P_VAR(234) = A(351)+A(352) P_VAR(235) = 0.32*A(68)+0.5*A(82)+0.16*A(97)+0.22*A(113)+0.5*A(129)+0.36*A(132)+0.32*A(144)+0.5*A(160)+0.16*A(363)+0.5& - &*A(775)+0.425*A(778)+0.32*A(796) + &*A(776)+0.425*A(779)+0.32*A(797) P_VAR(236) = 0.4*A(485)+0.4*A(486)+0.07*A(509)+0.532*A(510)+0.861*A(511)+0.401*A(512)+0.034*A(513)+0.159*A(515)+0.159& - &*A(517)+0.159*A(520)+A(522)+A(531)+0.159*A(896)+0.228*A(899) + &*A(517)+0.159*A(520)+A(522)+A(531)+0.159*A(897)+0.228*A(900) P_VAR(237) = 0.6*A(486)+0.599*A(492)+A(493)+0.065*A(500)+0.142*A(501)+0.01*A(503)+0.028*A(504)+0.008*A(534)+0.015& - &*A(535)+0.014*A(536)+0.049*A(538)+0.161*A(541)+A(560)+0.438*A(572)+0.05*A(905) + &*A(535)+0.014*A(536)+0.049*A(538)+0.161*A(541)+A(560)+0.438*A(572)+0.05*A(906) P_VAR(238) = A(444)+A(448)+A(452)+0.482*A(488)+0.401*A(492)+0.418*A(497)+0.494*A(500)+0.621*A(503)+A(526)+A(527)+0.5& &*A(533)+0.234*A(534)+0.387*A(535)+0.565*A(544) P_VAR(239) = A(490)+A(494)+A(499)+A(502)+A(505)+A(519)+A(521)+A(537)+A(539)+0.18*A(546) P_VAR(240) = 0.465*A(506)+A(529) P_VAR(241) = 0.535*A(506)+A(530) - P_VAR(242) = 0.5*A(301)+A(397)+0.75*A(438)+0.03*A(440)+0.841*A(897) - P_VAR(243) = 0.5*A(301)+A(398)+0.51*A(439)+0.03*A(441)+0.159*A(897) + P_VAR(242) = 0.5*A(301)+A(397)+0.75*A(438)+0.03*A(440)+0.841*A(898) + P_VAR(243) = 0.5*A(301)+A(398)+0.51*A(439)+0.03*A(441)+0.159*A(898) P_VAR(244) = 0.177*A(396)+0.063*A(401)+A(405)+2*A(409)+A(411)+A(415)+A(420)+0.035*A(427)+0.23*A(429)+0.125*A(438)& &+A(473)+A(474)+0.479*A(507)+1.737*A(509)+0.544*A(510)+0.583*A(513)+0.903*A(514)+0.903*A(516)+0.904*A(518)& - &+0.04*A(617)+0.04*A(618)+A(883)+A(889)+A(892)+0.903*A(895)+0.05*A(899) + &+0.04*A(617)+0.04*A(618)+A(884)+A(890)+A(893)+0.903*A(896)+0.05*A(900) P_VAR(245) = A(556) P_VAR(246) = 0.16*A(86)+0.2*A(99)+0.65*A(128)+0.791*A(137)+0.058*A(365)+A(391)+0.5*A(432)+0.284*A(443)+0.135*A(445)& &+A(451)+0.65*A(453)+0.8*A(466)+0.52*A(468)+0.52*A(469)+0.8*A(471)+A(472)+0.459*A(488)+0.728*A(489)+0.441& &*A(500)+0.858*A(501)+0.033*A(503)+0.071*A(504)+0.042*A(534)+0.051*A(536)+0.77*A(555)+0.84*A(569)+0.507& - &*A(573)+0.488*A(575)+A(576)+0.86*A(577)+0.5*A(581)+A(582)+A(584)+0.7*A(585)+0.25*A(587)+A(860)+0.77*A(878)& - &+A(881)+0.5*A(899)+0.438*A(901)+0.25*A(902)+0.571*A(903)+0.45*A(905)+0.8*A(906) + &*A(573)+0.488*A(575)+A(576)+0.86*A(577)+0.5*A(581)+A(582)+A(584)+0.7*A(585)+0.25*A(587)+A(861)+0.77*A(879)& + &+A(882)+0.5*A(900)+0.438*A(902)+0.25*A(903)+0.571*A(904)+0.45*A(906)+0.8*A(907) P_VAR(247) = 0.79*A(363)+0.308*A(367)+0.308*A(368)+0.615*A(369)+0.416*A(396)+0.063*A(403)+A(407)+2*A(410)+A(411)& &+A(417)+A(424)+0.035*A(428)+0.14*A(430)+0.165*A(439)+A(475)+A(476)+0.048*A(507)+0.123*A(509)+0.019*A(510)& - &+0.028*A(513)+0.097*A(514)+0.097*A(516)+0.096*A(518)+A(884)+A(890)+A(893)+0.097*A(895)+0.005*A(899) + &+0.028*A(513)+0.097*A(514)+0.097*A(516)+0.096*A(518)+A(885)+A(891)+A(894)+0.097*A(896)+0.005*A(900) P_VAR(248) = A(34)+A(84)+A(183)+A(300) P_VAR(249) = A(93)+A(96)+0.62*A(358)+0.62*A(359)+0.42*A(363) - P_VAR(250) = A(79)+A(81)+A(83)+A(136)+0.33*A(650)+0.33*A(653)+0.15*A(778)+A(786) + P_VAR(250) = A(79)+A(81)+A(83)+A(136)+0.33*A(650)+0.33*A(653)+0.15*A(779)+A(787) P_VAR(251) = A(77)+0.5*A(646)+0.5*A(647) P_VAR(252) = A(67)+A(76)+0.15*A(98)+0.209*A(135)+0.3*A(148)+A(302)+0.44*A(370)+0.2*A(655) P_VAR(253) = A(62)+0.18*A(68)+0.27*A(82)+0.09*A(97)+0.12*A(113)+0.27*A(129)+0.209*A(134)+0.18*A(144)+0.27*A(160)& - &+A(298)+0.27*A(775)+0.23*A(778)+0.18*A(796) - P_VAR(254) = 0.46*A(363)+0.289*A(365)+0.192*A(367)+0.192*A(368)+0.385*A(369)+A(784) + &+A(298)+0.27*A(776)+0.23*A(779)+0.18*A(797) + P_VAR(254) = 0.46*A(363)+0.289*A(365)+0.192*A(367)+0.192*A(368)+0.385*A(369)+A(785) P_VAR(255) = A(64)+0.14*A(68)+0.57*A(70)+0.75*A(85)+0.09*A(86)+0.07*A(97)+0.54*A(98)+0.25*A(102)+A(104)+A(125)+A(127)& &+0.35*A(128)+0.64*A(133)+0.791*A(135)+0.13*A(144)+0.57*A(148)+A(153)+A(154)+0.43*A(353)+0.75*A(355)+A(356)& &+A(357)+0.65*A(358)+0.65*A(359)+0.491*A(365)+0.08*A(370)+1.24*A(372)+0.93*A(376)+1.24*A(378)+1.24*A(380)& - &+0.64*A(382)+1.21*A(383)+A(395)+1.2*A(652)+1.2*A(655)+A(789)+A(791)+A(793)+0.13*A(796)+A(856)+A(859)& - &+A(868) - P_VAR(256) = A(169)+A(176)+A(674)+A(701)+A(702)+A(703) + &+0.64*A(382)+1.21*A(383)+A(395)+1.2*A(652)+1.2*A(655)+A(790)+A(792)+A(794)+0.13*A(797)+A(857)+A(860)& + &+A(869) + P_VAR(256) = A(169)+A(176)+A(675)+A(702)+A(703)+A(704) P_VAR(257) = 0.95*A(53)+A(54)+A(56)+A(71)+0.93*A(72)+0.15*A(89)+0.15*A(90)+0.3*A(99)+0.5*A(100)+A(120)+A(122)+A(139)& &+A(145)+A(146)+A(182)+0.3*A(399)+0.3*A(406)+0.018*A(440)+0.38*A(548)+0.12*A(551)+0.04*A(553)+0.097*A(564)& &+A(568)+0.36*A(570)+0.758*A(571)+0.175*A(574)+0.087*A(575)+0.35*A(579)+0.3*A(588)+A(595)+A(596)+0.12& - &*A(772)+0.7*A(774)+A(776)+0.85*A(778)+A(783)+A(785)+A(787)+A(788)+A(851)+A(871)+A(872)+A(873)+0.5*A(874)& - &+0.53*A(875)+0.429*A(876)+0.125*A(877)+0.262*A(879)+1.01*A(880) + &*A(773)+0.7*A(775)+A(777)+0.85*A(779)+A(784)+A(786)+A(788)+A(789)+A(852)+A(872)+A(873)+A(874)+0.5*A(875)& + &+0.53*A(876)+0.429*A(877)+0.125*A(878)+0.262*A(880)+1.01*A(881) P_VAR(258) = A(36)+A(52)+0.05*A(53)+0.56*A(115)+0.505*A(116)+A(117)+2*A(119)+A(120)+2*A(121)+A(122)+0.5*A(124)+A(181)& &+A(207)+A(223)+A(262)+A(286)+A(287)+A(288)+0.14*A(358)+0.14*A(359)+0.14*A(363)+0.407*A(396)+0.6*A(399)+0.9& &*A(400)+0.6*A(406)+0.9*A(408)+A(412)+A(413)+A(414)+0.5*A(416)+0.5*A(418)+0.55*A(422)+0.55*A(426)+0.45& @@ -2817,18 +2819,18 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) &*A(472)+0.6*A(485)+0.6*A(486)+0.539*A(541)+0.33*A(542)+0.33*A(543)+0.18*A(548)+0.036*A(549)+0.12*A(551)& &+0.68*A(552)+0.77*A(555)+0.25*A(557)+0.75*A(564)+A(565)+2*A(568)+0.84*A(569)+0.507*A(573)+0.325*A(574)& &+0.488*A(575)+A(576)+0.86*A(577)+0.65*A(579)+0.25*A(587)+A(589)+0.888*A(590)+A(593)+A(599)+0.364*A(606)& - &+0.2*A(616)+0.27*A(617)+0.3*A(618)+0.25*A(650)+0.5*A(651)+0.25*A(653)+0.5*A(654)+A(763)+A(764)+0.88*A(772)& - &+A(773)+A(775)+A(777)+A(779)+2*A(780)+2*A(781)+A(782)+A(783)+A(784)+A(785)+A(787)+A(853)+A(857)+A(870)& - &+A(873)+0.5*A(874)+0.571*A(876)+0.875*A(877)+0.77*A(878)+A(881)+A(882)+0.888*A(887)+0.818*A(888)+A(889)& - &+A(890)+0.55*A(891)+0.55*A(894)+0.839*A(898)+A(900)+0.122*A(901)+A(904)+A(908)+A(910)+A(913) + &+0.2*A(616)+0.27*A(617)+0.3*A(618)+0.25*A(650)+0.5*A(651)+0.25*A(653)+0.5*A(654)+A(764)+A(765)+0.88*A(773)& + &+A(774)+A(776)+A(778)+A(780)+2*A(781)+2*A(782)+A(783)+A(784)+A(785)+A(786)+A(788)+A(854)+A(858)+A(871)& + &+A(874)+0.5*A(875)+0.571*A(877)+0.875*A(878)+0.77*A(879)+A(882)+A(883)+0.888*A(888)+0.818*A(889)+A(890)& + &+A(891)+0.55*A(892)+0.55*A(895)+0.839*A(899)+A(901)+0.122*A(902)+A(905)+A(909)+A(911)+A(914) P_VAR(259) = A(271) P_VAR(260) = A(37)+A(52)+A(54)+A(76)+A(83)+A(96)+A(121)+A(122)+A(140)+A(166)+A(389)+A(390)+0.32*A(552)+A(595)+0.742& - &*A(625)+0.5*A(627)+0.5*A(630)+A(632)+0.5*A(647)+0.5*A(663)+A(664)+2*A(667)+A(668)+2*A(669)+A(670)+A(671)& - &+A(674)+A(675)+A(676)+A(677)+A(678)+A(679)+A(680)+A(681)+A(682)+A(718)+A(723)+A(724)+A(725)+A(726) + &*A(625)+0.5*A(627)+0.5*A(630)+A(632)+0.5*A(647)+0.5*A(664)+A(665)+2*A(668)+A(669)+2*A(670)+A(671)+A(672)& + &+A(675)+A(676)+A(677)+A(678)+A(679)+A(680)+A(681)+A(682)+A(683)+A(719)+A(724)+A(725)+A(726)+A(727) P_VAR(261) = A(59)+A(61)+A(66)+0.32*A(68)+0.86*A(70)+0.93*A(72)+A(75)+0.5*A(86)+0.15*A(90)+0.75*A(94)+0.75*A(95)+0.16& &*A(97)+0.38*A(98)+0.5*A(100)+0.5*A(102)+A(103)+2*A(105)+2*A(106)+A(107)+A(108)+0.5*A(115)+A(126)+0.64& &*A(132)+0.32*A(144)+A(146)+0.75*A(148)+A(149)+A(156)+A(157)+A(158)+A(159)+A(293)+A(294)+A(296)+A(345)& - &+A(346)+A(347)+A(348)+A(349)+A(393)+A(790)+A(794)+A(795)+0.32*A(796)+A(866) + &+A(346)+A(347)+A(348)+A(349)+A(393)+A(791)+A(795)+A(796)+0.32*A(797)+A(867) P_VAR(262) = A(11)+A(12)+A(17)+A(26)+A(29)+2*A(30)+0.87*A(31)+A(33)+A(50)+0.05*A(53)+A(66)+0.57*A(70)+A(71)+A(75)+0.75& &*A(85)+1.25*A(86)+0.15*A(89)+0.75*A(94)+0.75*A(95)+0.75*A(97)+0.95*A(98)+0.5*A(99)+0.75*A(100)+0.75*A(101)& &+1.25*A(102)+0.5*A(115)+0.732*A(116)+A(126)+A(129)+A(130)+A(142)+A(143)+A(145)+0.39*A(148)+A(149)+A(164)& @@ -2842,20 +2844,20 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) &+0.527*A(507)+1.86*A(509)+0.563*A(510)+0.645*A(512)+1.577*A(513)+A(514)+A(516)+A(518)+0.126*A(534)+0.088& &*A(535)+0.249*A(536)+0.34*A(538)+0.6*A(548)+0.12*A(551)+0.241*A(553)+0.05*A(570)+0.242*A(571)+0.083*A(573)& &+0.5*A(574)+0.25*A(575)+0.14*A(577)+A(579)+A(585)+0.022*A(594)+0.5*A(597)+A(599)+A(604)+0.8*A(610)+2& - &*A(611)+A(622)+A(648)+A(649)+A(762)+0.9*A(779)+A(782)+A(785)+A(787)+A(788)+A(794)+A(849)+A(851)+A(857)& - &+A(865)+A(869)+A(870)+A(872)+A(873)+0.47*A(875)+0.23*A(878)+0.75*A(879)+A(883)+A(884)+A(892)+A(893)+A(895)& - &+0.055*A(899)+0.1*A(901)+0.55*A(905)+0.15*A(906) + &*A(611)+A(622)+A(648)+A(649)+A(662)+A(763)+0.9*A(780)+A(783)+A(786)+A(788)+A(789)+A(795)+A(850)+A(852)& + &+A(858)+A(866)+A(870)+A(871)+A(873)+A(874)+0.47*A(876)+0.23*A(879)+0.75*A(880)+A(884)+A(885)+A(893)+A(894)& + &+A(896)+0.055*A(900)+0.1*A(902)+0.55*A(906)+0.15*A(907) P_VAR(263) = A(25)+A(32)+A(57)+0.19*A(68)+A(78)+0.09*A(97)+0.28*A(115)+0.5*A(124)+A(125)+A(126)+2*A(141)+A(142)+A(144)& &+A(145)+A(146)+A(147)+A(148)+A(149)+A(156)+A(157)+A(160)+A(163)+A(164)+A(165)+A(166)+A(197)+A(228)+A(261)& &+A(291)+A(297)+A(335)+0.5*A(356)+0.5*A(368)+A(377)+0.5*A(378)+0.407*A(396)+A(514)+A(515)+0.325*A(574)& - &+0.162*A(575)+0.65*A(579)+0.5*A(598)+A(623)+0.88*A(772)+0.3*A(774)+A(776)+2*A(777)+0.15*A(778)+A(786)+0.18& - &*A(796)+A(797)+A(806)+A(807)+A(850)+0.488*A(879) - P_VAR(264) = A(326)+A(329)+A(718) - P_VAR(265) = A(308)+A(310)+A(315)+A(321)+A(322)+A(326)+A(327)+A(330)+A(331)+A(334)+A(335)+2*A(833)+A(834)+A(835)& - &+A(836)+A(837)+A(838)+A(839)+A(840)+A(841)+2*A(842)+A(843)+A(844)+A(847)+A(848) + &+0.162*A(575)+0.65*A(579)+0.5*A(598)+A(623)+0.88*A(773)+0.3*A(775)+A(777)+2*A(778)+0.15*A(779)+A(787)+0.18& + &*A(797)+A(798)+A(807)+A(808)+A(851)+0.488*A(880) + P_VAR(264) = A(326)+A(329)+A(719) + P_VAR(265) = A(308)+A(310)+A(315)+A(321)+A(322)+A(326)+A(327)+A(330)+A(331)+A(334)+A(335)+2*A(834)+A(835)+A(836)& + &+A(837)+A(838)+A(839)+A(840)+A(841)+A(842)+2*A(843)+A(844)+A(845)+A(848)+A(849) P_VAR(266) = A(310)+A(311) - P_VAR(267) = A(243)+A(247)+A(248)+A(251)+A(252)+A(269)+A(676) - P_VAR(268) = A(758)+A(852) + P_VAR(267) = A(243)+A(247)+A(248)+A(251)+A(252)+A(269)+A(677) + P_VAR(268) = A(759)+A(853) P_VAR(269) = 0.15*A(113)+A(200)+0.13*A(574)+0.13*A(581)+0.13*A(598)+0.15*A(633) P_VAR(270) = A(13)+A(22)+A(26)+A(40)+A(42)+A(43)+A(44)+2*A(45)+A(46)+A(48)+A(51)+A(56)+A(57)+A(59)+A(61)+A(64)+A(66)& &+A(68)+2*A(70)+A(71)+0.93*A(72)+A(73)+2*A(75)+A(81)+A(82)+A(98)+A(102)+A(148)+A(149)+A(153)+A(154)+2& @@ -2867,22 +2869,22 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) &+A(528)+0.058*A(534)+1.065*A(536)+A(538)+A(540)+A(542)+0.565*A(544)+1.11*A(545)+0.09*A(546)+0.31*A(553)& &+A(558)+A(561)+A(571)+A(577)+A(579)+0.5*A(581)+2*A(582)+A(583)+2*A(584)+0.7*A(585)+A(586)+A(593)+0.022& &*A(594)+A(595)+0.995*A(608)+A(609)+A(613)+A(620)+A(621)+A(634)+A(637)+A(638)+A(640)+A(641)+0.5*A(646)& - &+A(647)+A(765)+A(768)+A(769)+A(771)+0.7*A(774)+A(789)+A(796)+A(802)+A(803)+A(814)+A(816)+A(838)+A(850)& - &+A(857)+A(858)+A(859)+A(860)+A(862)+A(864)+A(865)+A(866)+A(867)+A(868)+A(872)+0.7*A(880)+A(881)+A(891)& - &+A(892)+A(893)+A(894)+A(895)+A(897)+A(898)+1.555*A(899)+0.3*A(905)+A(906)+A(907)+A(908) + &+A(647)+A(662)+A(766)+A(769)+A(770)+A(772)+0.7*A(775)+A(790)+A(797)+A(803)+A(804)+A(815)+A(817)+A(839)& + &+A(851)+A(858)+A(859)+A(860)+A(861)+A(863)+A(865)+A(866)+A(867)+A(868)+A(869)+A(873)+0.7*A(881)+A(882)& + &+A(892)+A(893)+A(894)+A(895)+A(896)+A(898)+A(899)+1.555*A(900)+0.3*A(906)+A(907)+A(908)+A(909) P_VAR(271) = 0.09*A(224)+A(246)+A(261)+A(262)+A(264)+A(265)+A(266)+2*A(286)+A(287)+A(288)+A(289)+A(291)+A(292)+A(295)& - &+A(296)+A(297)+A(298)+A(299)+A(300)+A(301)+A(302)+A(303)+A(693) - P_VAR(272) = A(170)+A(181)+A(182)+A(183)+A(184)+A(185)+0.2*A(225)+A(304)+A(700) + &+A(296)+A(297)+A(298)+A(299)+A(300)+A(301)+A(302)+A(303)+A(694) + P_VAR(272) = A(170)+A(181)+A(182)+A(183)+A(184)+A(185)+0.2*A(225)+A(304)+A(701) P_VAR(273) = A(18)+A(20)+A(21)+A(25)+A(32)+A(33)+A(34)+A(35)+A(36)+A(38)+A(40)+A(43)+A(49)+A(53)+A(58)+A(77)+A(78)& &+A(79)+A(84)+A(93)+A(171)+A(190)+A(202)+A(217)+A(249)+A(250)+A(253)+A(256)+A(257)+A(258)+A(259)+A(260)& - &+A(289)+A(327)+A(328)+A(335)+A(662)+A(689)+A(690)+A(691)+A(692)+A(694)+A(695)+A(696)+A(697) + &+A(289)+A(327)+A(328)+A(335)+A(663)+A(690)+A(691)+A(692)+A(693)+A(695)+A(696)+A(697)+A(698) P_VAR(274) = A(168)+A(177)+A(180)+0.15*A(225)+0.44*A(228)+0.95*A(229)+0.68*A(230)+0.31*A(234)+0.41*A(235)+0.75*A(242)& - &+A(802) - P_VAR(275) = A(704) - P_VAR(276) = A(705) + &+A(803) + P_VAR(275) = A(705) + P_VAR(276) = A(706) P_VAR(277) = 0.24*A(224)+0.75*A(226)+0.86*A(227)+0.55*A(231)+0.88*A(232)+0.86*A(233)+0.33*A(234)+0.69*A(236)+0.74& &*A(237)+0.79*A(238)+0.75*A(239)+0.75*A(240)+0.3*A(241)+A(250)+A(263)+A(267)+2*A(278)+2*A(280)+A(284)& - &+A(290)+A(293)+A(294)+A(812)+A(816) + &+A(290)+A(293)+A(294)+A(813)+A(817) P_VAR(278) = A(2) P_VAR(279) = A(15)+A(22)+A(33)+A(35)+A(44)+0.15*A(89)+0.15*A(90)+0.44*A(113)+0.36*A(115)+0.227*A(116)+A(117)+A(124)& &+0.791*A(131)+0.64*A(132)+0.64*A(133)+0.791*A(134)+0.791*A(135)+0.791*A(137)+A(138)+A(177)+A(178)+2*A(191)& @@ -2897,12 +2899,12 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) &+A(557)+A(559)+A(562)+0.285*A(564)+A(565)+A(567)+0.665*A(570)+0.59*A(573)+0.5*A(574)+0.585*A(575)+A(576)& &+0.5*A(581)+0.7*A(588)+0.5*A(589)+0.444*A(590)+A(591)+A(592)+0.3*A(594)+0.5*A(597)+0.5*A(598)+A(599)& &+A(600)+A(601)+0.636*A(606)+A(615)+A(619)+A(629)+0.2*A(633)+0.25*A(650)+0.1*A(651)+0.25*A(653)+0.1*A(654)& - &+2*A(761)+A(762)+A(765)+A(766)+A(767)+0.07*A(779)+A(789)+A(790)+A(791)+A(792)+A(793)+A(794)+A(795)+A(797)& - &+A(800)+A(817)+A(834)+A(851)+2*A(854)+A(856)+2*A(869)+A(870)+A(875)+A(876)+1.75*A(877)+A(878)+0.75*A(879)& - &+0.01*A(880)+A(882)+A(883)+A(884)+A(885)+A(886)+1.662*A(887)+1.637*A(888)+A(889)+A(890)+0.55*A(891)+0.55& - &*A(894)+0.67*A(895)+A(896)+0.645*A(898)+0.5*A(900)+A(901)+1.25*A(902)+A(903)+0.546*A(904)+A(905)+0.3& - &*A(906)+A(907)+A(909)+A(911) - P_VAR(280) = A(51)+2*A(196)+A(209)+A(219)+2*A(306)+A(603)+A(657)+A(659)+A(661)+A(760)+A(766)+A(770)+A(837) + &+2*A(762)+A(763)+A(766)+A(767)+A(768)+0.07*A(780)+A(790)+A(791)+A(792)+A(793)+A(794)+A(795)+A(796)+A(798)& + &+A(801)+A(818)+A(835)+A(852)+2*A(855)+A(857)+2*A(870)+A(871)+A(876)+A(877)+1.75*A(878)+A(879)+0.75*A(880)& + &+0.01*A(881)+A(883)+A(884)+A(885)+A(886)+A(887)+1.662*A(888)+1.637*A(889)+A(890)+A(891)+0.55*A(892)+0.55& + &*A(895)+0.67*A(896)+A(897)+0.645*A(899)+0.5*A(901)+A(902)+1.25*A(903)+A(904)+0.546*A(905)+A(906)+0.3& + &*A(907)+A(908)+A(910)+A(912) + P_VAR(280) = A(51)+2*A(196)+A(209)+A(219)+2*A(306)+A(603)+A(657)+A(659)+A(661)+A(761)+A(767)+A(771)+A(838) P_VAR(281) = A(14)+A(17)+A(21)+A(24)+A(26)+2*A(30)+1.74*A(31)+A(36)+A(42)+A(46)+A(49)+A(50)+A(52)+0.05*A(53)+A(59)& &+A(61)+A(64)+A(66)+0.27*A(68)+A(73)+A(85)+A(86)+A(94)+A(95)+0.64*A(97)+0.5*A(98)+0.3*A(99)+0.5*A(100)& &+A(101)+0.5*A(102)+A(103)+A(104)+2*A(105)+2*A(106)+0.28*A(115)+0.773*A(116)+A(119)+A(121)+A(123)+A(125)& @@ -2921,33 +2923,33 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) &+0.305*A(570)+0.242*A(571)+0.507*A(573)+0.86*A(577)+0.7*A(585)+0.5*A(589)+0.444*A(590)+0.62*A(594)+0.5& &*A(597)+A(602)+0.364*A(606)+0.6*A(610)+A(611)+A(612)+0.54*A(616)+0.19*A(617)+0.15*A(618)+A(619)+A(620)& &+A(621)+2*A(622)+A(623)+0.8*A(624)+0.727*A(626)+A(629)+A(648)+A(649)+0.33*A(650)+0.1*A(651)+0.2*A(652)& - &+0.33*A(653)+0.1*A(654)+0.2*A(655)+A(656)+A(658)+A(660)+A(762)+A(763)+A(768)+A(772)+A(775)+1.73*A(779)+2& - &*A(780)+A(783)+A(785)+A(787)+A(788)+A(789)+A(790)+A(791)+A(792)+A(793)+A(794)+A(795)+0.27*A(796)+A(849)& - &+A(856)+A(857)+A(865)+A(866)+A(867)+A(868)+A(870)+A(871)+A(873)+1.5*A(874)+0.47*A(875)+0.571*A(876)+0.125& - &*A(877)+A(878)+0.29*A(880)+A(881)+A(882)+A(883)+A(884)+A(885)+A(886)+0.112*A(887)+0.182*A(888)+A(889)& - &+A(890)+0.45*A(891)+A(892)+A(893)+0.45*A(894)+0.33*A(895)+0.159*A(896)+0.161*A(898)+0.228*A(899)+1.5& - &*A(900)+A(901)+0.75*A(902)+A(903)+1.454*A(904)+0.7*A(905)+0.7*A(906)+A(908)+A(910)+A(913) + &+0.33*A(653)+0.1*A(654)+0.2*A(655)+A(656)+A(658)+A(660)+A(662)+A(763)+A(764)+A(769)+A(773)+A(776)+1.73& + &*A(780)+2*A(781)+A(784)+A(786)+A(788)+A(789)+A(790)+A(791)+A(792)+A(793)+A(794)+A(795)+A(796)+0.27*A(797)& + &+A(850)+A(857)+A(858)+A(866)+A(867)+A(868)+A(869)+A(871)+A(872)+A(874)+1.5*A(875)+0.47*A(876)+0.571*A(877)& + &+0.125*A(878)+A(879)+0.29*A(881)+A(882)+A(883)+A(884)+A(885)+A(886)+A(887)+0.112*A(888)+0.182*A(889)& + &+A(890)+A(891)+0.45*A(892)+A(893)+A(894)+0.45*A(895)+0.33*A(896)+0.159*A(897)+0.161*A(899)+0.228*A(900)& + &+1.5*A(901)+A(902)+0.75*A(903)+A(904)+1.454*A(905)+0.7*A(906)+0.7*A(907)+A(909)+A(911)+A(914) P_VAR(282) = A(5) P_VAR(283) = A(16)+A(38)+A(48)+A(175)+A(212)+A(252)+A(284)+A(285)+A(313)+A(340)+A(347)+A(391)+0.69*A(553)+A(587)& - &+A(639)+A(767)+A(771)+0.3*A(774)+A(801)+A(815)+A(839)+A(849) + &+A(639)+A(768)+A(772)+0.3*A(775)+A(802)+A(816)+A(840)+A(850) P_VAR(284) = A(18)+A(192)+A(193)+2*A(206)+A(217)+A(219)+A(220)+A(221)+0.09*A(224)+0.2*A(225)+0.25*A(226)+0.14*A(227)& &+0.05*A(229)+0.32*A(230)+0.28*A(231)+0.12*A(232)+0.14*A(233)+0.36*A(234)+0.59*A(235)+0.31*A(236)+0.26& - &*A(237)+0.21*A(238)+0.25*A(239)+0.25*A(240)+0.7*A(241)+0.25*A(242)+A(757)+2*A(759)+A(760)+A(769)+A(799)& - &+A(811)+A(812)+A(835)+A(855) + &*A(237)+0.21*A(238)+0.25*A(239)+0.25*A(240)+0.7*A(241)+0.25*A(242)+A(758)+2*A(760)+A(761)+A(770)+A(800)& + &+A(812)+A(813)+A(836)+A(856) P_VAR(285) = 0.67*A(224)+0.75*A(226)+2.58*A(227)+0.17*A(231)+1.76*A(232)+0.86*A(233)+0.31*A(234)+0.69*A(236)+0.79& &*A(238)+1.5*A(239)+0.75*A(240)+A(243)+A(245)+A(249)+A(253)+2*A(254)+3*A(255)+3*A(256)+A(257)+2*A(258)& - &+A(259)+2*A(260)+A(268)+A(270)+A(273)+A(274)+A(276)+2*A(287)+3*A(288)+A(322)+A(807)+2*A(808)+A(809)+2& - &*A(810)+A(811)+A(813)+A(814)+A(815)+A(817)+3*A(818)+4*A(819)+3*A(820)+2*A(821)+3*A(822)+2*A(823)+A(824)+2& - &*A(825)+2*A(826)+A(827)+A(828)+A(830)+A(832)+A(843)+A(848) - P_VAR(286) = A(11)-A(12)+A(164)+0.75*A(165)+A(166)+A(207)+A(208)+A(853)+A(854) + &+A(259)+2*A(260)+A(268)+A(270)+A(273)+A(274)+A(276)+2*A(287)+3*A(288)+A(322)+A(808)+2*A(809)+A(810)+2& + &*A(811)+A(812)+A(814)+A(815)+A(816)+A(818)+3*A(819)+4*A(820)+3*A(821)+2*A(822)+3*A(823)+2*A(824)+A(825)+2& + &*A(826)+2*A(827)+A(828)+A(829)+A(831)+A(833)+A(844)+A(849) + P_VAR(286) = A(11)-A(12)+A(164)+0.75*A(165)+A(166)+A(207)+A(208)+A(854)+A(855) P_VAR(287) = A(171)+2*A(172)+A(174)+A(176)+A(178)+A(179)+3*A(188)+2*A(189)+A(190)+A(222)+0.65*A(225)+0.56*A(228)+0.95& - &*A(229)+1.36*A(230)+0.33*A(234)+0.75*A(242)+A(281)+A(282)+A(314)+A(315)+A(316)+2*A(798)+A(799)+A(800)& - &+A(801)+A(803)+3*A(804)+2*A(805)+A(806)+A(809)+A(829)+A(830)+2*A(831)+A(844)+A(847) + &*A(229)+1.36*A(230)+0.33*A(234)+0.75*A(242)+A(281)+A(282)+A(314)+A(315)+A(316)+2*A(799)+A(800)+A(801)& + &+A(802)+A(804)+3*A(805)+2*A(806)+A(807)+A(810)+A(830)+A(831)+2*A(832)+A(845)+A(848) ! Destruction function - D_VAR(1) = RCT(842) - D_VAR(2) = RCT(844) - D_VAR(3) = RCT(843) + D_VAR(1) = RCT(843) + D_VAR(2) = RCT(845) + D_VAR(3) = RCT(844) D_VAR(4) = 0 D_VAR(5) = 0 D_VAR(6) = 0 @@ -2967,7 +2969,7 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) D_VAR(20) = 0 D_VAR(21) = RCT(658)*V(281)+RCT(659)*V(280) D_VAR(22) = 0 - D_VAR(23) = RCT(138)*V(279)+RCT(736) + D_VAR(23) = RCT(138)*V(279)+RCT(737) D_VAR(24) = 0 D_VAR(25) = 0 D_VAR(26) = RCT(660)*V(281)+RCT(661)*V(280) @@ -2982,180 +2984,180 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) D_VAR(35) = 0 D_VAR(36) = 0 D_VAR(37) = 0 - D_VAR(38) = RCT(319)+RCT(715)+RCT(716)+RCT(717)+RCT(845) - D_VAR(39) = RCT(256)*V(279)+RCT(818) - D_VAR(40) = RCT(333)+RCT(334)+RCT(709)+RCT(710)+RCT(711)+RCT(840) + D_VAR(38) = RCT(319)+RCT(716)+RCT(717)+RCT(718)+RCT(846) + D_VAR(39) = RCT(256)*V(279)+RCT(819) + D_VAR(40) = RCT(333)+RCT(334)+RCT(710)+RCT(711)+RCT(712)+RCT(841) D_VAR(41) = RCT(390) - D_VAR(42) = RCT(240)*V(268)+RCT(823) - D_VAR(43) = RCT(335)*V(279)+RCT(841) - D_VAR(44) = RCT(235)*V(268)+RCT(829) - D_VAR(45) = RCT(242)*V(268)+RCT(831) - D_VAR(46) = RCT(241)*V(268)+RCT(824) - D_VAR(47) = RCT(712)+RCT(713)+RCT(714)+RCT(846) - D_VAR(48) = RCT(239)*V(268)+RCT(822) + D_VAR(42) = RCT(240)*V(268)+RCT(824) + D_VAR(43) = RCT(335)*V(279)+RCT(842) + D_VAR(44) = RCT(235)*V(268)+RCT(830) + D_VAR(45) = RCT(242)*V(268)+RCT(832) + D_VAR(46) = RCT(241)*V(268)+RCT(825) + D_VAR(47) = RCT(713)+RCT(714)+RCT(715)+RCT(847) + D_VAR(48) = RCT(239)*V(268)+RCT(823) D_VAR(49) = RCT(81) - D_VAR(50) = RCT(803) - D_VAR(51) = RCT(227)*V(268)+RCT(819) - D_VAR(52) = RCT(232)*V(268)+RCT(820) - D_VAR(53) = RCT(233)*V(268)+RCT(821) + D_VAR(50) = RCT(804) + D_VAR(51) = RCT(227)*V(268)+RCT(820) + D_VAR(52) = RCT(232)*V(268)+RCT(821) + D_VAR(53) = RCT(233)*V(268)+RCT(822) D_VAR(54) = RCT(606)*V(279) - D_VAR(55) = RCT(234)*V(268)+RCT(830) - D_VAR(56) = RCT(306)*2*V(56)+RCT(837) - D_VAR(57) = RCT(195)*V(268)+RCT(196)*V(268)+RCT(852) - D_VAR(58) = RCT(863)+RCT(864) - D_VAR(59) = RCT(861)+RCT(862) + D_VAR(55) = RCT(234)*V(268)+RCT(831) + D_VAR(56) = RCT(306)*2*V(56)+RCT(838) + D_VAR(57) = RCT(195)*V(268)+RCT(196)*V(268)+RCT(853) + D_VAR(58) = RCT(864)+RCT(865) + D_VAR(59) = RCT(862)+RCT(863) D_VAR(60) = RCT(616)*V(279) D_VAR(61) = RCT(219)*F(3)+RCT(220)*V(280)+RCT(221)*V(270) - D_VAR(62) = RCT(207)*V(284)+RCT(208)*V(279)+RCT(853) - D_VAR(63) = RCT(56)+RCT(774) + D_VAR(62) = RCT(207)*V(284)+RCT(208)*V(279)+RCT(854) + D_VAR(63) = RCT(56)+RCT(775) D_VAR(64) = RCT(613)*V(279) - D_VAR(65) = RCT(327)*V(279)+RCT(706)+RCT(707)+RCT(708) - D_VAR(66) = RCT(139)*V(279)+RCT(797) - D_VAR(67) = RCT(636)*V(279)+RCT(911) + D_VAR(65) = RCT(327)*V(279)+RCT(707)+RCT(708)+RCT(709) + D_VAR(66) = RCT(139)*V(279)+RCT(798) + D_VAR(67) = RCT(636)*V(279)+RCT(912) D_VAR(68) = RCT(255)*V(279)+RCT(288)*V(285) - D_VAR(69) = RCT(847) - D_VAR(70) = RCT(189)*V(279)+RCT(229)*V(268)+RCT(805) - D_VAR(71) = RCT(163)+RCT(849)+RCT(850) - D_VAR(72) = RCT(248)*V(279)+RCT(278)+RCT(813) - D_VAR(73) = RCT(254)*V(279)+RCT(287)*V(285)+RCT(808) - D_VAR(74) = RCT(188)*V(279)+RCT(230)*V(268)+RCT(804) + D_VAR(69) = RCT(848) + D_VAR(70) = RCT(189)*V(279)+RCT(229)*V(268)+RCT(806) + D_VAR(71) = RCT(163)+RCT(850)+RCT(851) + D_VAR(72) = RCT(248)*V(279)+RCT(278)+RCT(814) + D_VAR(73) = RCT(254)*V(279)+RCT(287)*V(285)+RCT(809) + D_VAR(74) = RCT(188)*V(279)+RCT(230)*V(268)+RCT(805) D_VAR(75) = RCT(604)*V(269)+RCT(605)*V(279) D_VAR(76) = RCT(617)*V(279) D_VAR(77) = RCT(618)*V(279) - D_VAR(78) = RCT(238)*V(268)+RCT(260)*V(279)+RCT(825) - D_VAR(79) = RCT(236)*V(268)+RCT(258)*V(279)+RCT(826) - D_VAR(80) = RCT(237)*V(268)+RCT(259)*V(279)+RCT(827) - D_VAR(81) = RCT(231)*V(268)+RCT(257)*V(279)+RCT(828) + D_VAR(78) = RCT(238)*V(268)+RCT(260)*V(279)+RCT(826) + D_VAR(79) = RCT(236)*V(268)+RCT(258)*V(279)+RCT(827) + D_VAR(80) = RCT(237)*V(268)+RCT(259)*V(279)+RCT(828) + D_VAR(81) = RCT(231)*V(268)+RCT(257)*V(279)+RCT(829) D_VAR(82) = RCT(164)*V(279)+RCT(165)*V(279)+RCT(166)*V(283) - D_VAR(83) = RCT(597)*V(279)+RCT(869) - D_VAR(84) = RCT(588)*V(279)+RCT(743) + D_VAR(83) = RCT(597)*V(279)+RCT(870) + D_VAR(84) = RCT(588)*V(279)+RCT(744) D_VAR(85) = RCT(11)+RCT(12)*V(279) - D_VAR(86) = RCT(394)*V(279)+RCT(867) - D_VAR(87) = RCT(392)*V(279)+RCT(865) - D_VAR(88) = RCT(393)*V(279)+RCT(866) - D_VAR(89) = RCT(395)*V(279)+RCT(868) - D_VAR(90) = RCT(317)*V(223)+RCT(318)*2*V(90)+RCT(320)*V(280)+RCT(836) - D_VAR(91) = RCT(135)*V(279)+RCT(793) - D_VAR(92) = RCT(133)*V(279)+RCT(791) - D_VAR(93) = RCT(134)*V(279)+RCT(792) - D_VAR(94) = RCT(136)*V(279)+RCT(795) + D_VAR(86) = RCT(394)*V(279)+RCT(868) + D_VAR(87) = RCT(392)*V(279)+RCT(866) + D_VAR(88) = RCT(393)*V(279)+RCT(867) + D_VAR(89) = RCT(395)*V(279)+RCT(869) + D_VAR(90) = RCT(317)*V(223)+RCT(318)*2*V(90)+RCT(320)*V(280)+RCT(837) + D_VAR(91) = RCT(135)*V(279)+RCT(794) + D_VAR(92) = RCT(133)*V(279)+RCT(792) + D_VAR(93) = RCT(134)*V(279)+RCT(793) + D_VAR(94) = RCT(136)*V(279)+RCT(796) D_VAR(95) = RCT(637)+RCT(638)*V(279) D_VAR(96) = RCT(389) - D_VAR(97) = RCT(190)*V(279)+RCT(228)*V(268)+RCT(806) - D_VAR(98) = RCT(848) - D_VAR(99) = RCT(631)*V(279)+RCT(632)*V(283)+RCT(910) - D_VAR(100) = RCT(253)*V(279)+RCT(286)*V(285)+RCT(807) - D_VAR(101) = RCT(42)+RCT(43)*V(279)+RCT(767)+RCT(768) + D_VAR(97) = RCT(190)*V(279)+RCT(228)*V(268)+RCT(807) + D_VAR(98) = RCT(849) + D_VAR(99) = RCT(631)*V(279)+RCT(632)*V(283)+RCT(911) + D_VAR(100) = RCT(253)*V(279)+RCT(286)*V(285)+RCT(808) + D_VAR(101) = RCT(42)+RCT(43)*V(279)+RCT(768)+RCT(769) D_VAR(102) = RCT(611)+RCT(612)*F(3) - D_VAR(103) = RCT(276)+RCT(279)*V(285)+RCT(280)*V(285)+RCT(832) - D_VAR(104) = RCT(596)*V(279)+RCT(742)+RCT(871) - D_VAR(105) = RCT(643)*V(279)+RCT(912) + D_VAR(103) = RCT(276)+RCT(279)*V(285)+RCT(280)*V(285)+RCT(833) + D_VAR(104) = RCT(596)*V(279)+RCT(743)+RCT(872) + D_VAR(105) = RCT(643)*V(279)+RCT(913) D_VAR(106) = RCT(433)*V(279) - D_VAR(107) = RCT(247)*V(279)+RCT(812) - D_VAR(108) = RCT(854) - D_VAR(109) = RCT(132)*V(279)+RCT(790) + D_VAR(107) = RCT(247)*V(279)+RCT(813) + D_VAR(108) = RCT(855) + D_VAR(109) = RCT(132)*V(279)+RCT(791) D_VAR(110) = RCT(626)*V(279)+RCT(627)*V(283) - D_VAR(111) = RCT(137)*V(279)+RCT(794) - D_VAR(112) = RCT(131)*V(279)+RCT(789) + D_VAR(111) = RCT(137)*V(279)+RCT(795) + D_VAR(112) = RCT(131)*V(279)+RCT(790) D_VAR(113) = RCT(67)*V(279)+RCT(76)*V(283)+RCT(302)*V(285) - D_VAR(114) = RCT(614)*V(279)+RCT(615)*V(279)+RCT(909) - D_VAR(115) = RCT(454)*V(279)+RCT(735) + D_VAR(114) = RCT(614)*V(279)+RCT(615)*V(279)+RCT(910) + D_VAR(115) = RCT(454)*V(279)+RCT(736) D_VAR(116) = RCT(566)*V(279) D_VAR(117) = RCT(475)*V(280)+RCT(476)*V(281) D_VAR(118) = RCT(624)*V(279)+RCT(625)*V(283) - D_VAR(119) = RCT(370)*V(279)+RCT(856) + D_VAR(119) = RCT(370)*V(279)+RCT(857) D_VAR(120) = RCT(473)*V(280)+RCT(474)*V(281) D_VAR(121) = RCT(62)*V(279)+RCT(63)*V(279)+RCT(185)*V(287)+RCT(298)*V(285)+RCT(299)*V(285) - D_VAR(122) = RCT(590)*V(279)+RCT(904) + D_VAR(122) = RCT(590)*V(279)+RCT(905) D_VAR(123) = RCT(522)*F(3)+RCT(523) - D_VAR(124) = RCT(176)*V(279)+RCT(798) - D_VAR(125) = RCT(429)*V(279)+RCT(889) - D_VAR(126) = RCT(430)*V(279)+RCT(890) - D_VAR(127) = RCT(455)*V(279)+RCT(456)*V(279)+RCT(733) - D_VAR(128) = RCT(457)*V(279)+RCT(458)*V(279)+RCT(734) + D_VAR(124) = RCT(176)*V(279)+RCT(799) + D_VAR(125) = RCT(429)*V(279)+RCT(890) + D_VAR(126) = RCT(430)*V(279)+RCT(891) + D_VAR(127) = RCT(455)*V(279)+RCT(456)*V(279)+RCT(734) + D_VAR(128) = RCT(457)*V(279)+RCT(458)*V(279)+RCT(735) D_VAR(129) = RCT(103)*V(279)+RCT(296)*V(285) D_VAR(130) = RCT(569)*V(279) - D_VAR(131) = RCT(391)*V(279)+RCT(741)+RCT(860) - D_VAR(132) = RCT(809) - D_VAR(133) = RCT(575)*V(279)+RCT(879) - D_VAR(134) = RCT(32)*V(279)+RCT(33)*V(279)+RCT(291)*V(285)+RCT(762) + D_VAR(131) = RCT(391)*V(279)+RCT(742)+RCT(861) + D_VAR(132) = RCT(810) + D_VAR(133) = RCT(575)*V(279)+RCT(880) + D_VAR(134) = RCT(32)*V(279)+RCT(33)*V(279)+RCT(291)*V(285)+RCT(763) D_VAR(135) = RCT(4)*V(269)*V(286)+RCT(5)*V(271)+RCT(6)*V(260) - D_VAR(136) = RCT(477)*V(279)+RCT(478)*V(279)+RCT(745)+RCT(892) - D_VAR(137) = RCT(479)*V(279)+RCT(480)*V(279)+RCT(746)+RCT(893) + D_VAR(136) = RCT(477)*V(279)+RCT(478)*V(279)+RCT(746)+RCT(893) + D_VAR(137) = RCT(479)*V(279)+RCT(480)*V(279)+RCT(747)+RCT(894) D_VAR(138) = RCT(628)*V(279)+RCT(629)*V(269)+RCT(630)*V(283) - D_VAR(139) = RCT(310)*V(283)+RCT(326)*V(279)+RCT(833) - D_VAR(140) = RCT(591)*V(279)+RCT(902) + D_VAR(139) = RCT(310)*V(283)+RCT(326)*V(279)+RCT(834) + D_VAR(140) = RCT(591)*V(279)+RCT(903) D_VAR(141) = RCT(558)*V(280)+RCT(559)*V(281)+RCT(560)*V(270) D_VAR(142) = RCT(561)*V(280)+RCT(562)*V(281)+RCT(563)*V(270) D_VAR(143) = RCT(545)*V(280)+RCT(546)*V(281) D_VAR(144) = RCT(1)*V(269)*V(286)+RCT(2)*V(271)+RCT(3)*V(260) D_VAR(145) = RCT(653)*V(279)+RCT(654)*V(269)+RCT(655) D_VAR(146) = RCT(542)*V(280)+RCT(543)*V(281) - D_VAR(147) = RCT(525)*V(279)+RCT(527)*V(279)+RCT(528)*V(279)+RCT(530)*V(279)+RCT(531)*V(279)+RCT(749)+RCT(896)& - &+RCT(897) + D_VAR(147) = RCT(525)*V(279)+RCT(527)*V(279)+RCT(528)*V(279)+RCT(530)*V(279)+RCT(531)*V(279)+RCT(750)+RCT(897)& + &+RCT(898) D_VAR(148) = RCT(491)+RCT(492)*V(281)+RCT(493)*V(280)+RCT(494)*V(280) D_VAR(149) = RCT(586)+RCT(587)*V(279) D_VAR(150) = RCT(351)*V(279)+RCT(358)*V(269)+RCT(360)*V(283) D_VAR(151) = RCT(352)*V(279)+RCT(359)*V(269)+RCT(361)*V(283) - D_VAR(152) = RCT(565)*V(279)+RCT(876) - D_VAR(153) = RCT(434)*V(279)+RCT(435)*V(279)+RCT(438)*V(279)+RCT(883) + D_VAR(152) = RCT(565)*V(279)+RCT(877) + D_VAR(153) = RCT(434)*V(279)+RCT(435)*V(279)+RCT(438)*V(279)+RCT(884) D_VAR(154) = RCT(104)*V(279) D_VAR(155) = RCT(650)*V(279)+RCT(651)*V(269)+RCT(652) D_VAR(156) = RCT(644)*V(269)+RCT(645)*V(270) D_VAR(157) = RCT(58)*V(279)+RCT(140)*V(283)+RCT(184)*V(287)+RCT(292)*V(285) - D_VAR(158) = RCT(436)*V(279)+RCT(437)*V(279)+RCT(439)*V(279)+RCT(884) - D_VAR(159) = RCT(592)*V(279)+RCT(903) - D_VAR(160) = RCT(564)*V(279)+RCT(877) - D_VAR(161) = RCT(441)*V(279)+RCT(886) + D_VAR(158) = RCT(436)*V(279)+RCT(437)*V(279)+RCT(439)*V(279)+RCT(885) + D_VAR(159) = RCT(592)*V(279)+RCT(904) + D_VAR(160) = RCT(564)*V(279)+RCT(878) + D_VAR(161) = RCT(441)*V(279)+RCT(887) D_VAR(162) = RCT(487)+RCT(488)*V(281)+RCT(489)*V(280)+RCT(490)*V(280) D_VAR(163) = RCT(496)+RCT(500)*V(281)+RCT(501)*V(280)+RCT(502)*V(280) D_VAR(164) = RCT(495)+RCT(497)*V(281)+RCT(498)*V(280)+RCT(499)*V(280) D_VAR(165) = RCT(362)*V(279)+RCT(363)*V(269)+RCT(364)*V(283) - D_VAR(166) = RCT(568)*V(279)+RCT(873) - D_VAR(167) = RCT(440)*V(279)+RCT(885) - D_VAR(168) = RCT(599)*V(279)+RCT(600)*V(279)+RCT(870) - D_VAR(169) = RCT(48)+RCT(667)*V(273)+RCT(668)*V(271)+RCT(669)+RCT(670)*V(278)+RCT(671)*V(282)+RCT(771) - D_VAR(170) = RCT(432)*V(279)+RCT(748) - D_VAR(171) = RCT(557)*V(279)+RCT(754)+RCT(882) - D_VAR(172) = RCT(175)*V(287)+RCT(674)*V(273)+RCT(675)*V(271)+RCT(801)+RCT(802) + D_VAR(166) = RCT(568)*V(279)+RCT(874) + D_VAR(167) = RCT(440)*V(279)+RCT(886) + D_VAR(168) = RCT(599)*V(279)+RCT(600)*V(279)+RCT(871) + D_VAR(169) = RCT(48)+RCT(668)*V(273)+RCT(669)*V(271)+RCT(670)+RCT(671)*V(278)+RCT(672)*V(282)+RCT(772) + D_VAR(170) = RCT(432)*V(279)+RCT(749) + D_VAR(171) = RCT(557)*V(279)+RCT(755)+RCT(883) + D_VAR(172) = RCT(175)*V(287)+RCT(675)*V(273)+RCT(676)*V(271)+RCT(802)+RCT(803) D_VAR(173) = RCT(214)*F(3)+RCT(215)*V(269)+RCT(216)*V(281)+RCT(217)*V(281)+RCT(218)*V(281) - D_VAR(174) = RCT(384)*V(279)+RCT(388)*V(283)+RCT(739)+RCT(858) + D_VAR(174) = RCT(384)*V(279)+RCT(388)*V(283)+RCT(740)+RCT(859) D_VAR(175) = RCT(607)*V(281)+RCT(608)*V(280)+RCT(609)*V(283)+RCT(610)*V(263) D_VAR(176) = RCT(633)*V(281)+RCT(634)*V(280)+RCT(635)*V(270)+RCT(649)*V(263) - D_VAR(177) = RCT(524)*V(279)+RCT(526)*V(279)+RCT(529)*V(279)+RCT(750)+RCT(895) + D_VAR(177) = RCT(524)*V(279)+RCT(526)*V(279)+RCT(529)*V(279)+RCT(751)+RCT(896) D_VAR(178) = RCT(619)*V(281)+RCT(620)*V(280)+RCT(621)*V(283)+RCT(622)*V(263)+RCT(623)*V(257) D_VAR(179) = RCT(442)+RCT(443)*V(280)+RCT(444)*V(280)+RCT(445)*V(281) D_VAR(180) = RCT(446)+RCT(447)*V(280)+RCT(448)*V(280)+RCT(449)*V(281) - D_VAR(181) = RCT(567)*V(279)+RCT(874) - D_VAR(182) = RCT(427)*V(279)+RCT(887) + D_VAR(181) = RCT(567)*V(279)+RCT(875) + D_VAR(182) = RCT(427)*V(279)+RCT(888) D_VAR(183) = RCT(450)+RCT(451)*V(280)+RCT(452)*V(280)+RCT(453)*V(281) - D_VAR(184) = RCT(428)*V(279)+RCT(888) + D_VAR(184) = RCT(428)*V(279)+RCT(889) D_VAR(185) = RCT(532)+RCT(535)*V(281)+RCT(538)*V(280)+RCT(539)*V(280) D_VAR(186) = RCT(25)*V(279)+RCT(197)*V(268)+RCT(198)*V(268)+RCT(199)*V(268)+RCT(261)*V(285) D_VAR(187) = RCT(639)*V(270)+RCT(640)*V(280)+RCT(641)*V(283)+RCT(642)*V(281)+RCT(648)*V(263) - D_VAR(188) = RCT(40)*V(279)+RCT(766) + D_VAR(188) = RCT(40)*V(279)+RCT(767) D_VAR(189) = RCT(431)*V(279) D_VAR(190) = RCT(469)*V(281)+RCT(470)*V(280)+RCT(471)*V(280)+RCT(472) D_VAR(191) = RCT(345)*V(258)+RCT(346)*V(280)+RCT(347)*V(270)+RCT(348)*V(286)+RCT(349)*V(273)+RCT(350)*V(273) - D_VAR(192) = RCT(226)*V(268)+RCT(243)*V(279)+RCT(810) - D_VAR(193) = RCT(34)*V(279)+RCT(35)*V(279)+RCT(851) - D_VAR(194) = RCT(337)*V(279)+RCT(872) - D_VAR(195) = RCT(556)*V(279)+RCT(755)+RCT(881) - D_VAR(196) = RCT(385)*V(279)+RCT(386)*V(269)+RCT(387)*V(283)+RCT(740)+RCT(859) + D_VAR(192) = RCT(226)*V(268)+RCT(243)*V(279)+RCT(811) + D_VAR(193) = RCT(34)*V(279)+RCT(35)*V(279)+RCT(852) + D_VAR(194) = RCT(337)*V(279)+RCT(873) + D_VAR(195) = RCT(556)*V(279)+RCT(756)+RCT(882) + D_VAR(196) = RCT(385)*V(279)+RCT(386)*V(269)+RCT(387)*V(283)+RCT(741)+RCT(860) D_VAR(197) = RCT(75)*V(280)+RCT(92)*V(281)+RCT(102)*V(263)+RCT(149)*V(257)+RCT(154)*V(257) - D_VAR(198) = RCT(77)*V(279)+RCT(738)+RCT(796) - D_VAR(199) = RCT(308)+RCT(309)*2*V(199)+RCT(719)*V(275)+RCT(720)*V(276)+RCT(721)*V(278)+RCT(722)*V(282)+RCT(838) + D_VAR(198) = RCT(77)*V(279)+RCT(739)+RCT(797) + D_VAR(199) = RCT(308)+RCT(309)*2*V(199)+RCT(720)*V(275)+RCT(721)*V(276)+RCT(722)*V(278)+RCT(723)*V(282)+RCT(839) D_VAR(200) = RCT(570)*V(281)+RCT(571)*V(280)+RCT(572)*V(280) D_VAR(201) = RCT(573)*V(281)+RCT(576)+RCT(577)*V(280)+RCT(578)*V(280) - D_VAR(202) = RCT(589)*V(279)+RCT(900)+RCT(901) + D_VAR(202) = RCT(589)*V(279)+RCT(901)+RCT(902) D_VAR(203) = RCT(574)*V(281)+RCT(579)*V(280)+RCT(580)*V(270) D_VAR(204) = RCT(66)*V(280)+RCT(86)*V(263)+RCT(112)*V(281)+RCT(126)*V(257)+RCT(128)*V(257) - D_VAR(205) = RCT(336)*V(279)+RCT(595)*V(283)+RCT(857) - D_VAR(206) = RCT(646)*V(279)+RCT(647)*V(283)+RCT(756)+RCT(913) + D_VAR(205) = RCT(336)*V(279)+RCT(595)*V(283)+RCT(858) + D_VAR(206) = RCT(646)*V(279)+RCT(647)*V(283)+RCT(757)+RCT(914) D_VAR(207) = RCT(49)*V(279)+RCT(289)*V(285) - D_VAR(208) = RCT(7)*V(286)+RCT(21)*V(279)+RCT(213)*V(284)+RCT(265)*V(285)+RCT(761) - D_VAR(209) = RCT(593)*V(279)+RCT(752)+RCT(907)+RCT(908) - D_VAR(210) = RCT(483)*V(279)+RCT(484)*V(279)+RCT(486)*V(279)+RCT(747)+RCT(894) + D_VAR(208) = RCT(7)*V(286)+RCT(21)*V(279)+RCT(213)*V(284)+RCT(265)*V(285)+RCT(762) + D_VAR(209) = RCT(593)*V(279)+RCT(753)+RCT(908)+RCT(909) + D_VAR(210) = RCT(483)*V(279)+RCT(484)*V(279)+RCT(486)*V(279)+RCT(748)+RCT(895) D_VAR(211) = RCT(371)*V(280)+RCT(373)*V(281)+RCT(375)*V(263)+RCT(377)*V(257)+RCT(379)*V(283)+RCT(381)*2*V(211)& &+RCT(382)*V(212) D_VAR(212) = RCT(372)*V(280)+RCT(374)*V(281)+RCT(376)*V(263)+RCT(378)*V(257)+RCT(380)*V(283)+RCT(382)*V(211)+RCT(383)& @@ -3164,35 +3166,35 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) &*V(257)+RCT(158)*V(257)+RCT(293)*V(285) D_VAR(214) = RCT(50)*V(279)+RCT(295)*V(285) D_VAR(215) = RCT(78)*V(279)+RCT(297)*V(285) - D_VAR(216) = RCT(481)*V(279)+RCT(482)*V(279)+RCT(485)*V(279)+RCT(744)+RCT(891) + D_VAR(216) = RCT(481)*V(279)+RCT(482)*V(279)+RCT(485)*V(279)+RCT(745)+RCT(892) D_VAR(217) = RCT(533)+RCT(534)*V(281)+RCT(536)*V(280)+RCT(537)*V(280) - D_VAR(218) = RCT(119)*V(279)+RCT(121)*V(283)+RCT(731)+RCT(780)+RCT(781)+RCT(782) - D_VAR(219) = RCT(84)*V(279)+RCT(183)*V(287)+RCT(300)*V(285)+RCT(776)+RCT(777) + D_VAR(218) = RCT(119)*V(279)+RCT(121)*V(283)+RCT(732)+RCT(781)+RCT(782)+RCT(783) + D_VAR(219) = RCT(84)*V(279)+RCT(183)*V(287)+RCT(300)*V(285)+RCT(777)+RCT(778) D_VAR(220) = RCT(301)*V(285)+RCT(396)*V(269)+RCT(397)*V(279)+RCT(398)*V(279)+RCT(399)*V(279)+RCT(400)*V(279)+RCT(506)& &*V(283) D_VAR(221) = RCT(365)*V(280)+RCT(366)*V(281)+RCT(367)*V(263)+RCT(368)*V(257)+RCT(369)*V(283) - D_VAR(222) = RCT(93)*V(279)+RCT(96)*V(283)+RCT(778) + D_VAR(222) = RCT(93)*V(279)+RCT(96)*V(283)+RCT(779) D_VAR(223) = RCT(311)*V(270)+RCT(315)*V(274)+RCT(316)*V(274)+RCT(317)*V(90)+RCT(321)*V(277)+RCT(322)*V(277)+RCT(323)& - &*V(277)+RCT(329)*V(281)+RCT(330)*V(280)+RCT(331)*2*V(223)+RCT(332)*2*V(223)+RCT(835) + &*V(277)+RCT(329)*V(281)+RCT(330)*V(280)+RCT(331)*2*V(223)+RCT(332)*2*V(223)+RCT(836) D_VAR(224) = RCT(464)+RCT(465)+RCT(466)*V(280)+RCT(467)*V(280)+RCT(468)*V(281) D_VAR(225) = RCT(459)+RCT(460)+RCT(461)*V(281)+RCT(462)*V(280)+RCT(463)*V(280) - D_VAR(226) = RCT(554)*V(279)+RCT(875) - D_VAR(227) = RCT(555)*V(279)+RCT(878) - D_VAR(228) = RCT(120)*V(279)+RCT(122)*V(283)+RCT(732)+RCT(783) + D_VAR(226) = RCT(554)*V(279)+RCT(876) + D_VAR(227) = RCT(555)*V(279)+RCT(879) + D_VAR(228) = RCT(120)*V(279)+RCT(122)*V(283)+RCT(733)+RCT(784) D_VAR(229) = RCT(503)*V(281)+RCT(504)*V(280)+RCT(505)*V(280) D_VAR(230) = RCT(338)*V(258)+RCT(339)*V(280)+RCT(340)*V(270)+RCT(341)*V(273)+RCT(342)*V(273)*V(273)+RCT(343)*V(269)& &+RCT(344)*V(286) - D_VAR(231) = RCT(251)*V(279)+RCT(683)*V(278)+RCT(684)*V(282)+RCT(685)*V(271)+RCT(686)*V(275)+RCT(687)*V(276)+RCT(688)& - &*V(272)+RCT(814) - D_VAR(232) = RCT(116)*V(279)+RCT(117)*V(279)+RCT(779) + D_VAR(231) = RCT(251)*V(279)+RCT(684)*V(278)+RCT(685)*V(282)+RCT(686)*V(271)+RCT(687)*V(275)+RCT(688)*V(276)+RCT(689)& + &*V(272)+RCT(815) + D_VAR(232) = RCT(116)*V(279)+RCT(117)*V(279)+RCT(780) D_VAR(233) = RCT(64)*V(280)+RCT(65)*V(280)+RCT(85)*V(263)+RCT(111)*V(281)+RCT(125)*V(257)+RCT(127)*V(257) D_VAR(234) = RCT(353)*V(280)+RCT(354)*V(281)+RCT(355)*V(263)+RCT(356)*V(257)+RCT(357)*V(283) D_VAR(235) = RCT(61)*V(280)+RCT(95)*V(263)+RCT(106)*2*V(235)+RCT(108)*2*V(235)+RCT(110)*V(281)+RCT(157)*V(257)& &+RCT(159)*V(257)+RCT(294)*V(285) - D_VAR(236) = RCT(540)*V(279)+RCT(541)*V(279)+RCT(898) - D_VAR(237) = RCT(553)*V(279)+RCT(737)+RCT(880) - D_VAR(238) = RCT(594)*V(279)+RCT(753)+RCT(905)+RCT(906) - D_VAR(239) = RCT(544)*V(279)+RCT(751)+RCT(899) + D_VAR(236) = RCT(540)*V(279)+RCT(541)*V(279)+RCT(899) + D_VAR(237) = RCT(553)*V(279)+RCT(738)+RCT(881) + D_VAR(238) = RCT(594)*V(279)+RCT(754)+RCT(906)+RCT(907) + D_VAR(239) = RCT(544)*V(279)+RCT(752)+RCT(900) D_VAR(240) = RCT(507)*V(281)+RCT(509)*2*V(240)+RCT(510)*V(241)+RCT(513)*V(263)+RCT(514)*V(257)+RCT(516)*V(283)& &+RCT(518)*V(280)+RCT(519)*V(280) D_VAR(241) = RCT(508)*V(281)+RCT(510)*V(240)+RCT(511)*2*V(241)+RCT(512)*V(263)+RCT(515)*V(257)+RCT(517)*V(283)& @@ -3203,10 +3205,10 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) D_VAR(243) = RCT(403)*V(281)+RCT(404)*V(281)+RCT(407)+RCT(408)+RCT(410)*2*V(243)+RCT(411)*V(242)+RCT(413)*2*V(243)& &+RCT(414)*V(242)+RCT(417)*V(263)+RCT(418)*V(263)+RCT(423)*V(280)+RCT(424)*V(280)+RCT(425)*V(280)+RCT(426)& &*V(280) - D_VAR(244) = RCT(547)*V(279)+RCT(548)*V(269)+RCT(784)+RCT(785)+RCT(786) + D_VAR(244) = RCT(547)*V(279)+RCT(548)*V(269)+RCT(785)+RCT(786)+RCT(787) D_VAR(245) = RCT(581)*V(281)+RCT(582)*V(280)+RCT(583)*V(270)+RCT(584)*V(283)+RCT(585)*V(263) - D_VAR(246) = RCT(123)*V(279)+RCT(124)*V(279)+RCT(788) - D_VAR(247) = RCT(549)*V(279)+RCT(550)*V(279)+RCT(551)*V(269)+RCT(552)*V(283)+RCT(787) + D_VAR(246) = RCT(123)*V(279)+RCT(124)*V(279)+RCT(789) + D_VAR(247) = RCT(549)*V(279)+RCT(550)*V(279)+RCT(551)*V(269)+RCT(552)*V(283)+RCT(788) D_VAR(248) = RCT(71)*V(280)+RCT(89)*V(281)+RCT(99)*V(263)+RCT(145)*V(257)+RCT(151)*V(257) D_VAR(249) = RCT(72)*V(280)+RCT(90)*V(281)+RCT(100)*V(263)+RCT(146)*V(257)+RCT(152)*V(257) D_VAR(250) = RCT(80)*V(270)+RCT(82)*V(280)+RCT(113)*V(281)+RCT(129)*V(263)+RCT(130)*V(263)+RCT(160)*V(257) @@ -3214,9 +3216,9 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) D_VAR(252) = RCT(68)*V(280)+RCT(69)*V(280)+RCT(87)*V(281)+RCT(97)*V(263)+RCT(144)*V(257)+RCT(150)*V(257) D_VAR(253) = RCT(73)*V(280)+RCT(74)*V(280)+RCT(91)*V(281)+RCT(101)*V(263)+RCT(147)*V(257)+RCT(155)*V(257) D_VAR(254) = RCT(114)*V(279)+RCT(115)*V(269)+RCT(118)*V(283)+RCT(303)*V(285)+RCT(304)*V(287) - D_VAR(255) = RCT(79)*V(279)+RCT(83)*V(283)+RCT(775) - D_VAR(256) = RCT(177)*V(284)+RCT(694)*V(272)+RCT(695)*V(271)+RCT(696)*V(278)+RCT(697)*V(282)+RCT(698)*V(275)+RCT(699)& - &*V(276)+RCT(700)*V(286)+RCT(800) + D_VAR(255) = RCT(79)*V(279)+RCT(83)*V(283)+RCT(776) + D_VAR(256) = RCT(177)*V(284)+RCT(695)*V(272)+RCT(696)*V(271)+RCT(697)*V(278)+RCT(698)*V(282)+RCT(699)*V(275)+RCT(700)& + &*V(276)+RCT(701)*V(286)+RCT(801) D_VAR(257) = RCT(55)*V(270)+RCT(57)*V(280)+RCT(125)*V(233)+RCT(126)*V(204)+RCT(127)*V(233)+RCT(128)*V(204)+RCT(141)*2& &*V(257)+RCT(142)*V(263)+RCT(143)*V(263)+RCT(144)*V(252)+RCT(145)*V(248)+RCT(146)*V(249)+RCT(147)*V(253)& &+RCT(148)*V(251)+RCT(149)*V(197)+RCT(150)*V(252)+RCT(151)*V(248)+RCT(152)*V(249)+RCT(153)*V(251)+RCT(154)& @@ -3224,23 +3226,24 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) &+RCT(356)*V(234)+RCT(368)*V(221)+RCT(377)*V(211)+RCT(378)*V(212)+RCT(514)*V(240)+RCT(515)*V(241)+RCT(598)& &*V(281)+RCT(623)*V(178) D_VAR(258) = RCT(24)*V(279)+RCT(338)*V(230)+RCT(345)*V(191) - D_VAR(259) = RCT(252)*V(279)+RCT(284)*V(284)+RCT(285)*V(285)+RCT(676)*V(273)+RCT(677)*V(271)+RCT(678)*V(272)+RCT(679)& - &*V(275)+RCT(680)*V(276)+RCT(681)*V(278)+RCT(682)*V(282)+RCT(815)+RCT(816) - D_VAR(260) = RCT(3)*V(144)+RCT(6)*V(135)+RCT(38)*V(279)+RCT(765) - D_VAR(261) = RCT(53)*V(279)+RCT(54)*V(283)+RCT(182)*V(287)+RCT(772)+RCT(773) - D_VAR(262) = RCT(10)*V(286)+RCT(36)*V(279)+RCT(52)*V(283)+RCT(181)*V(287)+RCT(223)*V(284)+RCT(262)*V(285)+RCT(763)& - &+RCT(764) + D_VAR(259) = RCT(252)*V(279)+RCT(284)*V(284)+RCT(285)*V(285)+RCT(677)*V(273)+RCT(678)*V(271)+RCT(679)*V(272)+RCT(680)& + &*V(275)+RCT(681)*V(276)+RCT(682)*V(278)+RCT(683)*V(282)+RCT(816)+RCT(817) + D_VAR(260) = RCT(3)*V(144)+RCT(6)*V(135)+RCT(38)*V(279)+RCT(766) + D_VAR(261) = RCT(53)*V(279)+RCT(54)*V(283)+RCT(182)*V(287)+RCT(773)+RCT(774) + D_VAR(262) = RCT(10)*V(286)+RCT(36)*V(279)+RCT(52)*V(283)+RCT(181)*V(287)+RCT(223)*V(284)+RCT(262)*V(285)+RCT(764)& + &+RCT(765) D_VAR(263) = RCT(17)*V(269)+RCT(26)*V(280)+RCT(27)*V(280)+RCT(28)*V(281)+RCT(29)*2*V(263)+RCT(30)*2*V(263)+RCT(31)& &*V(279)+RCT(85)*V(233)+RCT(86)*V(204)+RCT(94)*V(213)+RCT(95)*V(235)+RCT(97)*V(252)+RCT(98)*V(251)+RCT(99)& &*V(248)+RCT(100)*V(249)+RCT(101)*V(253)+RCT(102)*V(197)+RCT(129)*V(250)+RCT(130)*V(250)+RCT(142)*V(257)& &+RCT(143)*V(257)+RCT(162)*V(270)+RCT(244)*V(277)+RCT(290)*V(285)+RCT(355)*V(234)+RCT(367)*V(221)+RCT(375)& &*V(211)+RCT(376)*V(212)+RCT(415)*V(242)+RCT(416)*V(242)+RCT(417)*V(243)+RCT(418)*V(243)+RCT(512)*V(241)& - &+RCT(513)*V(240)+RCT(585)*V(245)+RCT(610)*V(175)+RCT(622)*V(178)+RCT(648)*V(187)+RCT(649)*V(176) - D_VAR(264) = RCT(328)*V(279)+RCT(727)*V(275)+RCT(728)*V(276)+RCT(729)*V(278)+RCT(730)*V(282)+RCT(834) + &+RCT(513)*V(240)+RCT(585)*V(245)+RCT(610)*V(175)+RCT(622)*V(178)+RCT(648)*V(187)+RCT(649)*V(176)+RCT(662)& + &*V(283) + D_VAR(264) = RCT(328)*V(279)+RCT(728)*V(275)+RCT(729)*V(276)+RCT(730)*V(278)+RCT(731)*V(282)+RCT(835) D_VAR(265) = RCT(305)*V(280)+RCT(307)*V(270)+RCT(313)*V(266)+RCT(314)*V(274)+RCT(324)*V(269)+RCT(325)*V(281) - D_VAR(266) = RCT(312)+RCT(313)*V(265)+RCT(718)*V(273)+RCT(723)*V(275)+RCT(724)*V(276)+RCT(725)*V(278)+RCT(726)*V(282)& - &+RCT(839) - D_VAR(267) = RCT(250)*V(279)+RCT(689)*V(271)+RCT(690)*V(272)+RCT(691)*V(278)+RCT(692)*V(282)+RCT(693)*V(286)+RCT(817) + D_VAR(266) = RCT(312)+RCT(313)*V(265)+RCT(719)*V(273)+RCT(724)*V(275)+RCT(725)*V(276)+RCT(726)*V(278)+RCT(727)*V(282)& + &+RCT(840) + D_VAR(267) = RCT(250)*V(279)+RCT(690)*V(271)+RCT(691)*V(272)+RCT(692)*V(278)+RCT(693)*V(282)+RCT(694)*V(286)+RCT(818) D_VAR(268) = RCT(191)*V(273)+RCT(192)*F(2)+RCT(193)*F(3)+RCT(194)*F(1)+RCT(195)*V(57)+RCT(196)*V(57)+RCT(197)*V(186)& &+RCT(198)*V(186)+RCT(199)*V(186)+RCT(205)*V(269)+RCT(206)*V(269)+RCT(224)*V(271)+RCT(225)*V(272)+RCT(226)& &*V(192)+RCT(227)*V(51)+RCT(228)*V(97)+RCT(229)*V(70)+RCT(230)*V(74)+RCT(231)*V(81)+RCT(232)*V(52)+RCT(233)& @@ -3250,30 +3253,30 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) &+RCT(16)*V(270)+RCT(17)*V(263)+RCT(115)*V(254)+RCT(168)*V(287)+RCT(201)*V(284)+RCT(205)*V(268)+RCT(206)& &*V(268)+RCT(215)*V(173)+RCT(263)*V(285)+RCT(324)*V(265)+RCT(343)*V(230)+RCT(358)*V(150)+RCT(359)*V(151)& &+RCT(363)*V(165)+RCT(386)*V(196)+RCT(396)*V(220)+RCT(548)*V(244)+RCT(551)*V(247)+RCT(604)*V(75)+RCT(629)& - &*V(138)+RCT(644)*V(156)+RCT(651)*V(155)+RCT(654)*V(145)+RCT(701)*V(272)+RCT(702)*V(275)+RCT(703)*V(276)& - &+RCT(757)+RCT(758) + &*V(138)+RCT(644)*V(156)+RCT(651)*V(155)+RCT(654)*V(145)+RCT(702)*V(272)+RCT(703)*V(275)+RCT(704)*V(276)& + &+RCT(758)+RCT(759) D_VAR(270) = RCT(16)*V(269)+RCT(37)*V(279)+RCT(41)*V(281)+RCT(47)*V(283)+RCT(51)*V(283)+RCT(55)*V(257)+RCT(80)*V(250)& &+RCT(162)*V(263)+RCT(186)*V(287)+RCT(187)*V(274)+RCT(209)*V(284)+RCT(212)*V(284)+RCT(221)*V(61)+RCT(271)& &*V(277)+RCT(307)*V(265)+RCT(311)*V(223)+RCT(340)*V(230)+RCT(347)*V(191)+RCT(560)*V(141)+RCT(563)*V(142)& - &+RCT(580)*V(203)+RCT(583)*V(245)+RCT(635)*V(176)+RCT(639)*V(187)+RCT(645)*V(156)+RCT(663)+RCT(760) - D_VAR(271) = RCT(2)*V(144)+RCT(5)*V(135)+RCT(224)*V(268)+RCT(249)*V(279)+RCT(668)*V(169)+RCT(675)*V(172)+RCT(677)& - &*V(259)+RCT(685)*V(231)+RCT(689)*V(267)+RCT(695)*V(256) - D_VAR(272) = RCT(171)*V(279)+RCT(178)*V(284)+RCT(225)*V(268)+RCT(678)*V(259)+RCT(688)*V(231)+RCT(690)*V(267)+RCT(694)& - &*V(256)+RCT(701)*V(269)+RCT(704)+RCT(705) - D_VAR(273) = RCT(191)*V(268)+RCT(341)*V(230)+RCT(342)*2*V(230)*V(273)+RCT(349)*V(191)+RCT(350)*V(191)+RCT(667)*V(169)& - &+RCT(674)*V(172)+RCT(676)*V(259)+RCT(718)*V(266) + &+RCT(580)*V(203)+RCT(583)*V(245)+RCT(635)*V(176)+RCT(639)*V(187)+RCT(645)*V(156)+RCT(664)+RCT(761) + D_VAR(271) = RCT(2)*V(144)+RCT(5)*V(135)+RCT(224)*V(268)+RCT(249)*V(279)+RCT(669)*V(169)+RCT(676)*V(172)+RCT(678)& + &*V(259)+RCT(686)*V(231)+RCT(690)*V(267)+RCT(696)*V(256) + D_VAR(272) = RCT(171)*V(279)+RCT(178)*V(284)+RCT(225)*V(268)+RCT(679)*V(259)+RCT(689)*V(231)+RCT(691)*V(267)+RCT(695)& + &*V(256)+RCT(702)*V(269)+RCT(705)+RCT(706) + D_VAR(273) = RCT(191)*V(268)+RCT(341)*V(230)+RCT(342)*2*V(230)*V(273)+RCT(349)*V(191)+RCT(350)*V(191)+RCT(668)*V(169)& + &+RCT(675)*V(172)+RCT(677)*V(259)+RCT(719)*V(266) D_VAR(274) = RCT(169)*V(281)+RCT(172)*2*V(274)+RCT(173)*2*V(274)+RCT(174)*V(280)+RCT(179)*V(279)+RCT(187)*V(270)& &+RCT(222)*V(284)+RCT(281)*V(277)+RCT(282)*V(277)+RCT(283)*V(277)+RCT(314)*V(265)+RCT(315)*V(223)+RCT(316)& - &*V(223)+RCT(799) - D_VAR(275) = RCT(679)*V(259)+RCT(686)*V(231)+RCT(698)*V(256)+RCT(702)*V(269)+RCT(719)*V(199)+RCT(723)*V(266)+RCT(727)& + &*V(223)+RCT(800) + D_VAR(275) = RCT(680)*V(259)+RCT(687)*V(231)+RCT(699)*V(256)+RCT(703)*V(269)+RCT(720)*V(199)+RCT(724)*V(266)+RCT(728)& &*V(264) - D_VAR(276) = RCT(680)*V(259)+RCT(687)*V(231)+RCT(699)*V(256)+RCT(703)*V(269)+RCT(720)*V(199)+RCT(724)*V(266)+RCT(728)& + D_VAR(276) = RCT(681)*V(259)+RCT(688)*V(231)+RCT(700)*V(256)+RCT(704)*V(269)+RCT(721)*V(199)+RCT(725)*V(266)+RCT(729)& &*V(264) D_VAR(277) = RCT(244)*V(263)+RCT(245)*V(279)+RCT(246)*V(279)+RCT(268)*V(284)+RCT(269)*V(281)+RCT(270)*V(280)+RCT(271)& &*V(270)+RCT(272)*2*V(277)+RCT(273)*2*V(277)+RCT(274)*2*V(277)+RCT(277)*2*V(277)+RCT(281)*V(274)+RCT(282)& - &*V(274)+RCT(283)*V(274)+RCT(321)*V(223)+RCT(322)*V(223)+RCT(323)*V(223)+RCT(811) - D_VAR(278) = RCT(670)*V(169)+RCT(672)*V(279)+RCT(681)*V(259)+RCT(683)*V(231)+RCT(691)*V(267)+RCT(696)*V(256)+RCT(721)& - &*V(199)+RCT(725)*V(266)+RCT(729)*V(264) + &*V(274)+RCT(283)*V(274)+RCT(321)*V(223)+RCT(322)*V(223)+RCT(323)*V(223)+RCT(812) + D_VAR(278) = RCT(671)*V(169)+RCT(673)*V(279)+RCT(682)*V(259)+RCT(684)*V(231)+RCT(692)*V(267)+RCT(697)*V(256)+RCT(722)& + &*V(199)+RCT(726)*V(266)+RCT(730)*V(264) D_VAR(279) = RCT(12)*V(85)+RCT(14)*V(269)+RCT(18)*2*V(279)+RCT(19)*2*V(279)+RCT(20)*V(281)+RCT(21)*V(208)+RCT(24)& &*V(258)+RCT(25)*V(186)+RCT(31)*V(263)+RCT(32)*V(134)+RCT(33)*V(134)+RCT(34)*V(193)+RCT(35)*V(193)+RCT(36)& &*V(262)+RCT(37)*V(270)+RCT(38)*V(260)+RCT(39)*V(280)+RCT(40)*V(188)+RCT(43)*V(101)+RCT(46)*V(283)+RCT(49)& @@ -3302,7 +3305,7 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) &*V(104)+RCT(597)*V(83)+RCT(599)*V(168)+RCT(600)*V(168)+RCT(601)*V(18)+RCT(605)*V(75)+RCT(606)*V(54)& &+RCT(613)*V(64)+RCT(614)*V(114)+RCT(615)*V(114)+RCT(616)*V(60)+RCT(617)*V(76)+RCT(618)*V(77)+RCT(624)& &*V(118)+RCT(626)*V(110)+RCT(628)*V(138)+RCT(631)*V(99)+RCT(636)*V(67)+RCT(638)*V(95)+RCT(643)*V(105)& - &+RCT(646)*V(206)+RCT(650)*V(155)+RCT(653)*V(145)+RCT(672)*V(278)+RCT(673)*V(282) + &+RCT(646)*V(206)+RCT(650)*V(155)+RCT(653)*V(145)+RCT(673)*V(278)+RCT(674)*V(282) D_VAR(280) = RCT(13)*V(269)+RCT(22)*V(281)+RCT(26)*V(263)+RCT(27)*V(263)+RCT(39)*V(279)+RCT(45)*V(283)+RCT(57)*V(257)& &+RCT(59)*V(213)+RCT(60)*V(213)+RCT(61)*V(235)+RCT(64)*V(233)+RCT(65)*V(233)+RCT(66)*V(204)+RCT(68)*V(252)& &+RCT(69)*V(252)+RCT(70)*V(251)+RCT(71)*V(248)+RCT(72)*V(249)+RCT(73)*V(253)+RCT(74)*V(253)+RCT(75)*V(197)& @@ -3317,7 +3320,7 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) &+RCT(538)*V(185)+RCT(539)*V(185)+RCT(542)*V(146)+RCT(545)*V(143)+RCT(558)*V(141)+RCT(561)*V(142)+RCT(571)& &*V(200)+RCT(572)*V(200)+RCT(577)*V(201)+RCT(578)*V(201)+RCT(579)*V(203)+RCT(582)*V(245)+RCT(603)*V(17)& &+RCT(608)*V(175)+RCT(620)*V(178)+RCT(634)*V(176)+RCT(640)*V(187)+RCT(657)*V(12)+RCT(659)*V(21)+RCT(661)& - &*V(26)+RCT(855) + &*V(26)+RCT(856) D_VAR(281) = RCT(15)*V(269)+RCT(20)*V(279)+RCT(22)*V(280)+RCT(23)*2*V(281)+RCT(28)*V(263)+RCT(41)*V(270)+RCT(44)& &*V(283)+RCT(87)*V(252)+RCT(88)*V(251)+RCT(89)*V(248)+RCT(90)*V(249)+RCT(91)*V(253)+RCT(92)*V(197)+RCT(109)& &*V(213)+RCT(110)*V(235)+RCT(111)*V(233)+RCT(112)*V(204)+RCT(113)*V(250)+RCT(169)*V(274)+RCT(170)*V(287)& @@ -3328,16 +3331,16 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) &+RCT(492)*V(148)+RCT(497)*V(164)+RCT(500)*V(163)+RCT(503)*V(229)+RCT(507)*V(240)+RCT(508)*V(241)+RCT(534)& &*V(217)+RCT(535)*V(185)+RCT(543)*V(146)+RCT(546)*V(143)+RCT(559)*V(141)+RCT(562)*V(142)+RCT(570)*V(200)& &+RCT(573)*V(201)+RCT(574)*V(203)+RCT(581)*V(245)+RCT(598)*V(257)+RCT(602)*V(17)+RCT(607)*V(175)+RCT(619)& - &*V(178)+RCT(633)*V(176)+RCT(642)*V(187)+RCT(656)*V(12)+RCT(658)*V(21)+RCT(660)*V(26)+RCT(662) - D_VAR(282) = RCT(671)*V(169)+RCT(673)*V(279)+RCT(682)*V(259)+RCT(684)*V(231)+RCT(692)*V(267)+RCT(697)*V(256)+RCT(722)& - &*V(199)+RCT(726)*V(266)+RCT(730)*V(264) + &*V(178)+RCT(633)*V(176)+RCT(642)*V(187)+RCT(656)*V(12)+RCT(658)*V(21)+RCT(660)*V(26)+RCT(663) + D_VAR(282) = RCT(672)*V(169)+RCT(674)*V(279)+RCT(683)*V(259)+RCT(685)*V(231)+RCT(693)*V(267)+RCT(698)*V(256)+RCT(723)& + &*V(199)+RCT(727)*V(266)+RCT(731)*V(264) D_VAR(283) = RCT(44)*V(281)+RCT(45)*V(280)+RCT(46)*V(279)+RCT(47)*V(270)+RCT(51)*V(270)+RCT(52)*V(262)+RCT(54)*V(261)& &+RCT(76)*V(113)+RCT(83)*V(255)+RCT(96)*V(222)+RCT(118)*V(254)+RCT(121)*V(218)+RCT(122)*V(228)+RCT(140)& &*V(157)+RCT(161)*2*V(283)+RCT(166)*V(82)+RCT(180)*V(287)+RCT(210)*V(284)+RCT(310)*V(139)+RCT(357)*V(234)& &+RCT(360)*V(150)+RCT(361)*V(151)+RCT(364)*V(165)+RCT(369)*V(221)+RCT(379)*V(211)+RCT(380)*V(212)+RCT(387)& &*V(196)+RCT(388)*V(174)+RCT(506)*V(220)+RCT(516)*V(240)+RCT(517)*V(241)+RCT(552)*V(247)+RCT(584)*V(245)& &+RCT(595)*V(205)+RCT(609)*V(175)+RCT(621)*V(178)+RCT(625)*V(118)+RCT(627)*V(110)+RCT(630)*V(138)+RCT(632)& - &*V(99)+RCT(641)*V(187)+RCT(647)*V(206)+RCT(664)+RCT(665)+RCT(666)+RCT(769)+RCT(770) + &*V(99)+RCT(641)*V(187)+RCT(647)*V(206)+RCT(662)*V(263)+RCT(665)+RCT(666)+RCT(667)+RCT(770)+RCT(771) D_VAR(284) = RCT(177)*V(256)+RCT(178)*V(272)+RCT(200)*F(3)+RCT(201)*V(269)+RCT(203)*V(279)+RCT(204)*V(281)+RCT(207)& &*V(62)+RCT(209)*V(270)+RCT(210)*V(283)+RCT(211)*V(280)+RCT(212)*V(270)+RCT(213)*V(208)+RCT(222)*V(274)& &+RCT(223)*V(262)+RCT(268)*V(277)+RCT(284)*V(259) @@ -3347,7 +3350,7 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, P_VAR, D_VAR ) &*V(235)+RCT(295)*V(214)+RCT(296)*V(129)+RCT(297)*V(215)+RCT(298)*V(121)+RCT(299)*V(121)+RCT(300)*V(219)& &+RCT(301)*V(220)+RCT(302)*V(113)+RCT(303)*V(254) D_VAR(286) = RCT(1)*V(144)*V(269)+RCT(4)*V(135)*V(269)+RCT(7)*V(208)+RCT(8)*V(269)+RCT(9)+RCT(10)*V(262)+RCT(167)& - &*V(279)+RCT(344)*V(230)+RCT(348)*V(191)+RCT(693)*V(267)+RCT(700)*V(256) + &*V(279)+RCT(344)*V(230)+RCT(348)*V(191)+RCT(694)*V(267)+RCT(701)*V(256) D_VAR(287) = RCT(168)*V(269)+RCT(170)*V(281)+RCT(175)*V(172)+RCT(180)*V(283)+RCT(181)*V(262)+RCT(182)*V(261)+RCT(183)& &*V(219)+RCT(184)*V(157)+RCT(185)*V(121)+RCT(186)*V(270)+RCT(304)*V(254) @@ -3371,14 +3374,14 @@ SUBROUTINE CalcStoichNum ( StoichNum ) REAL(kind=dp) :: StoichNum(NVAR,NREACT) StoichNum(:,:) = 0. - StoichNum(1,842) = -1 - StoichNum(2,844) = -1 - StoichNum(3,843) = -1 - StoichNum(4,706) = 1 - StoichNum(4,709) = 2 - StoichNum(4,712) = 2 - StoichNum(4,715) = 2 - StoichNum(5,756) = 1 + StoichNum(1,843) = -1 + StoichNum(2,845) = -1 + StoichNum(3,844) = -1 + StoichNum(4,707) = 1 + StoichNum(4,710) = 2 + StoichNum(4,713) = 2 + StoichNum(4,716) = 2 + StoichNum(5,757) = 1 StoichNum(6,24) = 1 StoichNum(6,49) = 1 StoichNum(6,57) = 1 @@ -3414,20 +3417,20 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(6,634) = 1 StoichNum(6,638) = 1 StoichNum(6,649) = 1 - StoichNum(6,871) = 1 - StoichNum(6,879) = 1.238 - StoichNum(6,911) = 1 - StoichNum(6,913) = 1 + StoichNum(6,872) = 1 + StoichNum(6,880) = 1.238 + StoichNum(6,912) = 1 + StoichNum(6,914) = 1 StoichNum(7,389) = 1 StoichNum(7,390) = 1 - StoichNum(8,707) = 1 - StoichNum(8,710) = 2 - StoichNum(8,713) = 2 - StoichNum(8,716) = 2 - StoichNum(9,708) = 1 - StoichNum(9,711) = 2 - StoichNum(9,714) = 2 - StoichNum(9,717) = 2 + StoichNum(8,708) = 1 + StoichNum(8,711) = 2 + StoichNum(8,714) = 2 + StoichNum(8,717) = 2 + StoichNum(9,709) = 1 + StoichNum(9,712) = 2 + StoichNum(9,715) = 2 + StoichNum(9,718) = 2 StoichNum(10,656) = 1 StoichNum(11,657) = 1 StoichNum(12,616) = 1 @@ -3449,7 +3452,7 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(21,617) = 1 StoichNum(21,658) = -1 StoichNum(21,659) = -1 - StoichNum(22,736) = 1 + StoichNum(22,737) = 1 StoichNum(23,138) = -1 StoichNum(23,434) = 0.005 StoichNum(23,435) = 0.005 @@ -3459,7 +3462,7 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(23,439) = 0.005 StoichNum(23,440) = 0.005 StoichNum(23,441) = 0.005 - StoichNum(23,736) = -1 + StoichNum(23,737) = -1 StoichNum(24,660) = 1 StoichNum(25,661) = 1 StoichNum(26,618) = 1 @@ -3467,16 +3470,16 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(26,661) = -1 StoichNum(27,165) = 0.25 StoichNum(28,4) = 1 - StoichNum(28,693) = 1 - StoichNum(28,700) = 1 - StoichNum(29,731) = 1 + StoichNum(28,694) = 1 + StoichNum(28,701) = 1 StoichNum(29,732) = 1 - StoichNum(29,742) = 1 - StoichNum(30,733) = 1 + StoichNum(29,733) = 1 + StoichNum(29,743) = 1 StoichNum(30,734) = 1 StoichNum(30,735) = 1 - StoichNum(30,743) = 1 - StoichNum(30,748) = 1 + StoichNum(30,736) = 1 + StoichNum(30,744) = 1 + StoichNum(30,749) = 1 StoichNum(31,18) = 1 StoichNum(31,22) = 1 StoichNum(31,26) = 1 @@ -3590,19 +3593,19 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(31,639) = 1 StoichNum(31,640) = 1 StoichNum(31,646) = 1 - StoichNum(31,759) = 2 - StoichNum(31,767) = 1 - StoichNum(31,774) = 0.3 - StoichNum(31,849) = 1 - StoichNum(31,852) = 1 - StoichNum(31,855) = 1 - StoichNum(31,862) = 1 - StoichNum(31,864) = 1 + StoichNum(31,760) = 2 + StoichNum(31,768) = 1 + StoichNum(31,775) = 0.3 + StoichNum(31,850) = 1 + StoichNum(31,853) = 1 + StoichNum(31,856) = 1 + StoichNum(31,863) = 1 StoichNum(31,865) = 1 StoichNum(31,866) = 1 StoichNum(31,867) = 1 StoichNum(31,868) = 1 - StoichNum(31,899) = 0.01 + StoichNum(31,869) = 1 + StoichNum(31,900) = 0.01 StoichNum(32,1) = 1 StoichNum(32,3) = 1 StoichNum(32,4) = 1 @@ -3704,17 +3707,17 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(32,645) = 1 StoichNum(32,651) = 1 StoichNum(32,654) = 1 - StoichNum(32,663) = 0.5 - StoichNum(32,664) = 1 - StoichNum(32,665) = 2 + StoichNum(32,662) = 1 + StoichNum(32,664) = 0.5 + StoichNum(32,665) = 1 StoichNum(32,666) = 2 - StoichNum(32,667) = 1 + StoichNum(32,667) = 2 StoichNum(32,668) = 1 StoichNum(32,669) = 1 StoichNum(32,670) = 1 StoichNum(32,671) = 1 - StoichNum(32,675) = 1 - StoichNum(32,677) = 1 + StoichNum(32,672) = 1 + StoichNum(32,676) = 1 StoichNum(32,678) = 1 StoichNum(32,679) = 1 StoichNum(32,680) = 1 @@ -3738,16 +3741,16 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(32,698) = 1 StoichNum(32,699) = 1 StoichNum(32,700) = 1 - StoichNum(32,709) = 2 + StoichNum(32,701) = 1 StoichNum(32,710) = 2 StoichNum(32,711) = 2 - StoichNum(32,712) = 3 + StoichNum(32,712) = 2 StoichNum(32,713) = 3 StoichNum(32,714) = 3 - StoichNum(32,715) = 4 + StoichNum(32,715) = 3 StoichNum(32,716) = 4 StoichNum(32,717) = 4 - StoichNum(32,719) = 1 + StoichNum(32,718) = 4 StoichNum(32,720) = 1 StoichNum(32,721) = 1 StoichNum(32,722) = 1 @@ -3759,28 +3762,29 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(32,728) = 1 StoichNum(32,729) = 1 StoichNum(32,730) = 1 - StoichNum(32,737) = 1 + StoichNum(32,731) = 1 StoichNum(32,738) = 1 StoichNum(32,739) = 1 StoichNum(32,740) = 1 StoichNum(32,741) = 1 - StoichNum(32,744) = 1 + StoichNum(32,742) = 1 StoichNum(32,745) = 1 StoichNum(32,746) = 1 StoichNum(32,747) = 1 - StoichNum(32,749) = 1 + StoichNum(32,748) = 1 StoichNum(32,750) = 1 - StoichNum(32,751) = 2 - StoichNum(32,752) = 1 + StoichNum(32,751) = 1 + StoichNum(32,752) = 2 StoichNum(32,753) = 1 StoichNum(32,754) = 1 StoichNum(32,755) = 1 - StoichNum(32,770) = 2 - StoichNum(32,800) = 1 - StoichNum(32,813) = 2 - StoichNum(32,817) = 1 - StoichNum(32,834) = 1 - StoichNum(32,836) = 2 + StoichNum(32,756) = 1 + StoichNum(32,771) = 2 + StoichNum(32,801) = 1 + StoichNum(32,814) = 2 + StoichNum(32,818) = 1 + StoichNum(32,835) = 1 + StoichNum(32,837) = 2 StoichNum(33,36) = 1 StoichNum(33,52) = 1 StoichNum(33,53) = 0.05 @@ -3868,43 +3872,43 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(33,651) = 0.5 StoichNum(33,653) = 0.25 StoichNum(33,654) = 0.5 - StoichNum(33,763) = 1 StoichNum(33,764) = 1 - StoichNum(33,772) = 0.88 - StoichNum(33,773) = 1 - StoichNum(33,775) = 1 - StoichNum(33,777) = 1 - StoichNum(33,779) = 1 - StoichNum(33,780) = 2 + StoichNum(33,765) = 1 + StoichNum(33,773) = 0.88 + StoichNum(33,774) = 1 + StoichNum(33,776) = 1 + StoichNum(33,778) = 1 + StoichNum(33,780) = 1 StoichNum(33,781) = 2 - StoichNum(33,782) = 1 + StoichNum(33,782) = 2 StoichNum(33,783) = 1 StoichNum(33,784) = 1 StoichNum(33,785) = 1 - StoichNum(33,787) = 1 - StoichNum(33,853) = 1 - StoichNum(33,857) = 1 - StoichNum(33,870) = 1 - StoichNum(33,873) = 1 - StoichNum(33,874) = 0.5 - StoichNum(33,876) = 0.571 - StoichNum(33,877) = 0.875 - StoichNum(33,878) = 0.77 - StoichNum(33,881) = 1 + StoichNum(33,786) = 1 + StoichNum(33,788) = 1 + StoichNum(33,854) = 1 + StoichNum(33,858) = 1 + StoichNum(33,871) = 1 + StoichNum(33,874) = 1 + StoichNum(33,875) = 0.5 + StoichNum(33,877) = 0.571 + StoichNum(33,878) = 0.875 + StoichNum(33,879) = 0.77 StoichNum(33,882) = 1 - StoichNum(33,887) = 0.888 - StoichNum(33,888) = 0.818 - StoichNum(33,889) = 1 + StoichNum(33,883) = 1 + StoichNum(33,888) = 0.888 + StoichNum(33,889) = 0.818 StoichNum(33,890) = 1 - StoichNum(33,891) = 0.55 - StoichNum(33,894) = 0.55 - StoichNum(33,898) = 0.839 - StoichNum(33,900) = 1 - StoichNum(33,901) = 0.122 - StoichNum(33,904) = 1 - StoichNum(33,908) = 1 - StoichNum(33,910) = 1 - StoichNum(33,913) = 1 + StoichNum(33,891) = 1 + StoichNum(33,892) = 0.55 + StoichNum(33,895) = 0.55 + StoichNum(33,899) = 0.839 + StoichNum(33,901) = 1 + StoichNum(33,902) = 0.122 + StoichNum(33,905) = 1 + StoichNum(33,909) = 1 + StoichNum(33,911) = 1 + StoichNum(33,914) = 1 StoichNum(34,24) = 1 StoichNum(34,338) = 1 StoichNum(34,345) = 1 @@ -3933,160 +3937,160 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(37,548) = 0.045 StoichNum(38,318) = 1 StoichNum(38,319) = -1 - StoichNum(38,715) = -1 StoichNum(38,716) = -1 StoichNum(38,717) = -1 - StoichNum(38,845) = -1 + StoichNum(38,718) = -1 + StoichNum(38,846) = -1 StoichNum(39,256) = -1 - StoichNum(39,818) = -1 + StoichNum(39,819) = -1 StoichNum(40,332) = 1 StoichNum(40,333) = -1 StoichNum(40,334) = -1 - StoichNum(40,709) = -1 StoichNum(40,710) = -1 StoichNum(40,711) = -1 - StoichNum(40,840) = -1 + StoichNum(40,712) = -1 + StoichNum(40,841) = -1 StoichNum(41,390) = -1 - StoichNum(41,739) = 1 StoichNum(41,740) = 1 StoichNum(41,741) = 1 + StoichNum(41,742) = 1 StoichNum(42,240) = -0.75 - StoichNum(42,823) = -1 + StoichNum(42,824) = -1 StoichNum(43,335) = -1 - StoichNum(43,841) = -1 + StoichNum(43,842) = -1 StoichNum(44,235) = -0.41 - StoichNum(44,829) = -1 + StoichNum(44,830) = -1 StoichNum(45,242) = -0.75 - StoichNum(45,831) = -1 + StoichNum(45,832) = -1 StoichNum(46,241) = -0.3 - StoichNum(46,824) = -1 + StoichNum(46,825) = -1 StoichNum(47,317) = 1 - StoichNum(47,712) = -1 StoichNum(47,713) = -1 StoichNum(47,714) = -1 - StoichNum(47,846) = -1 + StoichNum(47,715) = -1 + StoichNum(47,847) = -1 StoichNum(48,239) = -0.75 - StoichNum(48,822) = -1 + StoichNum(48,823) = -1 StoichNum(49,80) = 1 StoichNum(49,81) = -1 StoichNum(50,186) = 1 - StoichNum(50,803) = -1 + StoichNum(50,804) = -1 StoichNum(51,227) = -0.86 - StoichNum(51,819) = -1 + StoichNum(51,820) = -1 StoichNum(52,232) = -0.88 - StoichNum(52,820) = -1 + StoichNum(52,821) = -1 StoichNum(53,233) = -0.86 - StoichNum(53,821) = -1 + StoichNum(53,822) = -1 StoichNum(54,606) = -1 StoichNum(55,234) = -0.64 - StoichNum(55,830) = -1 + StoichNum(55,831) = -1 StoichNum(56,305) = 1 StoichNum(56,306) = -2 - StoichNum(56,837) = -1 + StoichNum(56,838) = -1 StoichNum(57,195) = -1 StoichNum(57,196) = -1 StoichNum(57,221) = 1 - StoichNum(57,852) = -1 + StoichNum(57,853) = -1 StoichNum(58,3) = 1 - StoichNum(58,665) = 1 - StoichNum(58,863) = -1 + StoichNum(58,666) = 1 StoichNum(58,864) = -1 + StoichNum(58,865) = -1 StoichNum(59,6) = 1 - StoichNum(59,666) = 1 - StoichNum(59,861) = -1 + StoichNum(59,667) = 1 StoichNum(59,862) = -1 + StoichNum(59,863) = -1 StoichNum(60,616) = -1 StoichNum(61,219) = -1 StoichNum(61,220) = -1 StoichNum(61,221) = -1 - StoichNum(61,855) = 1 + StoichNum(61,856) = 1 StoichNum(62,207) = -1 StoichNum(62,208) = -1 - StoichNum(62,853) = -1 + StoichNum(62,854) = -1 StoichNum(63,55) = 1 StoichNum(63,56) = -1 - StoichNum(63,774) = -1 + StoichNum(63,775) = -1 StoichNum(64,608) = 0.005 StoichNum(64,613) = -1 StoichNum(65,325) = 1 StoichNum(65,327) = -1 - StoichNum(65,706) = -1 StoichNum(65,707) = -1 StoichNum(65,708) = -1 + StoichNum(65,709) = -1 StoichNum(66,139) = -1 StoichNum(66,598) = 0.37 - StoichNum(66,797) = -1 + StoichNum(66,798) = -1 StoichNum(67,633) = 0.65 StoichNum(67,636) = -1 - StoichNum(67,911) = -1 + StoichNum(67,912) = -1 StoichNum(68,255) = -1 StoichNum(68,288) = -1 - StoichNum(69,719) = 1 StoichNum(69,720) = 1 - StoichNum(69,723) = 1 + StoichNum(69,721) = 1 StoichNum(69,724) = 1 - StoichNum(69,727) = 1 + StoichNum(69,725) = 1 StoichNum(69,728) = 1 - StoichNum(69,847) = -1 + StoichNum(69,729) = 1 + StoichNum(69,848) = -1 StoichNum(70,189) = -1 StoichNum(70,229) = -0.95 - StoichNum(70,805) = -1 + StoichNum(70,806) = -1 StoichNum(71,162) = 1 StoichNum(71,163) = -1 - StoichNum(71,849) = -1 StoichNum(71,850) = -1 + StoichNum(71,851) = -1 StoichNum(72,248) = -1 StoichNum(72,277) = 1 StoichNum(72,278) = -1 - StoichNum(72,813) = -1 + StoichNum(72,814) = -1 StoichNum(73,254) = -1 StoichNum(73,287) = -1 - StoichNum(73,808) = -1 + StoichNum(73,809) = -1 StoichNum(74,188) = -1 StoichNum(74,230) = -0.68 - StoichNum(74,804) = -1 + StoichNum(74,805) = -1 StoichNum(75,604) = -1 StoichNum(75,605) = -1 StoichNum(76,617) = -1 StoichNum(77,618) = -1 StoichNum(78,238) = -0.79 StoichNum(78,260) = -1 - StoichNum(78,825) = -1 + StoichNum(78,826) = -1 StoichNum(79,236) = -0.69 StoichNum(79,258) = -1 - StoichNum(79,826) = -1 + StoichNum(79,827) = -1 StoichNum(80,237) = -0.74 StoichNum(80,259) = -1 - StoichNum(80,827) = -1 + StoichNum(80,828) = -1 StoichNum(81,231) = -0.72 StoichNum(81,257) = -1 - StoichNum(81,828) = -1 + StoichNum(81,829) = -1 StoichNum(82,164) = -1 StoichNum(82,165) = -1 StoichNum(82,166) = -1 StoichNum(83,341) = 0.73 StoichNum(83,342) = 0.4 StoichNum(83,597) = -1 - StoichNum(83,869) = -1 + StoichNum(83,870) = -1 StoichNum(84,575) = 0.098 StoichNum(84,587) = 0.75 StoichNum(84,588) = -1 - StoichNum(84,743) = -1 + StoichNum(84,744) = -1 StoichNum(85,10) = 1 StoichNum(85,11) = -1 StoichNum(85,12) = -1 StoichNum(86,74) = 1 StoichNum(86,394) = -1 - StoichNum(86,867) = -1 + StoichNum(86,868) = -1 StoichNum(87,27) = 1 StoichNum(87,392) = -1 - StoichNum(87,865) = -1 + StoichNum(87,866) = -1 StoichNum(88,60) = 1 StoichNum(88,393) = -1 - StoichNum(88,866) = -1 + StoichNum(88,867) = -1 StoichNum(89,65) = 1 StoichNum(89,395) = -1 - StoichNum(89,868) = -1 + StoichNum(89,869) = -1 StoichNum(90,316) = 1 StoichNum(90,317) = -1 StoichNum(90,318) = -2 @@ -4094,69 +4098,69 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(90,320) = -1 StoichNum(90,331) = 1 StoichNum(90,334) = 1 - StoichNum(90,836) = -1 - StoichNum(90,840) = 1 - StoichNum(90,845) = 2 - StoichNum(90,846) = 1 + StoichNum(90,837) = -1 + StoichNum(90,841) = 1 + StoichNum(90,846) = 2 + StoichNum(90,847) = 1 StoichNum(91,87) = 1 StoichNum(91,135) = -1 - StoichNum(91,793) = -1 + StoichNum(91,794) = -1 StoichNum(92,111) = 1 StoichNum(92,133) = -1 - StoichNum(92,791) = -1 + StoichNum(92,792) = -1 StoichNum(93,91) = 1 StoichNum(93,134) = -1 - StoichNum(93,792) = -1 + StoichNum(93,793) = -1 StoichNum(94,113) = 0.41 StoichNum(94,136) = -1 - StoichNum(94,795) = -1 + StoichNum(94,796) = -1 StoichNum(95,635) = 1 StoichNum(95,637) = -1 StoichNum(95,638) = -1 StoichNum(96,389) = -1 - StoichNum(96,737) = 1 StoichNum(96,738) = 1 - StoichNum(96,744) = 1 + StoichNum(96,739) = 1 StoichNum(96,745) = 1 StoichNum(96,746) = 1 StoichNum(96,747) = 1 - StoichNum(96,749) = 1 + StoichNum(96,748) = 1 StoichNum(96,750) = 1 StoichNum(96,751) = 1 StoichNum(96,752) = 1 StoichNum(96,753) = 1 StoichNum(96,754) = 1 StoichNum(96,755) = 1 + StoichNum(96,756) = 1 StoichNum(97,190) = -1 StoichNum(97,228) = -1 - StoichNum(97,806) = -1 + StoichNum(97,807) = -1 StoichNum(98,323) = 1 - StoichNum(98,721) = 1 StoichNum(98,722) = 1 - StoichNum(98,725) = 1 + StoichNum(98,723) = 1 StoichNum(98,726) = 1 - StoichNum(98,729) = 1 + StoichNum(98,727) = 1 StoichNum(98,730) = 1 - StoichNum(98,848) = -1 + StoichNum(98,731) = 1 + StoichNum(98,849) = -1 StoichNum(99,617) = 0.06 StoichNum(99,618) = 0.06 StoichNum(99,631) = -1 StoichNum(99,632) = -1 - StoichNum(99,910) = -1 + StoichNum(99,911) = -1 StoichNum(100,253) = -1 StoichNum(100,286) = -1 - StoichNum(100,807) = -1 + StoichNum(100,808) = -1 StoichNum(101,41) = 1 StoichNum(101,42) = -1 StoichNum(101,43) = -1 - StoichNum(101,767) = -1 StoichNum(101,768) = -1 + StoichNum(101,769) = -1 StoichNum(102,608) = 0.995 StoichNum(102,609) = 1 StoichNum(102,610) = 0.6 StoichNum(102,611) = -1 StoichNum(102,612) = -1 - StoichNum(102,909) = 1 + StoichNum(102,910) = 1 StoichNum(103,244) = 1 StoichNum(103,248) = 1 StoichNum(103,273) = 1 @@ -4165,31 +4169,31 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(103,279) = -1 StoichNum(103,280) = -1 StoichNum(103,282) = 1 - StoichNum(103,813) = 1 - StoichNum(103,832) = -1 + StoichNum(103,814) = 1 + StoichNum(103,833) = -1 StoichNum(104,548) = 0.075 StoichNum(104,553) = 0.241 StoichNum(104,564) = 0.653 StoichNum(104,596) = -1 - StoichNum(104,742) = -1 - StoichNum(104,871) = -1 - StoichNum(104,877) = 0.75 + StoichNum(104,743) = -1 + StoichNum(104,872) = -1 + StoichNum(104,878) = 0.75 StoichNum(105,633) = 0.15 StoichNum(105,638) = 1 StoichNum(105,642) = 1 StoichNum(105,643) = -1 - StoichNum(105,912) = -1 + StoichNum(105,913) = -1 StoichNum(106,427) = 0.15 StoichNum(106,428) = 0.15 StoichNum(106,433) = -1 - StoichNum(106,887) = 0.112 - StoichNum(106,888) = 0.182 - StoichNum(106,898) = 0.161 + StoichNum(106,888) = 0.112 + StoichNum(106,889) = 0.182 + StoichNum(106,899) = 0.161 StoichNum(107,247) = -1 StoichNum(107,274) = 1 StoichNum(107,281) = 1 StoichNum(107,321) = 1 - StoichNum(107,812) = -1 + StoichNum(107,813) = -1 StoichNum(108,1) = 1 StoichNum(108,7) = 1 StoichNum(108,8) = 1 @@ -4198,21 +4202,21 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(108,167) = 1 StoichNum(108,344) = 1 StoichNum(108,348) = 1 - StoichNum(108,854) = -1 + StoichNum(108,855) = -1 StoichNum(109,109) = 1 StoichNum(109,110) = 1 StoichNum(109,132) = -1 - StoichNum(109,790) = -1 + StoichNum(109,791) = -1 StoichNum(110,617) = 0.19 StoichNum(110,618) = 0.15 StoichNum(110,626) = -1 StoichNum(110,627) = -1 StoichNum(111,112) = 1 StoichNum(111,137) = -1 - StoichNum(111,794) = -1 + StoichNum(111,795) = -1 StoichNum(112,92) = 1 StoichNum(112,131) = -1 - StoichNum(112,789) = -1 + StoichNum(112,790) = -1 StoichNum(113,67) = -1 StoichNum(113,76) = -1 StoichNum(113,302) = -1 @@ -4220,19 +4224,19 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(114,610) = 0.2 StoichNum(114,614) = -1 StoichNum(114,615) = -1 - StoichNum(114,909) = -1 + StoichNum(114,910) = -1 StoichNum(115,440) = 0.255 StoichNum(115,441) = 0.595 StoichNum(115,454) = -1 StoichNum(115,481) = 1 StoichNum(115,483) = 1 - StoichNum(115,735) = -1 + StoichNum(115,736) = -1 StoichNum(116,460) = 1 StoichNum(116,461) = 0.13 StoichNum(116,462) = 0.2 StoichNum(116,566) = -1 StoichNum(116,589) = 0.35 - StoichNum(116,900) = 0.35 + StoichNum(116,901) = 0.35 StoichNum(117,428) = 0.315 StoichNum(117,475) = -1 StoichNum(117,476) = -1 @@ -4242,7 +4246,7 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(119,354) = 1 StoichNum(119,366) = 1 StoichNum(119,370) = -1 - StoichNum(119,856) = -1 + StoichNum(119,857) = -1 StoichNum(120,427) = 0.315 StoichNum(120,473) = -1 StoichNum(120,474) = -1 @@ -4254,7 +4258,7 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(122,459) = 1 StoichNum(122,464) = 1 StoichNum(122,590) = -1 - StoichNum(122,904) = -1 + StoichNum(122,905) = -1 StoichNum(123,510) = 0.474 StoichNum(123,511) = 0.34 StoichNum(123,512) = 0.244 @@ -4263,39 +4267,39 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(123,520) = 0.841 StoichNum(123,522) = -1 StoichNum(123,523) = -1 - StoichNum(123,896) = 0.841 - StoichNum(123,899) = 0.227 + StoichNum(123,897) = 0.841 + StoichNum(123,900) = 0.227 StoichNum(124,173) = 1 StoichNum(124,175) = 1 StoichNum(124,176) = -1 - StoichNum(124,694) = 1 - StoichNum(124,698) = 1 + StoichNum(124,695) = 1 StoichNum(124,699) = 1 - StoichNum(124,798) = -1 + StoichNum(124,700) = 1 + StoichNum(124,799) = -1 StoichNum(125,399) = 0.15 StoichNum(125,406) = 0.15 StoichNum(125,429) = -1 StoichNum(125,440) = 0.009 - StoichNum(125,889) = -1 + StoichNum(125,890) = -1 StoichNum(126,400) = 0.15 StoichNum(126,408) = 0.15 StoichNum(126,430) = -1 StoichNum(126,441) = 0.009 - StoichNum(126,890) = -1 + StoichNum(126,891) = -1 StoichNum(127,435) = 0.67 StoichNum(127,437) = 0.68 StoichNum(127,455) = -1 StoichNum(127,456) = -1 StoichNum(127,478) = 0.67 StoichNum(127,480) = 0.67 - StoichNum(127,733) = -1 + StoichNum(127,734) = -1 StoichNum(128,435) = 0.33 StoichNum(128,437) = 0.32 StoichNum(128,457) = -1 StoichNum(128,458) = -1 StoichNum(128,478) = 0.33 StoichNum(128,480) = 0.33 - StoichNum(128,734) = -1 + StoichNum(128,735) = -1 StoichNum(129,94) = 0.25 StoichNum(129,95) = 0.25 StoichNum(129,103) = -1 @@ -4307,50 +4311,50 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(130,468) = 0.13 StoichNum(130,569) = -1 StoichNum(130,589) = 0.15 - StoichNum(130,900) = 0.15 - StoichNum(130,901) = 0.122 + StoichNum(130,901) = 0.15 + StoichNum(130,902) = 0.122 StoichNum(131,384) = 1 StoichNum(131,385) = 1 StoichNum(131,386) = 1 StoichNum(131,387) = 1 StoichNum(131,388) = 1 StoichNum(131,391) = -1 - StoichNum(131,741) = -1 - StoichNum(131,860) = -1 + StoichNum(131,742) = -1 + StoichNum(131,861) = -1 StoichNum(132,283) = 1 - StoichNum(132,675) = 1 - StoichNum(132,678) = 1 + StoichNum(132,676) = 1 StoichNum(132,679) = 1 StoichNum(132,680) = 1 - StoichNum(132,686) = 1 + StoichNum(132,681) = 1 StoichNum(132,687) = 1 StoichNum(132,688) = 1 - StoichNum(132,690) = 1 - StoichNum(132,695) = 1 + StoichNum(132,689) = 1 + StoichNum(132,691) = 1 StoichNum(132,696) = 1 StoichNum(132,697) = 1 - StoichNum(132,809) = -1 + StoichNum(132,698) = 1 + StoichNum(132,810) = -1 StoichNum(133,574) = 0.5 StoichNum(133,575) = -1 - StoichNum(133,879) = -0.75 + StoichNum(133,880) = -0.75 StoichNum(134,28) = 1 StoichNum(134,32) = -1 StoichNum(134,33) = -1 StoichNum(134,291) = -1 - StoichNum(134,762) = -1 + StoichNum(134,763) = -1 StoichNum(135,4) = -2 StoichNum(135,5) = -1 StoichNum(135,6) = -1 StoichNum(136,419) = 1 StoichNum(136,477) = -1 StoichNum(136,478) = -1 - StoichNum(136,745) = -1 - StoichNum(136,892) = -1 + StoichNum(136,746) = -1 + StoichNum(136,893) = -1 StoichNum(137,423) = 1 StoichNum(137,479) = -1 StoichNum(137,480) = -1 - StoichNum(137,746) = -1 - StoichNum(137,893) = -1 + StoichNum(137,747) = -1 + StoichNum(137,894) = -1 StoichNum(138,624) = 0.8 StoichNum(138,626) = 0.727 StoichNum(138,628) = -1 @@ -4361,22 +4365,22 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(139,310) = -1 StoichNum(139,313) = 1 StoichNum(139,326) = -1 - StoichNum(139,833) = -1 + StoichNum(139,834) = -1 StoichNum(140,445) = 0.725 StoichNum(140,449) = 0.725 StoichNum(140,453) = 0.35 StoichNum(140,591) = -1 - StoichNum(140,902) = -1 + StoichNum(140,903) = -1 StoichNum(141,558) = -1 StoichNum(141,559) = -1 StoichNum(141,560) = -1 - StoichNum(141,887) = 0.224 - StoichNum(141,898) = 0.068 + StoichNum(141,888) = 0.224 + StoichNum(141,899) = 0.068 StoichNum(142,561) = -1 StoichNum(142,562) = -1 StoichNum(142,563) = -1 - StoichNum(142,888) = 0.182 - StoichNum(142,898) = 0.128 + StoichNum(142,889) = 0.182 + StoichNum(142,899) = 0.128 StoichNum(143,544) = 0.435 StoichNum(143,545) = -1 StoichNum(143,546) = -1 @@ -4400,9 +4404,9 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(147,528) = -1 StoichNum(147,530) = -1 StoichNum(147,531) = -1 - StoichNum(147,749) = -1 - StoichNum(147,896) = -1 + StoichNum(147,750) = -1 StoichNum(147,897) = -1 + StoichNum(147,898) = -1 StoichNum(148,479) = 1 StoichNum(148,491) = -1 StoichNum(148,492) = -1 @@ -4421,16 +4425,16 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(152,433) = 1 StoichNum(152,565) = -1 StoichNum(152,590) = 0.444 - StoichNum(152,876) = -1 - StoichNum(152,887) = 0.112 - StoichNum(152,888) = 0.182 - StoichNum(152,898) = 0.162 - StoichNum(152,904) = 0.454 + StoichNum(152,877) = -1 + StoichNum(152,888) = 0.112 + StoichNum(152,889) = 0.182 + StoichNum(152,899) = 0.162 + StoichNum(152,905) = 0.454 StoichNum(153,401) = 0.937 StoichNum(153,434) = -1 StoichNum(153,435) = -1 StoichNum(153,438) = -1 - StoichNum(153,883) = -1 + StoichNum(153,884) = -1 StoichNum(154,85) = 0.25 StoichNum(154,86) = 0.25 StoichNum(154,97) = 0.25 @@ -4454,7 +4458,7 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(155,650) = -1 StoichNum(155,651) = -1 StoichNum(155,652) = -1 - StoichNum(155,913) = 1 + StoichNum(155,914) = 1 StoichNum(156,624) = 0.06 StoichNum(156,625) = 0.742 StoichNum(156,626) = 0.073 @@ -4467,7 +4471,7 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(156,644) = -1 StoichNum(156,645) = -1 StoichNum(156,648) = 1 - StoichNum(156,912) = 1 + StoichNum(156,913) = 1 StoichNum(157,58) = -1 StoichNum(157,140) = -1 StoichNum(157,184) = -1 @@ -4476,22 +4480,22 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(158,436) = -1 StoichNum(158,437) = -1 StoichNum(158,439) = -1 - StoichNum(158,884) = -1 + StoichNum(158,885) = -1 StoichNum(159,442) = 0.824 StoichNum(159,446) = 0.452 StoichNum(159,450) = 1 StoichNum(159,591) = 0.667 StoichNum(159,592) = -1 - StoichNum(159,903) = -1 + StoichNum(159,904) = -1 StoichNum(160,564) = -1 StoichNum(160,594) = 0.022 - StoichNum(160,877) = -1 - StoichNum(160,887) = 0.552 - StoichNum(160,888) = 0.455 - StoichNum(160,898) = 0.481 + StoichNum(160,878) = -1 + StoichNum(160,888) = 0.552 + StoichNum(160,889) = 0.455 + StoichNum(160,899) = 0.481 StoichNum(161,404) = 1 StoichNum(161,441) = -1 - StoichNum(161,886) = -1 + StoichNum(161,887) = -1 StoichNum(162,477) = 1 StoichNum(162,487) = -1 StoichNum(162,488) = -1 @@ -4517,11 +4521,11 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(166,568) = -1 StoichNum(166,570) = 0.255 StoichNum(166,590) = 0.318 - StoichNum(166,873) = -1 - StoichNum(166,904) = 0.391 + StoichNum(166,874) = -1 + StoichNum(166,905) = 0.391 StoichNum(167,402) = 1 StoichNum(167,440) = -1 - StoichNum(167,885) = -1 + StoichNum(167,886) = -1 StoichNum(168,399) = 0.3 StoichNum(168,406) = 0.3 StoichNum(168,440) = 0.018 @@ -4533,16 +4537,16 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(168,538) = 0.59 StoichNum(168,599) = -1 StoichNum(168,600) = -1 - StoichNum(168,870) = -1 - StoichNum(168,906) = 0.5 + StoichNum(168,871) = -1 + StoichNum(168,907) = 0.5 StoichNum(169,47) = 1 StoichNum(169,48) = -1 - StoichNum(169,667) = -1 StoichNum(169,668) = -1 StoichNum(169,669) = -1 StoichNum(169,670) = -1 StoichNum(169,671) = -1 - StoichNum(169,771) = -1 + StoichNum(169,672) = -1 + StoichNum(169,772) = -1 StoichNum(170,427) = 0.085 StoichNum(170,428) = 0.165 StoichNum(170,429) = 0.58 @@ -4553,7 +4557,7 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(170,457) = 1 StoichNum(170,528) = 1 StoichNum(170,540) = 1 - StoichNum(170,748) = -1 + StoichNum(170,749) = -1 StoichNum(171,485) = 0.6 StoichNum(171,497) = 0.031 StoichNum(171,498) = 0.065 @@ -4567,14 +4571,14 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(171,557) = -1 StoichNum(171,581) = 0.13 StoichNum(171,585) = 0.3 - StoichNum(171,754) = -1 - StoichNum(171,882) = -1 + StoichNum(171,755) = -1 + StoichNum(171,883) = -1 StoichNum(172,175) = -1 StoichNum(172,187) = 1 - StoichNum(172,674) = -1 StoichNum(172,675) = -1 - StoichNum(172,801) = -1 + StoichNum(172,676) = -1 StoichNum(172,802) = -1 + StoichNum(172,803) = -1 StoichNum(173,194) = 1 StoichNum(173,199) = 1 StoichNum(173,202) = 1 @@ -4587,7 +4591,7 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(173,224) = 0.24 StoichNum(173,225) = 0.15 StoichNum(173,264) = 1 - StoichNum(173,763) = 1 + StoichNum(173,764) = 1 StoichNum(174,353) = 0.12 StoichNum(174,371) = 1 StoichNum(174,373) = 0.7 @@ -4601,8 +4605,8 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(174,383) = 0.7 StoichNum(174,384) = -1 StoichNum(174,388) = -1 - StoichNum(174,739) = -1 - StoichNum(174,858) = -1 + StoichNum(174,740) = -1 + StoichNum(174,859) = -1 StoichNum(175,605) = 1 StoichNum(175,607) = -1 StoichNum(175,608) = -1 @@ -4624,8 +4628,8 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(177,524) = -1 StoichNum(177,526) = -1 StoichNum(177,529) = -1 - StoichNum(177,750) = -1 - StoichNum(177,895) = -1 + StoichNum(177,751) = -1 + StoichNum(177,896) = -1 StoichNum(178,616) = 0.46 StoichNum(178,617) = 0.81 StoichNum(178,618) = 0.85 @@ -4658,14 +4662,14 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(181,567) = -1 StoichNum(181,569) = 0.16 StoichNum(181,590) = 0.126 - StoichNum(181,874) = -1 - StoichNum(181,901) = 0.1 - StoichNum(181,904) = 0.155 + StoichNum(181,875) = -1 + StoichNum(181,902) = 0.1 + StoichNum(181,905) = 0.155 StoichNum(182,399) = 0.25 StoichNum(182,406) = 0.25 StoichNum(182,427) = -1 StoichNum(182,440) = 0.015 - StoichNum(182,887) = -1 + StoichNum(182,888) = -1 StoichNum(183,434) = 0.655 StoichNum(183,436) = 0.655 StoichNum(183,450) = -1 @@ -4676,7 +4680,7 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(184,408) = 0.25 StoichNum(184,428) = -1 StoichNum(184,441) = 0.015 - StoichNum(184,888) = -1 + StoichNum(184,889) = -1 StoichNum(185,525) = 1 StoichNum(185,532) = -1 StoichNum(185,535) = -1 @@ -4688,7 +4692,7 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(186,198) = -1 StoichNum(186,199) = -1 StoichNum(186,261) = -1 - StoichNum(186,773) = 1 + StoichNum(186,774) = 1 StoichNum(187,633) = 0.2 StoichNum(187,634) = 1 StoichNum(187,639) = -1 @@ -4699,25 +4703,25 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(187,644) = 1 StoichNum(187,648) = -1 StoichNum(187,649) = 1 - StoichNum(187,910) = 1 StoichNum(187,911) = 1 + StoichNum(187,912) = 1 StoichNum(188,39) = 1 StoichNum(188,40) = -1 - StoichNum(188,663) = 0.5 - StoichNum(188,683) = 1 + StoichNum(188,664) = 0.5 StoichNum(188,684) = 1 StoichNum(188,685) = 1 StoichNum(188,686) = 1 StoichNum(188,687) = 1 StoichNum(188,688) = 1 - StoichNum(188,719) = 1 + StoichNum(188,689) = 1 StoichNum(188,720) = 1 StoichNum(188,721) = 1 StoichNum(188,722) = 1 - StoichNum(188,766) = -1 - StoichNum(188,861) = 1 - StoichNum(188,863) = 1 - StoichNum(188,913) = 1 + StoichNum(188,723) = 1 + StoichNum(188,767) = -1 + StoichNum(188,862) = 1 + StoichNum(188,864) = 1 + StoichNum(188,914) = 1 StoichNum(189,412) = 1 StoichNum(189,413) = 1 StoichNum(189,414) = 1 @@ -4728,10 +4732,10 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(189,431) = -1 StoichNum(189,440) = 0.06 StoichNum(189,441) = 0.06 - StoichNum(189,885) = 1 StoichNum(189,886) = 1 - StoichNum(189,891) = 0.45 - StoichNum(189,894) = 0.45 + StoichNum(189,887) = 1 + StoichNum(189,892) = 0.45 + StoichNum(189,895) = 0.45 StoichNum(190,439) = 0.16 StoichNum(190,454) = 0.25 StoichNum(190,469) = -1 @@ -4750,18 +4754,18 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(192,272) = 1 StoichNum(192,279) = 1 StoichNum(192,285) = 1 - StoichNum(192,672) = 0.5 StoichNum(192,673) = 0.5 - StoichNum(192,677) = 1 - StoichNum(192,681) = 1 + StoichNum(192,674) = 0.5 + StoichNum(192,678) = 1 StoichNum(192,682) = 1 StoichNum(192,683) = 1 StoichNum(192,684) = 1 StoichNum(192,685) = 1 - StoichNum(192,689) = 1 - StoichNum(192,691) = 1 + StoichNum(192,686) = 1 + StoichNum(192,690) = 1 StoichNum(192,692) = 1 - StoichNum(192,810) = -1 + StoichNum(192,693) = 1 + StoichNum(192,811) = -1 StoichNum(193,34) = -1 StoichNum(193,35) = -1 StoichNum(193,89) = 0.85 @@ -4777,8 +4781,8 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(193,538) = 0.07 StoichNum(193,549) = 0.036 StoichNum(193,555) = 0.23 - StoichNum(193,851) = -1 - StoichNum(193,906) = 0.05 + StoichNum(193,852) = -1 + StoichNum(193,907) = 0.05 StoichNum(194,131) = 0.791 StoichNum(194,337) = -1 StoichNum(194,497) = 0.551 @@ -4795,17 +4799,17 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(194,546) = 0.82 StoichNum(194,552) = 0.68 StoichNum(194,557) = 1 - StoichNum(194,872) = -1 - StoichNum(194,882) = 1 + StoichNum(194,873) = -1 + StoichNum(194,883) = 1 StoichNum(195,488) = 0.059 StoichNum(195,489) = 0.272 StoichNum(195,556) = -1 StoichNum(195,563) = 1 StoichNum(195,578) = 1 StoichNum(195,581) = 0.37 - StoichNum(195,755) = -1 - StoichNum(195,881) = -1 - StoichNum(195,905) = 0.5 + StoichNum(195,756) = -1 + StoichNum(195,882) = -1 + StoichNum(195,906) = 0.5 StoichNum(196,353) = 0.06 StoichNum(196,365) = 0.22 StoichNum(196,373) = 0.3 @@ -4820,8 +4824,8 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(196,385) = -1 StoichNum(196,386) = -1 StoichNum(196,387) = -1 - StoichNum(196,740) = -1 - StoichNum(196,859) = -1 + StoichNum(196,741) = -1 + StoichNum(196,860) = -1 StoichNum(197,75) = -1 StoichNum(197,92) = -1 StoichNum(197,102) = -1 @@ -4833,16 +4837,16 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(198,72) = 0.07 StoichNum(198,77) = -1 StoichNum(198,88) = 1 - StoichNum(198,738) = -1 - StoichNum(198,796) = -1 + StoichNum(198,739) = -1 + StoichNum(198,797) = -1 StoichNum(199,307) = 1 StoichNum(199,308) = -1 StoichNum(199,309) = -2 - StoichNum(199,719) = -1 StoichNum(199,720) = -1 StoichNum(199,721) = -1 StoichNum(199,722) = -1 - StoichNum(199,838) = -1 + StoichNum(199,723) = -1 + StoichNum(199,839) = -1 StoichNum(200,547) = 1 StoichNum(200,558) = 1 StoichNum(200,559) = 1 @@ -4863,9 +4867,9 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(202,469) = 0.35 StoichNum(202,589) = -1 StoichNum(202,591) = 0.333 - StoichNum(202,900) = -1 StoichNum(202,901) = -1 - StoichNum(202,902) = 0.75 + StoichNum(202,902) = -1 + StoichNum(202,903) = 0.75 StoichNum(203,550) = 1 StoichNum(203,552) = 0.32 StoichNum(203,574) = -1 @@ -4896,17 +4900,17 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(205,545) = 0.89 StoichNum(205,546) = 0.73 StoichNum(205,595) = -1 - StoichNum(205,857) = -1 - StoichNum(205,880) = 0.3 - StoichNum(205,905) = 0.15 + StoichNum(205,858) = -1 + StoichNum(205,881) = 0.3 + StoichNum(205,906) = 0.15 StoichNum(206,625) = 0.258 StoichNum(206,627) = 0.5 StoichNum(206,630) = 0.5 StoichNum(206,645) = 1 StoichNum(206,646) = -1 StoichNum(206,647) = -1 - StoichNum(206,756) = -1 - StoichNum(206,913) = -1 + StoichNum(206,757) = -1 + StoichNum(206,914) = -1 StoichNum(207,49) = -1 StoichNum(207,116) = 0.134 StoichNum(207,117) = 1 @@ -4939,7 +4943,7 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(208,363) = 0.02 StoichNum(208,396) = 0.013 StoichNum(208,548) = 0.045 - StoichNum(208,761) = -1 + StoichNum(208,762) = -1 StoichNum(209,463) = 1 StoichNum(209,467) = 1 StoichNum(209,470) = 1 @@ -4951,17 +4955,17 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(209,533) = 0.5 StoichNum(209,593) = -1 StoichNum(209,594) = 0.92 - StoichNum(209,752) = -1 - StoichNum(209,907) = -1 + StoichNum(209,753) = -1 StoichNum(209,908) = -1 + StoichNum(209,909) = -1 StoichNum(210,421) = 1 StoichNum(210,483) = -1 StoichNum(210,484) = -1 StoichNum(210,486) = -1 StoichNum(210,511) = 0.127 StoichNum(210,512) = 0.057 - StoichNum(210,747) = -1 - StoichNum(210,894) = -1 + StoichNum(210,748) = -1 + StoichNum(210,895) = -1 StoichNum(211,360) = 0.1 StoichNum(211,361) = 0.1 StoichNum(211,364) = 0.5 @@ -5015,7 +5019,7 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(214,512) = 0.355 StoichNum(214,513) = 0.034 StoichNum(214,610) = 0.2 - StoichNum(214,779) = 0.1 + StoichNum(214,780) = 0.1 StoichNum(215,78) = -1 StoichNum(215,124) = 0.5 StoichNum(215,127) = 1 @@ -5041,8 +5045,8 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(216,510) = 0.032 StoichNum(216,511) = 0.671 StoichNum(216,512) = 0.298 - StoichNum(216,744) = -1 - StoichNum(216,891) = -1 + StoichNum(216,745) = -1 + StoichNum(216,892) = -1 StoichNum(217,524) = 0.67 StoichNum(217,533) = -1 StoichNum(217,534) = -1 @@ -5062,15 +5066,15 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(218,650) = 0.6 StoichNum(218,651) = 0.6 StoichNum(218,652) = 0.2 - StoichNum(218,731) = -1 - StoichNum(218,780) = -1 + StoichNum(218,732) = -1 StoichNum(218,781) = -1 StoichNum(218,782) = -1 - StoichNum(218,874) = 0.5 - StoichNum(218,876) = 0.429 - StoichNum(218,877) = 0.125 - StoichNum(218,901) = 0.438 - StoichNum(218,903) = 0.571 + StoichNum(218,783) = -1 + StoichNum(218,875) = 0.5 + StoichNum(218,877) = 0.429 + StoichNum(218,878) = 0.125 + StoichNum(218,902) = 0.438 + StoichNum(218,904) = 0.571 StoichNum(219,68) = 0.32 StoichNum(219,73) = 1 StoichNum(219,84) = -1 @@ -5084,11 +5088,11 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(219,300) = -1 StoichNum(219,353) = 0.11 StoichNum(219,394) = 1 - StoichNum(219,776) = -1 StoichNum(219,777) = -1 - StoichNum(219,792) = 1 - StoichNum(219,796) = 0.32 - StoichNum(219,867) = 1 + StoichNum(219,778) = -1 + StoichNum(219,793) = 1 + StoichNum(219,797) = 0.32 + StoichNum(219,868) = 1 StoichNum(220,301) = -1 StoichNum(220,396) = -1 StoichNum(220,397) = -1 @@ -5124,9 +5128,9 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(222,380) = 0.464 StoichNum(222,382) = 0.149 StoichNum(222,383) = 0.285 - StoichNum(222,778) = -1 - StoichNum(222,796) = 0.19 - StoichNum(222,858) = 1 + StoichNum(222,779) = -1 + StoichNum(222,797) = 0.19 + StoichNum(222,859) = 1 StoichNum(223,311) = -1 StoichNum(223,312) = 1 StoichNum(223,314) = 1 @@ -5144,8 +5148,8 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(223,331) = -2 StoichNum(223,332) = -2 StoichNum(223,333) = 2 - StoichNum(223,835) = -1 - StoichNum(223,846) = 1 + StoichNum(223,836) = -1 + StoichNum(223,847) = 1 StoichNum(224,431) = 0.068 StoichNum(224,456) = 0.33 StoichNum(224,458) = 0.19 @@ -5180,9 +5184,9 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(226,570) = 0.335 StoichNum(226,592) = 0.429 StoichNum(226,593) = 0.75 - StoichNum(226,875) = -1 - StoichNum(226,891) = 0.55 - StoichNum(226,908) = 0.5 + StoichNum(226,876) = -1 + StoichNum(226,892) = 0.55 + StoichNum(226,909) = 0.5 StoichNum(227,413) = 1 StoichNum(227,414) = 0.5 StoichNum(227,418) = 0.5 @@ -5200,11 +5204,11 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(227,589) = 0.5 StoichNum(227,592) = 0.571 StoichNum(227,593) = 0.25 - StoichNum(227,878) = -1 - StoichNum(227,894) = 0.55 - StoichNum(227,900) = 0.5 - StoichNum(227,906) = 0.15 - StoichNum(227,908) = 0.5 + StoichNum(227,879) = -1 + StoichNum(227,895) = 0.55 + StoichNum(227,901) = 0.5 + StoichNum(227,907) = 0.15 + StoichNum(227,909) = 0.5 StoichNum(228,35) = 1 StoichNum(228,99) = 0.5 StoichNum(228,120) = -1 @@ -5240,16 +5244,16 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(228,653) = 0.6 StoichNum(228,654) = 0.6 StoichNum(228,655) = 0.2 - StoichNum(228,732) = -1 - StoichNum(228,783) = -1 - StoichNum(228,874) = 0.5 - StoichNum(228,875) = 0.47 - StoichNum(228,876) = 0.571 - StoichNum(228,877) = 0.125 - StoichNum(228,878) = 0.23 - StoichNum(228,901) = 0.088 - StoichNum(228,903) = 0.429 - StoichNum(228,907) = 1 + StoichNum(228,733) = -1 + StoichNum(228,784) = -1 + StoichNum(228,875) = 0.5 + StoichNum(228,876) = 0.47 + StoichNum(228,877) = 0.571 + StoichNum(228,878) = 0.125 + StoichNum(228,879) = 0.23 + StoichNum(228,902) = 0.088 + StoichNum(228,904) = 0.429 + StoichNum(228,908) = 1 StoichNum(229,503) = -1 StoichNum(229,504) = -1 StoichNum(229,505) = -1 @@ -5269,16 +5273,16 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(230,551) = 0.88 StoichNum(230,604) = 1 StoichNum(231,251) = -1 - StoichNum(231,668) = 1 - StoichNum(231,670) = 1 + StoichNum(231,669) = 1 StoichNum(231,671) = 1 - StoichNum(231,683) = -1 + StoichNum(231,672) = 1 StoichNum(231,684) = -1 StoichNum(231,685) = -1 StoichNum(231,686) = -1 StoichNum(231,687) = -1 StoichNum(231,688) = -1 - StoichNum(231,814) = -1 + StoichNum(231,689) = -1 + StoichNum(231,815) = -1 StoichNum(232,116) = -1 StoichNum(232,117) = -1 StoichNum(232,447) = 0.294 @@ -5306,16 +5310,16 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(232,629) = 1 StoichNum(232,651) = 0.9 StoichNum(232,654) = 0.95 - StoichNum(232,779) = -1 - StoichNum(232,875) = 0.53 - StoichNum(232,880) = 0.69 - StoichNum(232,899) = 0.5 - StoichNum(232,901) = 0.088 - StoichNum(232,902) = 0.25 - StoichNum(232,903) = 0.429 - StoichNum(232,905) = 0.3 - StoichNum(232,906) = 0.35 - StoichNum(232,907) = 1 + StoichNum(232,780) = -1 + StoichNum(232,876) = 0.53 + StoichNum(232,881) = 0.69 + StoichNum(232,900) = 0.5 + StoichNum(232,902) = 0.088 + StoichNum(232,903) = 0.25 + StoichNum(232,904) = 0.429 + StoichNum(232,906) = 0.3 + StoichNum(232,907) = 0.35 + StoichNum(232,908) = 1 StoichNum(233,63) = 1 StoichNum(233,64) = -1 StoichNum(233,65) = -1 @@ -5333,9 +5337,9 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(233,160) = 0.07 StoichNum(233,185) = 1 StoichNum(233,299) = 1 - StoichNum(233,775) = 0.07 - StoichNum(233,778) = 0.06 - StoichNum(233,796) = 0.05 + StoichNum(233,776) = 0.07 + StoichNum(233,779) = 0.06 + StoichNum(233,797) = 0.05 StoichNum(234,351) = 1 StoichNum(234,352) = 1 StoichNum(234,353) = -1 @@ -5360,9 +5364,9 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(235,160) = 0.5 StoichNum(235,294) = -1 StoichNum(235,363) = 0.16 - StoichNum(235,775) = 0.5 - StoichNum(235,778) = 0.425 - StoichNum(235,796) = 0.32 + StoichNum(235,776) = 0.5 + StoichNum(235,779) = 0.425 + StoichNum(235,797) = 0.32 StoichNum(236,485) = 0.4 StoichNum(236,486) = 0.4 StoichNum(236,509) = 0.07 @@ -5377,9 +5381,9 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(236,531) = 1 StoichNum(236,540) = -1 StoichNum(236,541) = -1 - StoichNum(236,896) = 0.159 - StoichNum(236,898) = -1 - StoichNum(236,899) = 0.228 + StoichNum(236,897) = 0.159 + StoichNum(236,899) = -1 + StoichNum(236,900) = 0.228 StoichNum(237,486) = 0.6 StoichNum(237,492) = 0.599 StoichNum(237,493) = 1 @@ -5395,9 +5399,9 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(237,553) = -1 StoichNum(237,560) = 1 StoichNum(237,572) = 0.438 - StoichNum(237,737) = -1 - StoichNum(237,880) = -1 - StoichNum(237,905) = 0.05 + StoichNum(237,738) = -1 + StoichNum(237,881) = -1 + StoichNum(237,906) = 0.05 StoichNum(238,444) = 1 StoichNum(238,448) = 1 StoichNum(238,452) = 1 @@ -5413,9 +5417,9 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(238,535) = 0.387 StoichNum(238,544) = 0.565 StoichNum(238,594) = -1 - StoichNum(238,753) = -1 - StoichNum(238,905) = -1 + StoichNum(238,754) = -1 StoichNum(238,906) = -1 + StoichNum(238,907) = -1 StoichNum(239,490) = 1 StoichNum(239,494) = 1 StoichNum(239,499) = 1 @@ -5427,8 +5431,8 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(239,539) = 1 StoichNum(239,544) = -1 StoichNum(239,546) = 0.18 - StoichNum(239,751) = -1 - StoichNum(239,899) = -1 + StoichNum(239,752) = -1 + StoichNum(239,900) = -1 StoichNum(240,506) = 0.465 StoichNum(240,507) = -1 StoichNum(240,509) = -2 @@ -5467,7 +5471,7 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(242,422) = -1 StoichNum(242,438) = 0.75 StoichNum(242,440) = 0.03 - StoichNum(242,897) = 0.841 + StoichNum(242,898) = 0.841 StoichNum(243,301) = 0.5 StoichNum(243,398) = 1 StoichNum(243,403) = -1 @@ -5486,7 +5490,7 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(243,426) = -1 StoichNum(243,439) = 0.51 StoichNum(243,441) = 0.03 - StoichNum(243,897) = 0.159 + StoichNum(243,898) = 0.159 StoichNum(244,396) = 0.177 StoichNum(244,401) = 0.063 StoichNum(244,405) = 1 @@ -5510,14 +5514,14 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(244,548) = -1 StoichNum(244,617) = 0.04 StoichNum(244,618) = 0.04 - StoichNum(244,784) = -1 StoichNum(244,785) = -1 StoichNum(244,786) = -1 - StoichNum(244,883) = 1 - StoichNum(244,889) = 1 - StoichNum(244,892) = 1 - StoichNum(244,895) = 0.903 - StoichNum(244,899) = 0.05 + StoichNum(244,787) = -1 + StoichNum(244,884) = 1 + StoichNum(244,890) = 1 + StoichNum(244,893) = 1 + StoichNum(244,896) = 0.903 + StoichNum(244,900) = 0.05 StoichNum(245,556) = 1 StoichNum(245,581) = -1 StoichNum(245,582) = -1 @@ -5561,16 +5565,16 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(246,584) = 1 StoichNum(246,585) = 0.7 StoichNum(246,587) = 0.25 - StoichNum(246,788) = -1 - StoichNum(246,860) = 1 - StoichNum(246,878) = 0.77 - StoichNum(246,881) = 1 - StoichNum(246,899) = 0.5 - StoichNum(246,901) = 0.438 - StoichNum(246,902) = 0.25 - StoichNum(246,903) = 0.571 - StoichNum(246,905) = 0.45 - StoichNum(246,906) = 0.8 + StoichNum(246,789) = -1 + StoichNum(246,861) = 1 + StoichNum(246,879) = 0.77 + StoichNum(246,882) = 1 + StoichNum(246,900) = 0.5 + StoichNum(246,902) = 0.438 + StoichNum(246,903) = 0.25 + StoichNum(246,904) = 0.571 + StoichNum(246,906) = 0.45 + StoichNum(246,907) = 0.8 StoichNum(247,363) = 0.79 StoichNum(247,367) = 0.308 StoichNum(247,368) = 0.308 @@ -5598,12 +5602,12 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(247,550) = -1 StoichNum(247,551) = -1 StoichNum(247,552) = -1 - StoichNum(247,787) = -1 - StoichNum(247,884) = 1 - StoichNum(247,890) = 1 - StoichNum(247,893) = 1 - StoichNum(247,895) = 0.097 - StoichNum(247,899) = 0.005 + StoichNum(247,788) = -1 + StoichNum(247,885) = 1 + StoichNum(247,891) = 1 + StoichNum(247,894) = 1 + StoichNum(247,896) = 0.097 + StoichNum(247,900) = 0.005 StoichNum(248,34) = 1 StoichNum(248,71) = -1 StoichNum(248,84) = 1 @@ -5635,8 +5639,8 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(250,160) = -1 StoichNum(250,650) = 0.33 StoichNum(250,653) = 0.33 - StoichNum(250,778) = 0.15 - StoichNum(250,786) = 1 + StoichNum(250,779) = 0.15 + StoichNum(250,787) = 1 StoichNum(251,70) = -1 StoichNum(251,77) = 1 StoichNum(251,88) = -1 @@ -5675,9 +5679,9 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(253,155) = -1 StoichNum(253,160) = 0.27 StoichNum(253,298) = 1 - StoichNum(253,775) = 0.27 - StoichNum(253,778) = 0.23 - StoichNum(253,796) = 0.18 + StoichNum(253,776) = 0.27 + StoichNum(253,779) = 0.23 + StoichNum(253,797) = 0.18 StoichNum(254,114) = -1 StoichNum(254,115) = -1 StoichNum(254,118) = -1 @@ -5688,7 +5692,7 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(254,367) = 0.192 StoichNum(254,368) = 0.192 StoichNum(254,369) = 0.385 - StoichNum(254,784) = 1 + StoichNum(254,785) = 1 StoichNum(255,64) = 1 StoichNum(255,68) = 0.14 StoichNum(255,70) = 0.57 @@ -5726,29 +5730,29 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(255,395) = 1 StoichNum(255,652) = 1.2 StoichNum(255,655) = 1.2 - StoichNum(255,775) = -1 - StoichNum(255,789) = 1 - StoichNum(255,791) = 1 - StoichNum(255,793) = 1 - StoichNum(255,796) = 0.13 - StoichNum(255,856) = 1 - StoichNum(255,859) = 1 - StoichNum(255,868) = 1 + StoichNum(255,776) = -1 + StoichNum(255,790) = 1 + StoichNum(255,792) = 1 + StoichNum(255,794) = 1 + StoichNum(255,797) = 0.13 + StoichNum(255,857) = 1 + StoichNum(255,860) = 1 + StoichNum(255,869) = 1 StoichNum(256,169) = 1 StoichNum(256,176) = 1 StoichNum(256,177) = -1 - StoichNum(256,674) = 1 - StoichNum(256,694) = -1 + StoichNum(256,675) = 1 StoichNum(256,695) = -1 StoichNum(256,696) = -1 StoichNum(256,697) = -1 StoichNum(256,698) = -1 StoichNum(256,699) = -1 StoichNum(256,700) = -1 - StoichNum(256,701) = 1 + StoichNum(256,701) = -1 StoichNum(256,702) = 1 StoichNum(256,703) = 1 - StoichNum(256,800) = -1 + StoichNum(256,704) = 1 + StoichNum(256,801) = -1 StoichNum(257,53) = 0.95 StoichNum(257,54) = 1 StoichNum(257,55) = -1 @@ -5810,24 +5814,24 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(257,596) = 1 StoichNum(257,598) = -1 StoichNum(257,623) = -1 - StoichNum(257,772) = 0.12 - StoichNum(257,774) = 0.7 - StoichNum(257,776) = 1 - StoichNum(257,778) = 0.85 - StoichNum(257,783) = 1 - StoichNum(257,785) = 1 - StoichNum(257,787) = 1 + StoichNum(257,773) = 0.12 + StoichNum(257,775) = 0.7 + StoichNum(257,777) = 1 + StoichNum(257,779) = 0.85 + StoichNum(257,784) = 1 + StoichNum(257,786) = 1 StoichNum(257,788) = 1 - StoichNum(257,851) = 1 - StoichNum(257,871) = 1 + StoichNum(257,789) = 1 + StoichNum(257,852) = 1 StoichNum(257,872) = 1 StoichNum(257,873) = 1 - StoichNum(257,874) = 0.5 - StoichNum(257,875) = 0.53 - StoichNum(257,876) = 0.429 - StoichNum(257,877) = 0.125 - StoichNum(257,879) = 0.262 - StoichNum(257,880) = 1.01 + StoichNum(257,874) = 1 + StoichNum(257,875) = 0.5 + StoichNum(257,876) = 0.53 + StoichNum(257,877) = 0.429 + StoichNum(257,878) = 0.125 + StoichNum(257,880) = 0.262 + StoichNum(257,881) = 1.01 StoichNum(258,24) = -1 StoichNum(258,36) = 1 StoichNum(258,52) = 1 @@ -5918,56 +5922,56 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(258,651) = 0.5 StoichNum(258,653) = 0.25 StoichNum(258,654) = 0.5 - StoichNum(258,763) = 1 StoichNum(258,764) = 1 - StoichNum(258,772) = 0.88 - StoichNum(258,773) = 1 - StoichNum(258,775) = 1 - StoichNum(258,777) = 1 - StoichNum(258,779) = 1 - StoichNum(258,780) = 2 + StoichNum(258,765) = 1 + StoichNum(258,773) = 0.88 + StoichNum(258,774) = 1 + StoichNum(258,776) = 1 + StoichNum(258,778) = 1 + StoichNum(258,780) = 1 StoichNum(258,781) = 2 - StoichNum(258,782) = 1 + StoichNum(258,782) = 2 StoichNum(258,783) = 1 StoichNum(258,784) = 1 StoichNum(258,785) = 1 - StoichNum(258,787) = 1 - StoichNum(258,853) = 1 - StoichNum(258,857) = 1 - StoichNum(258,870) = 1 - StoichNum(258,873) = 1 - StoichNum(258,874) = 0.5 - StoichNum(258,876) = 0.571 - StoichNum(258,877) = 0.875 - StoichNum(258,878) = 0.77 - StoichNum(258,881) = 1 + StoichNum(258,786) = 1 + StoichNum(258,788) = 1 + StoichNum(258,854) = 1 + StoichNum(258,858) = 1 + StoichNum(258,871) = 1 + StoichNum(258,874) = 1 + StoichNum(258,875) = 0.5 + StoichNum(258,877) = 0.571 + StoichNum(258,878) = 0.875 + StoichNum(258,879) = 0.77 StoichNum(258,882) = 1 - StoichNum(258,887) = 0.888 - StoichNum(258,888) = 0.818 - StoichNum(258,889) = 1 + StoichNum(258,883) = 1 + StoichNum(258,888) = 0.888 + StoichNum(258,889) = 0.818 StoichNum(258,890) = 1 - StoichNum(258,891) = 0.55 - StoichNum(258,894) = 0.55 - StoichNum(258,898) = 0.839 - StoichNum(258,900) = 1 - StoichNum(258,901) = 0.122 - StoichNum(258,904) = 1 - StoichNum(258,908) = 1 - StoichNum(258,910) = 1 - StoichNum(258,913) = 1 + StoichNum(258,891) = 1 + StoichNum(258,892) = 0.55 + StoichNum(258,895) = 0.55 + StoichNum(258,899) = 0.839 + StoichNum(258,901) = 1 + StoichNum(258,902) = 0.122 + StoichNum(258,905) = 1 + StoichNum(258,909) = 1 + StoichNum(258,911) = 1 + StoichNum(258,914) = 1 StoichNum(259,252) = -1 StoichNum(259,271) = 1 StoichNum(259,284) = -1 StoichNum(259,285) = -1 - StoichNum(259,676) = -1 StoichNum(259,677) = -1 StoichNum(259,678) = -1 StoichNum(259,679) = -1 StoichNum(259,680) = -1 StoichNum(259,681) = -1 StoichNum(259,682) = -1 - StoichNum(259,815) = -1 + StoichNum(259,683) = -1 StoichNum(259,816) = -1 + StoichNum(259,817) = -1 StoichNum(260,3) = -1 StoichNum(260,6) = -1 StoichNum(260,37) = 1 @@ -5990,14 +5994,13 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(260,630) = 0.5 StoichNum(260,632) = 1 StoichNum(260,647) = 0.5 - StoichNum(260,663) = 0.5 - StoichNum(260,664) = 1 - StoichNum(260,667) = 2 - StoichNum(260,668) = 1 - StoichNum(260,669) = 2 - StoichNum(260,670) = 1 + StoichNum(260,664) = 0.5 + StoichNum(260,665) = 1 + StoichNum(260,668) = 2 + StoichNum(260,669) = 1 + StoichNum(260,670) = 2 StoichNum(260,671) = 1 - StoichNum(260,674) = 1 + StoichNum(260,672) = 1 StoichNum(260,675) = 1 StoichNum(260,676) = 1 StoichNum(260,677) = 1 @@ -6006,12 +6009,13 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(260,680) = 1 StoichNum(260,681) = 1 StoichNum(260,682) = 1 - StoichNum(260,718) = 1 - StoichNum(260,723) = 1 + StoichNum(260,683) = 1 + StoichNum(260,719) = 1 StoichNum(260,724) = 1 StoichNum(260,725) = 1 StoichNum(260,726) = 1 - StoichNum(260,765) = -1 + StoichNum(260,727) = 1 + StoichNum(260,766) = -1 StoichNum(261,53) = -1 StoichNum(261,54) = -1 StoichNum(261,59) = 1 @@ -6055,13 +6059,13 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(261,348) = 1 StoichNum(261,349) = 1 StoichNum(261,393) = 1 - StoichNum(261,772) = -1 StoichNum(261,773) = -1 - StoichNum(261,790) = 1 - StoichNum(261,794) = 1 + StoichNum(261,774) = -1 + StoichNum(261,791) = 1 StoichNum(261,795) = 1 - StoichNum(261,796) = 0.32 - StoichNum(261,866) = 1 + StoichNum(261,796) = 1 + StoichNum(261,797) = 0.32 + StoichNum(261,867) = 1 StoichNum(262,10) = -1 StoichNum(262,11) = 1 StoichNum(262,12) = 1 @@ -6204,35 +6208,36 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(262,622) = 1 StoichNum(262,648) = 1 StoichNum(262,649) = 1 - StoichNum(262,762) = 1 - StoichNum(262,763) = -1 + StoichNum(262,662) = 1 + StoichNum(262,763) = 1 StoichNum(262,764) = -1 - StoichNum(262,779) = 0.9 - StoichNum(262,782) = 1 - StoichNum(262,785) = 1 - StoichNum(262,787) = 1 + StoichNum(262,765) = -1 + StoichNum(262,780) = 0.9 + StoichNum(262,783) = 1 + StoichNum(262,786) = 1 StoichNum(262,788) = 1 - StoichNum(262,794) = 1 - StoichNum(262,849) = 1 - StoichNum(262,851) = 1 - StoichNum(262,857) = 1 - StoichNum(262,865) = 1 - StoichNum(262,869) = 1 + StoichNum(262,789) = 1 + StoichNum(262,795) = 1 + StoichNum(262,850) = 1 + StoichNum(262,852) = 1 + StoichNum(262,858) = 1 + StoichNum(262,866) = 1 StoichNum(262,870) = 1 - StoichNum(262,872) = 1 + StoichNum(262,871) = 1 StoichNum(262,873) = 1 - StoichNum(262,875) = 0.47 - StoichNum(262,878) = 0.23 - StoichNum(262,879) = 0.75 - StoichNum(262,883) = 1 + StoichNum(262,874) = 1 + StoichNum(262,876) = 0.47 + StoichNum(262,879) = 0.23 + StoichNum(262,880) = 0.75 StoichNum(262,884) = 1 - StoichNum(262,892) = 1 + StoichNum(262,885) = 1 StoichNum(262,893) = 1 - StoichNum(262,895) = 1 - StoichNum(262,899) = 0.055 - StoichNum(262,901) = 0.1 - StoichNum(262,905) = 0.55 - StoichNum(262,906) = 0.15 + StoichNum(262,894) = 1 + StoichNum(262,896) = 1 + StoichNum(262,900) = 0.055 + StoichNum(262,902) = 0.1 + StoichNum(262,906) = 0.55 + StoichNum(262,907) = 0.15 StoichNum(263,17) = -1 StoichNum(263,25) = 1 StoichNum(263,26) = -1 @@ -6312,27 +6317,28 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(263,623) = 1 StoichNum(263,648) = -1 StoichNum(263,649) = -1 - StoichNum(263,772) = 0.88 - StoichNum(263,774) = 0.3 - StoichNum(263,776) = 1 - StoichNum(263,777) = 2 - StoichNum(263,778) = 0.15 - StoichNum(263,786) = 1 - StoichNum(263,796) = 0.18 - StoichNum(263,797) = 1 - StoichNum(263,806) = 1 + StoichNum(263,662) = -1 + StoichNum(263,773) = 0.88 + StoichNum(263,775) = 0.3 + StoichNum(263,777) = 1 + StoichNum(263,778) = 2 + StoichNum(263,779) = 0.15 + StoichNum(263,787) = 1 + StoichNum(263,797) = 0.18 + StoichNum(263,798) = 1 StoichNum(263,807) = 1 - StoichNum(263,850) = 1 - StoichNum(263,879) = 0.488 + StoichNum(263,808) = 1 + StoichNum(263,851) = 1 + StoichNum(263,880) = 0.488 StoichNum(264,326) = 1 StoichNum(264,328) = -1 StoichNum(264,329) = 1 - StoichNum(264,718) = 1 - StoichNum(264,727) = -1 + StoichNum(264,719) = 1 StoichNum(264,728) = -1 StoichNum(264,729) = -1 StoichNum(264,730) = -1 - StoichNum(264,834) = -1 + StoichNum(264,731) = -1 + StoichNum(264,835) = -1 StoichNum(265,305) = -1 StoichNum(265,307) = -1 StoichNum(265,308) = 1 @@ -6350,8 +6356,7 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(265,331) = 1 StoichNum(265,334) = 1 StoichNum(265,335) = 1 - StoichNum(265,833) = 2 - StoichNum(265,834) = 1 + StoichNum(265,834) = 2 StoichNum(265,835) = 1 StoichNum(265,836) = 1 StoichNum(265,837) = 1 @@ -6359,21 +6364,22 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(265,839) = 1 StoichNum(265,840) = 1 StoichNum(265,841) = 1 - StoichNum(265,842) = 2 - StoichNum(265,843) = 1 + StoichNum(265,842) = 1 + StoichNum(265,843) = 2 StoichNum(265,844) = 1 - StoichNum(265,847) = 1 + StoichNum(265,845) = 1 StoichNum(265,848) = 1 + StoichNum(265,849) = 1 StoichNum(266,310) = 1 StoichNum(266,311) = 1 StoichNum(266,312) = -1 StoichNum(266,313) = -1 - StoichNum(266,718) = -1 - StoichNum(266,723) = -1 + StoichNum(266,719) = -1 StoichNum(266,724) = -1 StoichNum(266,725) = -1 StoichNum(266,726) = -1 - StoichNum(266,839) = -1 + StoichNum(266,727) = -1 + StoichNum(266,840) = -1 StoichNum(267,243) = 1 StoichNum(267,247) = 1 StoichNum(267,248) = 1 @@ -6381,13 +6387,13 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(267,251) = 1 StoichNum(267,252) = 1 StoichNum(267,269) = 1 - StoichNum(267,676) = 1 - StoichNum(267,689) = -1 + StoichNum(267,677) = 1 StoichNum(267,690) = -1 StoichNum(267,691) = -1 StoichNum(267,692) = -1 StoichNum(267,693) = -1 - StoichNum(267,817) = -1 + StoichNum(267,694) = -1 + StoichNum(267,818) = -1 StoichNum(268,191) = -1 StoichNum(268,192) = -1 StoichNum(268,193) = -1 @@ -6418,8 +6424,8 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(268,240) = -1 StoichNum(268,241) = -1 StoichNum(268,242) = -1 - StoichNum(268,758) = 1 - StoichNum(268,852) = 1 + StoichNum(268,759) = 1 + StoichNum(268,853) = 1 StoichNum(269,1) = -1 StoichNum(269,4) = -1 StoichNum(269,8) = -1 @@ -6455,11 +6461,11 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(269,644) = -1 StoichNum(269,651) = -1 StoichNum(269,654) = -1 - StoichNum(269,701) = -1 StoichNum(269,702) = -1 StoichNum(269,703) = -1 - StoichNum(269,757) = -1 + StoichNum(269,704) = -1 StoichNum(269,758) = -1 + StoichNum(269,759) = -1 StoichNum(270,13) = 1 StoichNum(270,16) = -1 StoichNum(270,22) = 1 @@ -6612,46 +6618,47 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(270,645) = -1 StoichNum(270,646) = 0.5 StoichNum(270,647) = 1 - StoichNum(270,663) = -1 - StoichNum(270,760) = -1 - StoichNum(270,765) = 1 - StoichNum(270,768) = 1 + StoichNum(270,662) = 1 + StoichNum(270,664) = -1 + StoichNum(270,761) = -1 + StoichNum(270,766) = 1 StoichNum(270,769) = 1 - StoichNum(270,771) = 1 - StoichNum(270,774) = 0.7 - StoichNum(270,789) = 1 - StoichNum(270,796) = 1 - StoichNum(270,802) = 1 + StoichNum(270,770) = 1 + StoichNum(270,772) = 1 + StoichNum(270,775) = 0.7 + StoichNum(270,790) = 1 + StoichNum(270,797) = 1 StoichNum(270,803) = 1 - StoichNum(270,814) = 1 - StoichNum(270,816) = 1 - StoichNum(270,838) = 1 - StoichNum(270,850) = 1 - StoichNum(270,857) = 1 + StoichNum(270,804) = 1 + StoichNum(270,815) = 1 + StoichNum(270,817) = 1 + StoichNum(270,839) = 1 + StoichNum(270,851) = 1 StoichNum(270,858) = 1 StoichNum(270,859) = 1 StoichNum(270,860) = 1 - StoichNum(270,862) = 1 - StoichNum(270,864) = 1 + StoichNum(270,861) = 1 + StoichNum(270,863) = 1 StoichNum(270,865) = 1 StoichNum(270,866) = 1 StoichNum(270,867) = 1 StoichNum(270,868) = 1 - StoichNum(270,872) = 1 - StoichNum(270,880) = 0.7 - StoichNum(270,881) = 1 - StoichNum(270,891) = 1 + StoichNum(270,869) = 1 + StoichNum(270,873) = 1 + StoichNum(270,881) = 0.7 + StoichNum(270,882) = 1 StoichNum(270,892) = 1 StoichNum(270,893) = 1 StoichNum(270,894) = 1 StoichNum(270,895) = 1 - StoichNum(270,897) = 1 + StoichNum(270,896) = 1 StoichNum(270,898) = 1 - StoichNum(270,899) = 1.555 - StoichNum(270,905) = 0.3 - StoichNum(270,906) = 1 + StoichNum(270,899) = 1 + StoichNum(270,900) = 1.555 + StoichNum(270,906) = 0.3 StoichNum(270,907) = 1 StoichNum(270,908) = 1 + StoichNum(270,909) = 1 StoichNum(271,2) = -1 StoichNum(271,5) = -1 StoichNum(271,224) = -0.91 @@ -6677,13 +6684,13 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(271,301) = 1 StoichNum(271,302) = 1 StoichNum(271,303) = 1 - StoichNum(271,668) = -1 - StoichNum(271,675) = -1 - StoichNum(271,677) = -1 - StoichNum(271,685) = -1 - StoichNum(271,689) = -1 - StoichNum(271,693) = 1 - StoichNum(271,695) = -1 + StoichNum(271,669) = -1 + StoichNum(271,676) = -1 + StoichNum(271,678) = -1 + StoichNum(271,686) = -1 + StoichNum(271,690) = -1 + StoichNum(271,694) = 1 + StoichNum(271,696) = -1 StoichNum(272,170) = 1 StoichNum(272,171) = -1 StoichNum(272,178) = -1 @@ -6694,14 +6701,14 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(272,185) = 1 StoichNum(272,225) = -0.8 StoichNum(272,304) = 1 - StoichNum(272,678) = -1 - StoichNum(272,688) = -1 - StoichNum(272,690) = -1 - StoichNum(272,694) = -1 - StoichNum(272,700) = 1 - StoichNum(272,701) = -1 - StoichNum(272,704) = -1 + StoichNum(272,679) = -1 + StoichNum(272,689) = -1 + StoichNum(272,691) = -1 + StoichNum(272,695) = -1 + StoichNum(272,701) = 1 + StoichNum(272,702) = -1 StoichNum(272,705) = -1 + StoichNum(272,706) = -1 StoichNum(273,18) = 1 StoichNum(273,20) = 1 StoichNum(273,21) = 1 @@ -6743,19 +6750,19 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(273,342) = -2 StoichNum(273,349) = -1 StoichNum(273,350) = -1 - StoichNum(273,662) = 1 - StoichNum(273,667) = -1 - StoichNum(273,674) = -1 - StoichNum(273,676) = -1 - StoichNum(273,689) = 1 + StoichNum(273,663) = 1 + StoichNum(273,668) = -1 + StoichNum(273,675) = -1 + StoichNum(273,677) = -1 StoichNum(273,690) = 1 StoichNum(273,691) = 1 StoichNum(273,692) = 1 - StoichNum(273,694) = 1 + StoichNum(273,693) = 1 StoichNum(273,695) = 1 StoichNum(273,696) = 1 StoichNum(273,697) = 1 - StoichNum(273,718) = -1 + StoichNum(273,698) = 1 + StoichNum(273,719) = -1 StoichNum(274,168) = 1 StoichNum(274,169) = -1 StoichNum(274,172) = -2 @@ -6779,24 +6786,24 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(274,314) = -1 StoichNum(274,315) = -1 StoichNum(274,316) = -1 - StoichNum(274,799) = -1 - StoichNum(274,802) = 1 - StoichNum(275,679) = -1 - StoichNum(275,686) = -1 - StoichNum(275,698) = -1 - StoichNum(275,702) = -1 - StoichNum(275,704) = 1 - StoichNum(275,719) = -1 - StoichNum(275,723) = -1 - StoichNum(275,727) = -1 - StoichNum(276,680) = -1 - StoichNum(276,687) = -1 - StoichNum(276,699) = -1 - StoichNum(276,703) = -1 - StoichNum(276,705) = 1 - StoichNum(276,720) = -1 - StoichNum(276,724) = -1 - StoichNum(276,728) = -1 + StoichNum(274,800) = -1 + StoichNum(274,803) = 1 + StoichNum(275,680) = -1 + StoichNum(275,687) = -1 + StoichNum(275,699) = -1 + StoichNum(275,703) = -1 + StoichNum(275,705) = 1 + StoichNum(275,720) = -1 + StoichNum(275,724) = -1 + StoichNum(275,728) = -1 + StoichNum(276,681) = -1 + StoichNum(276,688) = -1 + StoichNum(276,700) = -1 + StoichNum(276,704) = -1 + StoichNum(276,706) = 1 + StoichNum(276,721) = -1 + StoichNum(276,725) = -1 + StoichNum(276,729) = -1 StoichNum(277,224) = 0.24 StoichNum(277,226) = 0.75 StoichNum(277,227) = 0.86 @@ -6836,19 +6843,19 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(277,321) = -1 StoichNum(277,322) = -1 StoichNum(277,323) = -1 - StoichNum(277,811) = -1 - StoichNum(277,812) = 1 - StoichNum(277,816) = 1 + StoichNum(277,812) = -1 + StoichNum(277,813) = 1 + StoichNum(277,817) = 1 StoichNum(278,2) = 1 - StoichNum(278,670) = -1 - StoichNum(278,672) = -1 - StoichNum(278,681) = -1 - StoichNum(278,683) = -1 - StoichNum(278,691) = -1 - StoichNum(278,696) = -1 - StoichNum(278,721) = -1 - StoichNum(278,725) = -1 - StoichNum(278,729) = -1 + StoichNum(278,671) = -1 + StoichNum(278,673) = -1 + StoichNum(278,682) = -1 + StoichNum(278,684) = -1 + StoichNum(278,692) = -1 + StoichNum(278,697) = -1 + StoichNum(278,722) = -1 + StoichNum(278,726) = -1 + StoichNum(278,730) = -1 StoichNum(279,12) = -1 StoichNum(279,14) = -1 StoichNum(279,15) = 1 @@ -7095,60 +7102,60 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(279,651) = 0.1 StoichNum(279,653) = -0.75 StoichNum(279,654) = 0.1 - StoichNum(279,672) = -1 StoichNum(279,673) = -1 - StoichNum(279,761) = 2 - StoichNum(279,762) = 1 - StoichNum(279,765) = 1 + StoichNum(279,674) = -1 + StoichNum(279,762) = 2 + StoichNum(279,763) = 1 StoichNum(279,766) = 1 StoichNum(279,767) = 1 - StoichNum(279,779) = 0.07 - StoichNum(279,789) = 1 + StoichNum(279,768) = 1 + StoichNum(279,780) = 0.07 StoichNum(279,790) = 1 StoichNum(279,791) = 1 StoichNum(279,792) = 1 StoichNum(279,793) = 1 StoichNum(279,794) = 1 StoichNum(279,795) = 1 - StoichNum(279,797) = 1 - StoichNum(279,800) = 1 - StoichNum(279,817) = 1 - StoichNum(279,834) = 1 - StoichNum(279,851) = 1 - StoichNum(279,854) = 2 - StoichNum(279,856) = 1 - StoichNum(279,869) = 2 - StoichNum(279,870) = 1 - StoichNum(279,875) = 1 + StoichNum(279,796) = 1 + StoichNum(279,798) = 1 + StoichNum(279,801) = 1 + StoichNum(279,818) = 1 + StoichNum(279,835) = 1 + StoichNum(279,852) = 1 + StoichNum(279,855) = 2 + StoichNum(279,857) = 1 + StoichNum(279,870) = 2 + StoichNum(279,871) = 1 StoichNum(279,876) = 1 - StoichNum(279,877) = 1.75 - StoichNum(279,878) = 1 - StoichNum(279,879) = 0.75 - StoichNum(279,880) = 0.01 - StoichNum(279,882) = 1 + StoichNum(279,877) = 1 + StoichNum(279,878) = 1.75 + StoichNum(279,879) = 1 + StoichNum(279,880) = 0.75 + StoichNum(279,881) = 0.01 StoichNum(279,883) = 1 StoichNum(279,884) = 1 StoichNum(279,885) = 1 StoichNum(279,886) = 1 - StoichNum(279,887) = 1.662 - StoichNum(279,888) = 1.637 - StoichNum(279,889) = 1 + StoichNum(279,887) = 1 + StoichNum(279,888) = 1.662 + StoichNum(279,889) = 1.637 StoichNum(279,890) = 1 - StoichNum(279,891) = 0.55 - StoichNum(279,894) = 0.55 - StoichNum(279,895) = 0.67 - StoichNum(279,896) = 1 - StoichNum(279,898) = 0.645 - StoichNum(279,900) = 0.5 - StoichNum(279,901) = 1 - StoichNum(279,902) = 1.25 - StoichNum(279,903) = 1 - StoichNum(279,904) = 0.546 - StoichNum(279,905) = 1 - StoichNum(279,906) = 0.3 - StoichNum(279,907) = 1 - StoichNum(279,909) = 1 - StoichNum(279,911) = 1 + StoichNum(279,891) = 1 + StoichNum(279,892) = 0.55 + StoichNum(279,895) = 0.55 + StoichNum(279,896) = 0.67 + StoichNum(279,897) = 1 + StoichNum(279,899) = 0.645 + StoichNum(279,901) = 0.5 + StoichNum(279,902) = 1 + StoichNum(279,903) = 1.25 + StoichNum(279,904) = 1 + StoichNum(279,905) = 0.546 + StoichNum(279,906) = 1 + StoichNum(279,907) = 0.3 + StoichNum(279,908) = 1 + StoichNum(279,910) = 1 + StoichNum(279,912) = 1 StoichNum(280,13) = -1 StoichNum(280,22) = -1 StoichNum(280,26) = -1 @@ -7243,11 +7250,11 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(280,620) = -1 StoichNum(280,634) = -1 StoichNum(280,640) = -1 - StoichNum(280,760) = 1 - StoichNum(280,766) = 1 - StoichNum(280,770) = 1 - StoichNum(280,837) = 1 - StoichNum(280,855) = -1 + StoichNum(280,761) = 1 + StoichNum(280,767) = 1 + StoichNum(280,771) = 1 + StoichNum(280,838) = 1 + StoichNum(280,856) = -1 StoichNum(281,14) = 1 StoichNum(281,15) = -1 StoichNum(281,17) = 1 @@ -7498,17 +7505,17 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(281,653) = 0.33 StoichNum(281,654) = 0.1 StoichNum(281,655) = 0.2 - StoichNum(281,662) = -1 - StoichNum(281,762) = 1 + StoichNum(281,662) = 1 + StoichNum(281,663) = -1 StoichNum(281,763) = 1 - StoichNum(281,768) = 1 - StoichNum(281,772) = 1 - StoichNum(281,775) = 1 - StoichNum(281,779) = 1.73 - StoichNum(281,780) = 2 - StoichNum(281,783) = 1 - StoichNum(281,785) = 1 - StoichNum(281,787) = 1 + StoichNum(281,764) = 1 + StoichNum(281,769) = 1 + StoichNum(281,773) = 1 + StoichNum(281,776) = 1 + StoichNum(281,780) = 1.73 + StoichNum(281,781) = 2 + StoichNum(281,784) = 1 + StoichNum(281,786) = 1 StoichNum(281,788) = 1 StoichNum(281,789) = 1 StoichNum(281,790) = 1 @@ -7517,61 +7524,62 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(281,793) = 1 StoichNum(281,794) = 1 StoichNum(281,795) = 1 - StoichNum(281,796) = 0.27 - StoichNum(281,849) = 1 - StoichNum(281,856) = 1 + StoichNum(281,796) = 1 + StoichNum(281,797) = 0.27 + StoichNum(281,850) = 1 StoichNum(281,857) = 1 - StoichNum(281,865) = 1 + StoichNum(281,858) = 1 StoichNum(281,866) = 1 StoichNum(281,867) = 1 StoichNum(281,868) = 1 - StoichNum(281,870) = 1 + StoichNum(281,869) = 1 StoichNum(281,871) = 1 - StoichNum(281,873) = 1 - StoichNum(281,874) = 1.5 - StoichNum(281,875) = 0.47 - StoichNum(281,876) = 0.571 - StoichNum(281,877) = 0.125 - StoichNum(281,878) = 1 - StoichNum(281,880) = 0.29 - StoichNum(281,881) = 1 + StoichNum(281,872) = 1 + StoichNum(281,874) = 1 + StoichNum(281,875) = 1.5 + StoichNum(281,876) = 0.47 + StoichNum(281,877) = 0.571 + StoichNum(281,878) = 0.125 + StoichNum(281,879) = 1 + StoichNum(281,881) = 0.29 StoichNum(281,882) = 1 StoichNum(281,883) = 1 StoichNum(281,884) = 1 StoichNum(281,885) = 1 StoichNum(281,886) = 1 - StoichNum(281,887) = 0.112 - StoichNum(281,888) = 0.182 - StoichNum(281,889) = 1 + StoichNum(281,887) = 1 + StoichNum(281,888) = 0.112 + StoichNum(281,889) = 0.182 StoichNum(281,890) = 1 - StoichNum(281,891) = 0.45 - StoichNum(281,892) = 1 + StoichNum(281,891) = 1 + StoichNum(281,892) = 0.45 StoichNum(281,893) = 1 - StoichNum(281,894) = 0.45 - StoichNum(281,895) = 0.33 - StoichNum(281,896) = 0.159 - StoichNum(281,898) = 0.161 - StoichNum(281,899) = 0.228 - StoichNum(281,900) = 1.5 - StoichNum(281,901) = 1 - StoichNum(281,902) = 0.75 - StoichNum(281,903) = 1 - StoichNum(281,904) = 1.454 - StoichNum(281,905) = 0.7 + StoichNum(281,894) = 1 + StoichNum(281,895) = 0.45 + StoichNum(281,896) = 0.33 + StoichNum(281,897) = 0.159 + StoichNum(281,899) = 0.161 + StoichNum(281,900) = 0.228 + StoichNum(281,901) = 1.5 + StoichNum(281,902) = 1 + StoichNum(281,903) = 0.75 + StoichNum(281,904) = 1 + StoichNum(281,905) = 1.454 StoichNum(281,906) = 0.7 - StoichNum(281,908) = 1 - StoichNum(281,910) = 1 - StoichNum(281,913) = 1 + StoichNum(281,907) = 0.7 + StoichNum(281,909) = 1 + StoichNum(281,911) = 1 + StoichNum(281,914) = 1 StoichNum(282,5) = 1 - StoichNum(282,671) = -1 - StoichNum(282,673) = -1 - StoichNum(282,682) = -1 - StoichNum(282,684) = -1 - StoichNum(282,692) = -1 - StoichNum(282,697) = -1 - StoichNum(282,722) = -1 - StoichNum(282,726) = -1 - StoichNum(282,730) = -1 + StoichNum(282,672) = -1 + StoichNum(282,674) = -1 + StoichNum(282,683) = -1 + StoichNum(282,685) = -1 + StoichNum(282,693) = -1 + StoichNum(282,698) = -1 + StoichNum(282,723) = -1 + StoichNum(282,727) = -1 + StoichNum(282,731) = -1 StoichNum(283,16) = 1 StoichNum(283,38) = 1 StoichNum(283,44) = -1 @@ -7629,18 +7637,19 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(283,639) = 1 StoichNum(283,641) = -1 StoichNum(283,647) = -1 - StoichNum(283,664) = -1 + StoichNum(283,662) = -1 StoichNum(283,665) = -1 StoichNum(283,666) = -1 - StoichNum(283,767) = 1 - StoichNum(283,769) = -1 + StoichNum(283,667) = -1 + StoichNum(283,768) = 1 StoichNum(283,770) = -1 - StoichNum(283,771) = 1 - StoichNum(283,774) = 0.3 - StoichNum(283,801) = 1 - StoichNum(283,815) = 1 - StoichNum(283,839) = 1 - StoichNum(283,849) = 1 + StoichNum(283,771) = -1 + StoichNum(283,772) = 1 + StoichNum(283,775) = 0.3 + StoichNum(283,802) = 1 + StoichNum(283,816) = 1 + StoichNum(283,840) = 1 + StoichNum(283,850) = 1 StoichNum(284,18) = 1 StoichNum(284,177) = -1 StoichNum(284,178) = -1 @@ -7683,15 +7692,15 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(284,242) = 0.25 StoichNum(284,268) = -1 StoichNum(284,284) = -1 - StoichNum(284,757) = 1 - StoichNum(284,759) = 2 - StoichNum(284,760) = 1 - StoichNum(284,769) = 1 - StoichNum(284,799) = 1 - StoichNum(284,811) = 1 + StoichNum(284,758) = 1 + StoichNum(284,760) = 2 + StoichNum(284,761) = 1 + StoichNum(284,770) = 1 + StoichNum(284,800) = 1 StoichNum(284,812) = 1 - StoichNum(284,835) = 1 - StoichNum(284,855) = 1 + StoichNum(284,813) = 1 + StoichNum(284,836) = 1 + StoichNum(284,856) = 1 StoichNum(285,224) = 0.67 StoichNum(285,226) = 0.75 StoichNum(285,227) = 2.58 @@ -7749,30 +7758,30 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(285,302) = -1 StoichNum(285,303) = -1 StoichNum(285,322) = 1 - StoichNum(285,807) = 1 - StoichNum(285,808) = 2 - StoichNum(285,809) = 1 - StoichNum(285,810) = 2 - StoichNum(285,811) = 1 - StoichNum(285,813) = 1 + StoichNum(285,808) = 1 + StoichNum(285,809) = 2 + StoichNum(285,810) = 1 + StoichNum(285,811) = 2 + StoichNum(285,812) = 1 StoichNum(285,814) = 1 StoichNum(285,815) = 1 - StoichNum(285,817) = 1 - StoichNum(285,818) = 3 - StoichNum(285,819) = 4 - StoichNum(285,820) = 3 - StoichNum(285,821) = 2 - StoichNum(285,822) = 3 - StoichNum(285,823) = 2 - StoichNum(285,824) = 1 - StoichNum(285,825) = 2 + StoichNum(285,816) = 1 + StoichNum(285,818) = 1 + StoichNum(285,819) = 3 + StoichNum(285,820) = 4 + StoichNum(285,821) = 3 + StoichNum(285,822) = 2 + StoichNum(285,823) = 3 + StoichNum(285,824) = 2 + StoichNum(285,825) = 1 StoichNum(285,826) = 2 - StoichNum(285,827) = 1 + StoichNum(285,827) = 2 StoichNum(285,828) = 1 - StoichNum(285,830) = 1 - StoichNum(285,832) = 1 - StoichNum(285,843) = 1 - StoichNum(285,848) = 1 + StoichNum(285,829) = 1 + StoichNum(285,831) = 1 + StoichNum(285,833) = 1 + StoichNum(285,844) = 1 + StoichNum(285,849) = 1 StoichNum(286,1) = -1 StoichNum(286,4) = -1 StoichNum(286,7) = -1 @@ -7789,10 +7798,10 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(286,208) = 1 StoichNum(286,344) = -1 StoichNum(286,348) = -1 - StoichNum(286,693) = -1 - StoichNum(286,700) = -1 - StoichNum(286,853) = 1 + StoichNum(286,694) = -1 + StoichNum(286,701) = -1 StoichNum(286,854) = 1 + StoichNum(286,855) = 1 StoichNum(287,168) = -1 StoichNum(287,170) = -1 StoichNum(287,171) = 1 @@ -7825,20 +7834,20 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(287,314) = 1 StoichNum(287,315) = 1 StoichNum(287,316) = 1 - StoichNum(287,798) = 2 - StoichNum(287,799) = 1 + StoichNum(287,799) = 2 StoichNum(287,800) = 1 StoichNum(287,801) = 1 - StoichNum(287,803) = 1 - StoichNum(287,804) = 3 - StoichNum(287,805) = 2 - StoichNum(287,806) = 1 - StoichNum(287,809) = 1 - StoichNum(287,829) = 1 + StoichNum(287,802) = 1 + StoichNum(287,804) = 1 + StoichNum(287,805) = 3 + StoichNum(287,806) = 2 + StoichNum(287,807) = 1 + StoichNum(287,810) = 1 StoichNum(287,830) = 1 - StoichNum(287,831) = 2 - StoichNum(287,844) = 1 - StoichNum(287,847) = 1 + StoichNum(287,831) = 1 + StoichNum(287,832) = 2 + StoichNum(287,845) = 1 + StoichNum(287,848) = 1 END SUBROUTINE CalcStoichNum diff --git a/KPP/fullchem/gckpp_Jacobian.F90 b/KPP/fullchem/gckpp_Jacobian.F90 index ab826d616..22ad416a1 100644 --- a/KPP/fullchem/gckpp_Jacobian.F90 +++ b/KPP/fullchem/gckpp_Jacobian.F90 @@ -58,7 +58,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! Local variables ! B - Temporary array - REAL(kind=dp) :: B(1554) + REAL(kind=dp) :: B(1556) ! B(1) = dA(1)/dV(144) B(1) = RCT(1)*V(269)*V(286) @@ -2544,644 +2544,648 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) B(1252) = RCT(661)*V(280) ! B(1253) = dA(661)/dV(280) B(1253) = RCT(661)*V(26) -! B(1254) = dA(662)/dV(281) - B(1254) = RCT(662) -! B(1255) = dA(663)/dV(270) - B(1255) = RCT(663) -! B(1256) = dA(664)/dV(283) - B(1256) = RCT(664) -! B(1257) = dA(665)/dV(283) - B(1257) = RCT(665) -! B(1258) = dA(666)/dV(283) - B(1258) = RCT(666) -! B(1259) = dA(667)/dV(169) - B(1259) = RCT(667)*V(273) -! B(1260) = dA(667)/dV(273) - B(1260) = RCT(667)*V(169) +! B(1254) = dA(662)/dV(263) + B(1254) = RCT(662)*V(283) +! B(1255) = dA(662)/dV(283) + B(1255) = RCT(662)*V(263) +! B(1256) = dA(663)/dV(281) + B(1256) = RCT(663) +! B(1257) = dA(664)/dV(270) + B(1257) = RCT(664) +! B(1258) = dA(665)/dV(283) + B(1258) = RCT(665) +! B(1259) = dA(666)/dV(283) + B(1259) = RCT(666) +! B(1260) = dA(667)/dV(283) + B(1260) = RCT(667) ! B(1261) = dA(668)/dV(169) - B(1261) = RCT(668)*V(271) -! B(1262) = dA(668)/dV(271) + B(1261) = RCT(668)*V(273) +! B(1262) = dA(668)/dV(273) B(1262) = RCT(668)*V(169) ! B(1263) = dA(669)/dV(169) - B(1263) = RCT(669) -! B(1264) = dA(670)/dV(169) - B(1264) = RCT(670)*V(278) -! B(1265) = dA(670)/dV(278) - B(1265) = RCT(670)*V(169) + B(1263) = RCT(669)*V(271) +! B(1264) = dA(669)/dV(271) + B(1264) = RCT(669)*V(169) +! B(1265) = dA(670)/dV(169) + B(1265) = RCT(670) ! B(1266) = dA(671)/dV(169) - B(1266) = RCT(671)*V(282) -! B(1267) = dA(671)/dV(282) + B(1266) = RCT(671)*V(278) +! B(1267) = dA(671)/dV(278) B(1267) = RCT(671)*V(169) -! B(1268) = dA(672)/dV(278) - B(1268) = RCT(672)*V(279) -! B(1269) = dA(672)/dV(279) - B(1269) = RCT(672)*V(278) -! B(1270) = dA(673)/dV(279) - B(1270) = RCT(673)*V(282) -! B(1271) = dA(673)/dV(282) - B(1271) = RCT(673)*V(279) -! B(1272) = dA(674)/dV(172) - B(1272) = RCT(674)*V(273) -! B(1273) = dA(674)/dV(273) - B(1273) = RCT(674)*V(172) +! B(1268) = dA(672)/dV(169) + B(1268) = RCT(672)*V(282) +! B(1269) = dA(672)/dV(282) + B(1269) = RCT(672)*V(169) +! B(1270) = dA(673)/dV(278) + B(1270) = RCT(673)*V(279) +! B(1271) = dA(673)/dV(279) + B(1271) = RCT(673)*V(278) +! B(1272) = dA(674)/dV(279) + B(1272) = RCT(674)*V(282) +! B(1273) = dA(674)/dV(282) + B(1273) = RCT(674)*V(279) ! B(1274) = dA(675)/dV(172) - B(1274) = RCT(675)*V(271) -! B(1275) = dA(675)/dV(271) + B(1274) = RCT(675)*V(273) +! B(1275) = dA(675)/dV(273) B(1275) = RCT(675)*V(172) -! B(1276) = dA(676)/dV(259) - B(1276) = RCT(676)*V(273) -! B(1277) = dA(676)/dV(273) - B(1277) = RCT(676)*V(259) +! B(1276) = dA(676)/dV(172) + B(1276) = RCT(676)*V(271) +! B(1277) = dA(676)/dV(271) + B(1277) = RCT(676)*V(172) ! B(1278) = dA(677)/dV(259) - B(1278) = RCT(677)*V(271) -! B(1279) = dA(677)/dV(271) + B(1278) = RCT(677)*V(273) +! B(1279) = dA(677)/dV(273) B(1279) = RCT(677)*V(259) ! B(1280) = dA(678)/dV(259) - B(1280) = RCT(678)*V(272) -! B(1281) = dA(678)/dV(272) + B(1280) = RCT(678)*V(271) +! B(1281) = dA(678)/dV(271) B(1281) = RCT(678)*V(259) ! B(1282) = dA(679)/dV(259) - B(1282) = RCT(679)*V(275) -! B(1283) = dA(679)/dV(275) + B(1282) = RCT(679)*V(272) +! B(1283) = dA(679)/dV(272) B(1283) = RCT(679)*V(259) ! B(1284) = dA(680)/dV(259) - B(1284) = RCT(680)*V(276) -! B(1285) = dA(680)/dV(276) + B(1284) = RCT(680)*V(275) +! B(1285) = dA(680)/dV(275) B(1285) = RCT(680)*V(259) ! B(1286) = dA(681)/dV(259) - B(1286) = RCT(681)*V(278) -! B(1287) = dA(681)/dV(278) + B(1286) = RCT(681)*V(276) +! B(1287) = dA(681)/dV(276) B(1287) = RCT(681)*V(259) ! B(1288) = dA(682)/dV(259) - B(1288) = RCT(682)*V(282) -! B(1289) = dA(682)/dV(282) + B(1288) = RCT(682)*V(278) +! B(1289) = dA(682)/dV(278) B(1289) = RCT(682)*V(259) -! B(1290) = dA(683)/dV(231) - B(1290) = RCT(683)*V(278) -! B(1291) = dA(683)/dV(278) - B(1291) = RCT(683)*V(231) +! B(1290) = dA(683)/dV(259) + B(1290) = RCT(683)*V(282) +! B(1291) = dA(683)/dV(282) + B(1291) = RCT(683)*V(259) ! B(1292) = dA(684)/dV(231) - B(1292) = RCT(684)*V(282) -! B(1293) = dA(684)/dV(282) + B(1292) = RCT(684)*V(278) +! B(1293) = dA(684)/dV(278) B(1293) = RCT(684)*V(231) ! B(1294) = dA(685)/dV(231) - B(1294) = RCT(685)*V(271) -! B(1295) = dA(685)/dV(271) + B(1294) = RCT(685)*V(282) +! B(1295) = dA(685)/dV(282) B(1295) = RCT(685)*V(231) ! B(1296) = dA(686)/dV(231) - B(1296) = RCT(686)*V(275) -! B(1297) = dA(686)/dV(275) + B(1296) = RCT(686)*V(271) +! B(1297) = dA(686)/dV(271) B(1297) = RCT(686)*V(231) ! B(1298) = dA(687)/dV(231) - B(1298) = RCT(687)*V(276) -! B(1299) = dA(687)/dV(276) + B(1298) = RCT(687)*V(275) +! B(1299) = dA(687)/dV(275) B(1299) = RCT(687)*V(231) ! B(1300) = dA(688)/dV(231) - B(1300) = RCT(688)*V(272) -! B(1301) = dA(688)/dV(272) + B(1300) = RCT(688)*V(276) +! B(1301) = dA(688)/dV(276) B(1301) = RCT(688)*V(231) -! B(1302) = dA(689)/dV(267) - B(1302) = RCT(689)*V(271) -! B(1303) = dA(689)/dV(271) - B(1303) = RCT(689)*V(267) +! B(1302) = dA(689)/dV(231) + B(1302) = RCT(689)*V(272) +! B(1303) = dA(689)/dV(272) + B(1303) = RCT(689)*V(231) ! B(1304) = dA(690)/dV(267) - B(1304) = RCT(690)*V(272) -! B(1305) = dA(690)/dV(272) + B(1304) = RCT(690)*V(271) +! B(1305) = dA(690)/dV(271) B(1305) = RCT(690)*V(267) ! B(1306) = dA(691)/dV(267) - B(1306) = RCT(691)*V(278) -! B(1307) = dA(691)/dV(278) + B(1306) = RCT(691)*V(272) +! B(1307) = dA(691)/dV(272) B(1307) = RCT(691)*V(267) ! B(1308) = dA(692)/dV(267) - B(1308) = RCT(692)*V(282) -! B(1309) = dA(692)/dV(282) + B(1308) = RCT(692)*V(278) +! B(1309) = dA(692)/dV(278) B(1309) = RCT(692)*V(267) ! B(1310) = dA(693)/dV(267) - B(1310) = RCT(693)*V(286) -! B(1311) = dA(693)/dV(286) + B(1310) = RCT(693)*V(282) +! B(1311) = dA(693)/dV(282) B(1311) = RCT(693)*V(267) -! B(1312) = dA(694)/dV(256) - B(1312) = RCT(694)*V(272) -! B(1313) = dA(694)/dV(272) - B(1313) = RCT(694)*V(256) +! B(1312) = dA(694)/dV(267) + B(1312) = RCT(694)*V(286) +! B(1313) = dA(694)/dV(286) + B(1313) = RCT(694)*V(267) ! B(1314) = dA(695)/dV(256) - B(1314) = RCT(695)*V(271) -! B(1315) = dA(695)/dV(271) + B(1314) = RCT(695)*V(272) +! B(1315) = dA(695)/dV(272) B(1315) = RCT(695)*V(256) ! B(1316) = dA(696)/dV(256) - B(1316) = RCT(696)*V(278) -! B(1317) = dA(696)/dV(278) + B(1316) = RCT(696)*V(271) +! B(1317) = dA(696)/dV(271) B(1317) = RCT(696)*V(256) ! B(1318) = dA(697)/dV(256) - B(1318) = RCT(697)*V(282) -! B(1319) = dA(697)/dV(282) + B(1318) = RCT(697)*V(278) +! B(1319) = dA(697)/dV(278) B(1319) = RCT(697)*V(256) ! B(1320) = dA(698)/dV(256) - B(1320) = RCT(698)*V(275) -! B(1321) = dA(698)/dV(275) + B(1320) = RCT(698)*V(282) +! B(1321) = dA(698)/dV(282) B(1321) = RCT(698)*V(256) ! B(1322) = dA(699)/dV(256) - B(1322) = RCT(699)*V(276) -! B(1323) = dA(699)/dV(276) + B(1322) = RCT(699)*V(275) +! B(1323) = dA(699)/dV(275) B(1323) = RCT(699)*V(256) ! B(1324) = dA(700)/dV(256) - B(1324) = RCT(700)*V(286) -! B(1325) = dA(700)/dV(286) + B(1324) = RCT(700)*V(276) +! B(1325) = dA(700)/dV(276) B(1325) = RCT(700)*V(256) -! B(1326) = dA(701)/dV(269) - B(1326) = RCT(701)*V(272) -! B(1327) = dA(701)/dV(272) - B(1327) = RCT(701)*V(269) +! B(1326) = dA(701)/dV(256) + B(1326) = RCT(701)*V(286) +! B(1327) = dA(701)/dV(286) + B(1327) = RCT(701)*V(256) ! B(1328) = dA(702)/dV(269) - B(1328) = RCT(702)*V(275) -! B(1329) = dA(702)/dV(275) + B(1328) = RCT(702)*V(272) +! B(1329) = dA(702)/dV(272) B(1329) = RCT(702)*V(269) ! B(1330) = dA(703)/dV(269) - B(1330) = RCT(703)*V(276) -! B(1331) = dA(703)/dV(276) + B(1330) = RCT(703)*V(275) +! B(1331) = dA(703)/dV(275) B(1331) = RCT(703)*V(269) -! B(1332) = dA(704)/dV(272) - B(1332) = RCT(704) -! B(1333) = dA(705)/dV(272) - B(1333) = RCT(705) -! B(1334) = dA(706)/dV(65) - B(1334) = RCT(706) -! B(1335) = dA(707)/dV(65) - B(1335) = RCT(707) -! B(1336) = dA(708)/dV(65) - B(1336) = RCT(708) -! B(1337) = dA(709)/dV(40) - B(1337) = RCT(709) -! B(1338) = dA(710)/dV(40) - B(1338) = RCT(710) -! B(1339) = dA(711)/dV(40) - B(1339) = RCT(711) -! B(1340) = dA(712)/dV(47) - B(1340) = RCT(712) -! B(1341) = dA(713)/dV(47) - B(1341) = RCT(713) -! B(1342) = dA(714)/dV(47) - B(1342) = RCT(714) -! B(1343) = dA(715)/dV(38) - B(1343) = RCT(715) -! B(1344) = dA(716)/dV(38) - B(1344) = RCT(716) -! B(1345) = dA(717)/dV(38) - B(1345) = RCT(717) -! B(1346) = dA(718)/dV(266) - B(1346) = RCT(718)*V(273) -! B(1347) = dA(718)/dV(273) - B(1347) = RCT(718)*V(266) -! B(1348) = dA(719)/dV(199) - B(1348) = RCT(719)*V(275) -! B(1349) = dA(719)/dV(275) - B(1349) = RCT(719)*V(199) +! B(1332) = dA(704)/dV(269) + B(1332) = RCT(704)*V(276) +! B(1333) = dA(704)/dV(276) + B(1333) = RCT(704)*V(269) +! B(1334) = dA(705)/dV(272) + B(1334) = RCT(705) +! B(1335) = dA(706)/dV(272) + B(1335) = RCT(706) +! B(1336) = dA(707)/dV(65) + B(1336) = RCT(707) +! B(1337) = dA(708)/dV(65) + B(1337) = RCT(708) +! B(1338) = dA(709)/dV(65) + B(1338) = RCT(709) +! B(1339) = dA(710)/dV(40) + B(1339) = RCT(710) +! B(1340) = dA(711)/dV(40) + B(1340) = RCT(711) +! B(1341) = dA(712)/dV(40) + B(1341) = RCT(712) +! B(1342) = dA(713)/dV(47) + B(1342) = RCT(713) +! B(1343) = dA(714)/dV(47) + B(1343) = RCT(714) +! B(1344) = dA(715)/dV(47) + B(1344) = RCT(715) +! B(1345) = dA(716)/dV(38) + B(1345) = RCT(716) +! B(1346) = dA(717)/dV(38) + B(1346) = RCT(717) +! B(1347) = dA(718)/dV(38) + B(1347) = RCT(718) +! B(1348) = dA(719)/dV(266) + B(1348) = RCT(719)*V(273) +! B(1349) = dA(719)/dV(273) + B(1349) = RCT(719)*V(266) ! B(1350) = dA(720)/dV(199) - B(1350) = RCT(720)*V(276) -! B(1351) = dA(720)/dV(276) + B(1350) = RCT(720)*V(275) +! B(1351) = dA(720)/dV(275) B(1351) = RCT(720)*V(199) ! B(1352) = dA(721)/dV(199) - B(1352) = RCT(721)*V(278) -! B(1353) = dA(721)/dV(278) + B(1352) = RCT(721)*V(276) +! B(1353) = dA(721)/dV(276) B(1353) = RCT(721)*V(199) ! B(1354) = dA(722)/dV(199) - B(1354) = RCT(722)*V(282) -! B(1355) = dA(722)/dV(282) + B(1354) = RCT(722)*V(278) +! B(1355) = dA(722)/dV(278) B(1355) = RCT(722)*V(199) -! B(1356) = dA(723)/dV(266) - B(1356) = RCT(723)*V(275) -! B(1357) = dA(723)/dV(275) - B(1357) = RCT(723)*V(266) +! B(1356) = dA(723)/dV(199) + B(1356) = RCT(723)*V(282) +! B(1357) = dA(723)/dV(282) + B(1357) = RCT(723)*V(199) ! B(1358) = dA(724)/dV(266) - B(1358) = RCT(724)*V(276) -! B(1359) = dA(724)/dV(276) + B(1358) = RCT(724)*V(275) +! B(1359) = dA(724)/dV(275) B(1359) = RCT(724)*V(266) ! B(1360) = dA(725)/dV(266) - B(1360) = RCT(725)*V(278) -! B(1361) = dA(725)/dV(278) + B(1360) = RCT(725)*V(276) +! B(1361) = dA(725)/dV(276) B(1361) = RCT(725)*V(266) ! B(1362) = dA(726)/dV(266) - B(1362) = RCT(726)*V(282) -! B(1363) = dA(726)/dV(282) + B(1362) = RCT(726)*V(278) +! B(1363) = dA(726)/dV(278) B(1363) = RCT(726)*V(266) -! B(1364) = dA(727)/dV(264) - B(1364) = RCT(727)*V(275) -! B(1365) = dA(727)/dV(275) - B(1365) = RCT(727)*V(264) +! B(1364) = dA(727)/dV(266) + B(1364) = RCT(727)*V(282) +! B(1365) = dA(727)/dV(282) + B(1365) = RCT(727)*V(266) ! B(1366) = dA(728)/dV(264) - B(1366) = RCT(728)*V(276) -! B(1367) = dA(728)/dV(276) + B(1366) = RCT(728)*V(275) +! B(1367) = dA(728)/dV(275) B(1367) = RCT(728)*V(264) ! B(1368) = dA(729)/dV(264) - B(1368) = RCT(729)*V(278) -! B(1369) = dA(729)/dV(278) + B(1368) = RCT(729)*V(276) +! B(1369) = dA(729)/dV(276) B(1369) = RCT(729)*V(264) ! B(1370) = dA(730)/dV(264) - B(1370) = RCT(730)*V(282) -! B(1371) = dA(730)/dV(282) + B(1370) = RCT(730)*V(278) +! B(1371) = dA(730)/dV(278) B(1371) = RCT(730)*V(264) -! B(1372) = dA(731)/dV(218) - B(1372) = RCT(731) -! B(1373) = dA(732)/dV(228) - B(1373) = RCT(732) -! B(1374) = dA(733)/dV(127) - B(1374) = RCT(733) -! B(1375) = dA(734)/dV(128) - B(1375) = RCT(734) -! B(1376) = dA(735)/dV(115) - B(1376) = RCT(735) -! B(1377) = dA(736)/dV(23) - B(1377) = RCT(736) -! B(1378) = dA(737)/dV(237) - B(1378) = RCT(737) -! B(1379) = dA(738)/dV(198) - B(1379) = RCT(738) -! B(1380) = dA(739)/dV(174) - B(1380) = RCT(739) -! B(1381) = dA(740)/dV(196) - B(1381) = RCT(740) -! B(1382) = dA(741)/dV(131) - B(1382) = RCT(741) -! B(1383) = dA(742)/dV(104) - B(1383) = RCT(742) -! B(1384) = dA(743)/dV(84) - B(1384) = RCT(743) -! B(1385) = dA(744)/dV(216) - B(1385) = RCT(744) -! B(1386) = dA(745)/dV(136) - B(1386) = RCT(745) -! B(1387) = dA(746)/dV(137) - B(1387) = RCT(746) -! B(1388) = dA(747)/dV(210) - B(1388) = RCT(747) -! B(1389) = dA(748)/dV(170) - B(1389) = RCT(748) -! B(1390) = dA(749)/dV(147) - B(1390) = RCT(749) -! B(1391) = dA(750)/dV(177) - B(1391) = RCT(750) -! B(1392) = dA(751)/dV(239) - B(1392) = RCT(751) -! B(1393) = dA(752)/dV(209) - B(1393) = RCT(752) -! B(1394) = dA(753)/dV(238) - B(1394) = RCT(753) -! B(1395) = dA(754)/dV(171) - B(1395) = RCT(754) -! B(1396) = dA(755)/dV(195) - B(1396) = RCT(755) -! B(1397) = dA(756)/dV(206) - B(1397) = RCT(756) -! B(1398) = dA(757)/dV(269) - B(1398) = RCT(757) -! B(1399) = dA(758)/dV(269) - B(1399) = RCT(758) -! B(1401) = dA(760)/dV(270) - B(1401) = RCT(760) -! B(1402) = dA(761)/dV(208) - B(1402) = RCT(761) -! B(1403) = dA(762)/dV(134) - B(1403) = RCT(762) -! B(1404) = dA(763)/dV(262) - B(1404) = RCT(763) -! B(1405) = dA(764)/dV(262) - B(1405) = RCT(764) -! B(1406) = dA(765)/dV(260) - B(1406) = RCT(765) -! B(1407) = dA(766)/dV(188) - B(1407) = RCT(766) -! B(1408) = dA(767)/dV(101) - B(1408) = RCT(767) -! B(1409) = dA(768)/dV(101) - B(1409) = RCT(768) -! B(1410) = dA(769)/dV(283) - B(1410) = RCT(769) -! B(1411) = dA(770)/dV(283) - B(1411) = RCT(770) -! B(1412) = dA(771)/dV(169) - B(1412) = RCT(771) -! B(1413) = dA(772)/dV(261) - B(1413) = RCT(772) -! B(1414) = dA(773)/dV(261) - B(1414) = RCT(773) -! B(1415) = dA(774)/dV(63) - B(1415) = RCT(774) -! B(1416) = dA(775)/dV(255) - B(1416) = RCT(775) -! B(1417) = dA(776)/dV(219) - B(1417) = RCT(776) -! B(1418) = dA(777)/dV(219) - B(1418) = RCT(777) -! B(1419) = dA(778)/dV(222) - B(1419) = RCT(778) -! B(1420) = dA(779)/dV(232) - B(1420) = RCT(779) -! B(1421) = dA(780)/dV(218) - B(1421) = RCT(780) -! B(1422) = dA(781)/dV(218) - B(1422) = RCT(781) -! B(1423) = dA(782)/dV(218) - B(1423) = RCT(782) -! B(1424) = dA(783)/dV(228) - B(1424) = RCT(783) -! B(1425) = dA(784)/dV(244) - B(1425) = RCT(784) -! B(1426) = dA(785)/dV(244) - B(1426) = RCT(785) -! B(1427) = dA(786)/dV(244) - B(1427) = RCT(786) -! B(1428) = dA(787)/dV(247) - B(1428) = RCT(787) -! B(1429) = dA(788)/dV(246) - B(1429) = RCT(788) -! B(1430) = dA(789)/dV(112) - B(1430) = RCT(789) -! B(1431) = dA(790)/dV(109) - B(1431) = RCT(790) -! B(1432) = dA(791)/dV(92) - B(1432) = RCT(791) -! B(1433) = dA(792)/dV(93) - B(1433) = RCT(792) -! B(1434) = dA(793)/dV(91) - B(1434) = RCT(793) -! B(1435) = dA(794)/dV(111) - B(1435) = RCT(794) -! B(1436) = dA(795)/dV(94) - B(1436) = RCT(795) -! B(1437) = dA(796)/dV(198) - B(1437) = RCT(796) -! B(1438) = dA(797)/dV(66) - B(1438) = RCT(797) -! B(1439) = dA(798)/dV(124) - B(1439) = RCT(798) -! B(1440) = dA(799)/dV(274) - B(1440) = RCT(799) -! B(1441) = dA(800)/dV(256) - B(1441) = RCT(800) -! B(1442) = dA(801)/dV(172) - B(1442) = RCT(801) -! B(1443) = dA(802)/dV(172) - B(1443) = RCT(802) -! B(1444) = dA(803)/dV(50) - B(1444) = RCT(803) -! B(1445) = dA(804)/dV(74) - B(1445) = RCT(804) -! B(1446) = dA(805)/dV(70) - B(1446) = RCT(805) -! B(1447) = dA(806)/dV(97) - B(1447) = RCT(806) -! B(1448) = dA(807)/dV(100) - B(1448) = RCT(807) -! B(1449) = dA(808)/dV(73) - B(1449) = RCT(808) -! B(1450) = dA(809)/dV(132) - B(1450) = RCT(809) -! B(1451) = dA(810)/dV(192) - B(1451) = RCT(810) -! B(1452) = dA(811)/dV(277) - B(1452) = RCT(811) -! B(1453) = dA(812)/dV(107) - B(1453) = RCT(812) -! B(1454) = dA(813)/dV(72) - B(1454) = RCT(813) -! B(1455) = dA(814)/dV(231) - B(1455) = RCT(814) -! B(1456) = dA(815)/dV(259) - B(1456) = RCT(815) -! B(1457) = dA(816)/dV(259) - B(1457) = RCT(816) -! B(1458) = dA(817)/dV(267) - B(1458) = RCT(817) -! B(1459) = dA(818)/dV(39) - B(1459) = RCT(818) -! B(1460) = dA(819)/dV(51) - B(1460) = RCT(819) -! B(1461) = dA(820)/dV(52) - B(1461) = RCT(820) -! B(1462) = dA(821)/dV(53) - B(1462) = RCT(821) -! B(1463) = dA(822)/dV(48) - B(1463) = RCT(822) -! B(1464) = dA(823)/dV(42) - B(1464) = RCT(823) -! B(1465) = dA(824)/dV(46) - B(1465) = RCT(824) -! B(1466) = dA(825)/dV(78) - B(1466) = RCT(825) -! B(1467) = dA(826)/dV(79) - B(1467) = RCT(826) -! B(1468) = dA(827)/dV(80) - B(1468) = RCT(827) -! B(1469) = dA(828)/dV(81) - B(1469) = RCT(828) -! B(1470) = dA(829)/dV(44) - B(1470) = RCT(829) -! B(1471) = dA(830)/dV(55) - B(1471) = RCT(830) -! B(1472) = dA(831)/dV(45) - B(1472) = RCT(831) -! B(1473) = dA(832)/dV(103) - B(1473) = RCT(832) -! B(1474) = dA(833)/dV(139) - B(1474) = RCT(833) -! B(1475) = dA(834)/dV(264) - B(1475) = RCT(834) -! B(1476) = dA(835)/dV(223) - B(1476) = RCT(835) -! B(1477) = dA(836)/dV(90) - B(1477) = RCT(836) -! B(1478) = dA(837)/dV(56) - B(1478) = RCT(837) -! B(1479) = dA(838)/dV(199) - B(1479) = RCT(838) -! B(1480) = dA(839)/dV(266) - B(1480) = RCT(839) -! B(1481) = dA(840)/dV(40) - B(1481) = RCT(840) -! B(1482) = dA(841)/dV(43) - B(1482) = RCT(841) -! B(1483) = dA(842)/dV(1) - B(1483) = RCT(842) -! B(1484) = dA(843)/dV(3) - B(1484) = RCT(843) -! B(1485) = dA(844)/dV(2) - B(1485) = RCT(844) -! B(1486) = dA(845)/dV(38) - B(1486) = RCT(845) -! B(1487) = dA(846)/dV(47) - B(1487) = RCT(846) -! B(1488) = dA(847)/dV(69) - B(1488) = RCT(847) -! B(1489) = dA(848)/dV(98) - B(1489) = RCT(848) -! B(1490) = dA(849)/dV(71) - B(1490) = RCT(849) -! B(1491) = dA(850)/dV(71) - B(1491) = RCT(850) -! B(1492) = dA(851)/dV(193) - B(1492) = RCT(851) -! B(1493) = dA(852)/dV(57) - B(1493) = RCT(852) -! B(1494) = dA(853)/dV(62) - B(1494) = RCT(853) -! B(1495) = dA(854)/dV(108) - B(1495) = RCT(854) -! B(1496) = dA(855)/dV(280) - B(1496) = RCT(855) -! B(1497) = dA(856)/dV(119) - B(1497) = RCT(856) -! B(1498) = dA(857)/dV(205) - B(1498) = RCT(857) -! B(1499) = dA(858)/dV(174) - B(1499) = RCT(858) -! B(1500) = dA(859)/dV(196) - B(1500) = RCT(859) -! B(1501) = dA(860)/dV(131) - B(1501) = RCT(860) -! B(1502) = dA(861)/dV(59) - B(1502) = RCT(861) -! B(1503) = dA(862)/dV(59) - B(1503) = RCT(862) -! B(1504) = dA(863)/dV(58) - B(1504) = RCT(863) -! B(1505) = dA(864)/dV(58) - B(1505) = RCT(864) -! B(1506) = dA(865)/dV(87) - B(1506) = RCT(865) -! B(1507) = dA(866)/dV(88) - B(1507) = RCT(866) -! B(1508) = dA(867)/dV(86) - B(1508) = RCT(867) -! B(1509) = dA(868)/dV(89) - B(1509) = RCT(868) -! B(1510) = dA(869)/dV(83) - B(1510) = RCT(869) -! B(1511) = dA(870)/dV(168) - B(1511) = RCT(870) -! B(1512) = dA(871)/dV(104) - B(1512) = RCT(871) -! B(1513) = dA(872)/dV(194) - B(1513) = RCT(872) -! B(1514) = dA(873)/dV(166) - B(1514) = RCT(873) -! B(1515) = dA(874)/dV(181) - B(1515) = RCT(874) -! B(1516) = dA(875)/dV(226) - B(1516) = RCT(875) -! B(1517) = dA(876)/dV(152) - B(1517) = RCT(876) -! B(1518) = dA(877)/dV(160) - B(1518) = RCT(877) -! B(1519) = dA(878)/dV(227) - B(1519) = RCT(878) -! B(1520) = dA(879)/dV(133) - B(1520) = RCT(879) -! B(1521) = dA(880)/dV(237) - B(1521) = RCT(880) -! B(1522) = dA(881)/dV(195) - B(1522) = RCT(881) -! B(1523) = dA(882)/dV(171) - B(1523) = RCT(882) -! B(1524) = dA(883)/dV(153) - B(1524) = RCT(883) -! B(1525) = dA(884)/dV(158) - B(1525) = RCT(884) -! B(1526) = dA(885)/dV(167) - B(1526) = RCT(885) -! B(1527) = dA(886)/dV(161) - B(1527) = RCT(886) -! B(1528) = dA(887)/dV(182) - B(1528) = RCT(887) -! B(1529) = dA(888)/dV(184) - B(1529) = RCT(888) -! B(1530) = dA(889)/dV(125) - B(1530) = RCT(889) -! B(1531) = dA(890)/dV(126) - B(1531) = RCT(890) -! B(1532) = dA(891)/dV(216) - B(1532) = RCT(891) -! B(1533) = dA(892)/dV(136) - B(1533) = RCT(892) -! B(1534) = dA(893)/dV(137) - B(1534) = RCT(893) -! B(1535) = dA(894)/dV(210) - B(1535) = RCT(894) -! B(1536) = dA(895)/dV(177) - B(1536) = RCT(895) -! B(1537) = dA(896)/dV(147) - B(1537) = RCT(896) -! B(1538) = dA(897)/dV(147) - B(1538) = RCT(897) -! B(1539) = dA(898)/dV(236) - B(1539) = RCT(898) -! B(1540) = dA(899)/dV(239) - B(1540) = RCT(899) -! B(1541) = dA(900)/dV(202) - B(1541) = RCT(900) -! B(1542) = dA(901)/dV(202) - B(1542) = RCT(901) -! B(1543) = dA(902)/dV(140) - B(1543) = RCT(902) -! B(1544) = dA(903)/dV(159) - B(1544) = RCT(903) -! B(1545) = dA(904)/dV(122) - B(1545) = RCT(904) -! B(1546) = dA(905)/dV(238) - B(1546) = RCT(905) -! B(1547) = dA(906)/dV(238) - B(1547) = RCT(906) -! B(1548) = dA(907)/dV(209) - B(1548) = RCT(907) -! B(1549) = dA(908)/dV(209) - B(1549) = RCT(908) -! B(1550) = dA(909)/dV(114) - B(1550) = RCT(909) -! B(1551) = dA(910)/dV(99) - B(1551) = RCT(910) -! B(1552) = dA(911)/dV(67) - B(1552) = RCT(911) -! B(1553) = dA(912)/dV(105) - B(1553) = RCT(912) -! B(1554) = dA(913)/dV(206) - B(1554) = RCT(913) +! B(1372) = dA(731)/dV(264) + B(1372) = RCT(731)*V(282) +! B(1373) = dA(731)/dV(282) + B(1373) = RCT(731)*V(264) +! B(1374) = dA(732)/dV(218) + B(1374) = RCT(732) +! B(1375) = dA(733)/dV(228) + B(1375) = RCT(733) +! B(1376) = dA(734)/dV(127) + B(1376) = RCT(734) +! B(1377) = dA(735)/dV(128) + B(1377) = RCT(735) +! B(1378) = dA(736)/dV(115) + B(1378) = RCT(736) +! B(1379) = dA(737)/dV(23) + B(1379) = RCT(737) +! B(1380) = dA(738)/dV(237) + B(1380) = RCT(738) +! B(1381) = dA(739)/dV(198) + B(1381) = RCT(739) +! B(1382) = dA(740)/dV(174) + B(1382) = RCT(740) +! B(1383) = dA(741)/dV(196) + B(1383) = RCT(741) +! B(1384) = dA(742)/dV(131) + B(1384) = RCT(742) +! B(1385) = dA(743)/dV(104) + B(1385) = RCT(743) +! B(1386) = dA(744)/dV(84) + B(1386) = RCT(744) +! B(1387) = dA(745)/dV(216) + B(1387) = RCT(745) +! B(1388) = dA(746)/dV(136) + B(1388) = RCT(746) +! B(1389) = dA(747)/dV(137) + B(1389) = RCT(747) +! B(1390) = dA(748)/dV(210) + B(1390) = RCT(748) +! B(1391) = dA(749)/dV(170) + B(1391) = RCT(749) +! B(1392) = dA(750)/dV(147) + B(1392) = RCT(750) +! B(1393) = dA(751)/dV(177) + B(1393) = RCT(751) +! B(1394) = dA(752)/dV(239) + B(1394) = RCT(752) +! B(1395) = dA(753)/dV(209) + B(1395) = RCT(753) +! B(1396) = dA(754)/dV(238) + B(1396) = RCT(754) +! B(1397) = dA(755)/dV(171) + B(1397) = RCT(755) +! B(1398) = dA(756)/dV(195) + B(1398) = RCT(756) +! B(1399) = dA(757)/dV(206) + B(1399) = RCT(757) +! B(1400) = dA(758)/dV(269) + B(1400) = RCT(758) +! B(1401) = dA(759)/dV(269) + B(1401) = RCT(759) +! B(1403) = dA(761)/dV(270) + B(1403) = RCT(761) +! B(1404) = dA(762)/dV(208) + B(1404) = RCT(762) +! B(1405) = dA(763)/dV(134) + B(1405) = RCT(763) +! B(1406) = dA(764)/dV(262) + B(1406) = RCT(764) +! B(1407) = dA(765)/dV(262) + B(1407) = RCT(765) +! B(1408) = dA(766)/dV(260) + B(1408) = RCT(766) +! B(1409) = dA(767)/dV(188) + B(1409) = RCT(767) +! B(1410) = dA(768)/dV(101) + B(1410) = RCT(768) +! B(1411) = dA(769)/dV(101) + B(1411) = RCT(769) +! B(1412) = dA(770)/dV(283) + B(1412) = RCT(770) +! B(1413) = dA(771)/dV(283) + B(1413) = RCT(771) +! B(1414) = dA(772)/dV(169) + B(1414) = RCT(772) +! B(1415) = dA(773)/dV(261) + B(1415) = RCT(773) +! B(1416) = dA(774)/dV(261) + B(1416) = RCT(774) +! B(1417) = dA(775)/dV(63) + B(1417) = RCT(775) +! B(1418) = dA(776)/dV(255) + B(1418) = RCT(776) +! B(1419) = dA(777)/dV(219) + B(1419) = RCT(777) +! B(1420) = dA(778)/dV(219) + B(1420) = RCT(778) +! B(1421) = dA(779)/dV(222) + B(1421) = RCT(779) +! B(1422) = dA(780)/dV(232) + B(1422) = RCT(780) +! B(1423) = dA(781)/dV(218) + B(1423) = RCT(781) +! B(1424) = dA(782)/dV(218) + B(1424) = RCT(782) +! B(1425) = dA(783)/dV(218) + B(1425) = RCT(783) +! B(1426) = dA(784)/dV(228) + B(1426) = RCT(784) +! B(1427) = dA(785)/dV(244) + B(1427) = RCT(785) +! B(1428) = dA(786)/dV(244) + B(1428) = RCT(786) +! B(1429) = dA(787)/dV(244) + B(1429) = RCT(787) +! B(1430) = dA(788)/dV(247) + B(1430) = RCT(788) +! B(1431) = dA(789)/dV(246) + B(1431) = RCT(789) +! B(1432) = dA(790)/dV(112) + B(1432) = RCT(790) +! B(1433) = dA(791)/dV(109) + B(1433) = RCT(791) +! B(1434) = dA(792)/dV(92) + B(1434) = RCT(792) +! B(1435) = dA(793)/dV(93) + B(1435) = RCT(793) +! B(1436) = dA(794)/dV(91) + B(1436) = RCT(794) +! B(1437) = dA(795)/dV(111) + B(1437) = RCT(795) +! B(1438) = dA(796)/dV(94) + B(1438) = RCT(796) +! B(1439) = dA(797)/dV(198) + B(1439) = RCT(797) +! B(1440) = dA(798)/dV(66) + B(1440) = RCT(798) +! B(1441) = dA(799)/dV(124) + B(1441) = RCT(799) +! B(1442) = dA(800)/dV(274) + B(1442) = RCT(800) +! B(1443) = dA(801)/dV(256) + B(1443) = RCT(801) +! B(1444) = dA(802)/dV(172) + B(1444) = RCT(802) +! B(1445) = dA(803)/dV(172) + B(1445) = RCT(803) +! B(1446) = dA(804)/dV(50) + B(1446) = RCT(804) +! B(1447) = dA(805)/dV(74) + B(1447) = RCT(805) +! B(1448) = dA(806)/dV(70) + B(1448) = RCT(806) +! B(1449) = dA(807)/dV(97) + B(1449) = RCT(807) +! B(1450) = dA(808)/dV(100) + B(1450) = RCT(808) +! B(1451) = dA(809)/dV(73) + B(1451) = RCT(809) +! B(1452) = dA(810)/dV(132) + B(1452) = RCT(810) +! B(1453) = dA(811)/dV(192) + B(1453) = RCT(811) +! B(1454) = dA(812)/dV(277) + B(1454) = RCT(812) +! B(1455) = dA(813)/dV(107) + B(1455) = RCT(813) +! B(1456) = dA(814)/dV(72) + B(1456) = RCT(814) +! B(1457) = dA(815)/dV(231) + B(1457) = RCT(815) +! B(1458) = dA(816)/dV(259) + B(1458) = RCT(816) +! B(1459) = dA(817)/dV(259) + B(1459) = RCT(817) +! B(1460) = dA(818)/dV(267) + B(1460) = RCT(818) +! B(1461) = dA(819)/dV(39) + B(1461) = RCT(819) +! B(1462) = dA(820)/dV(51) + B(1462) = RCT(820) +! B(1463) = dA(821)/dV(52) + B(1463) = RCT(821) +! B(1464) = dA(822)/dV(53) + B(1464) = RCT(822) +! B(1465) = dA(823)/dV(48) + B(1465) = RCT(823) +! B(1466) = dA(824)/dV(42) + B(1466) = RCT(824) +! B(1467) = dA(825)/dV(46) + B(1467) = RCT(825) +! B(1468) = dA(826)/dV(78) + B(1468) = RCT(826) +! B(1469) = dA(827)/dV(79) + B(1469) = RCT(827) +! B(1470) = dA(828)/dV(80) + B(1470) = RCT(828) +! B(1471) = dA(829)/dV(81) + B(1471) = RCT(829) +! B(1472) = dA(830)/dV(44) + B(1472) = RCT(830) +! B(1473) = dA(831)/dV(55) + B(1473) = RCT(831) +! B(1474) = dA(832)/dV(45) + B(1474) = RCT(832) +! B(1475) = dA(833)/dV(103) + B(1475) = RCT(833) +! B(1476) = dA(834)/dV(139) + B(1476) = RCT(834) +! B(1477) = dA(835)/dV(264) + B(1477) = RCT(835) +! B(1478) = dA(836)/dV(223) + B(1478) = RCT(836) +! B(1479) = dA(837)/dV(90) + B(1479) = RCT(837) +! B(1480) = dA(838)/dV(56) + B(1480) = RCT(838) +! B(1481) = dA(839)/dV(199) + B(1481) = RCT(839) +! B(1482) = dA(840)/dV(266) + B(1482) = RCT(840) +! B(1483) = dA(841)/dV(40) + B(1483) = RCT(841) +! B(1484) = dA(842)/dV(43) + B(1484) = RCT(842) +! B(1485) = dA(843)/dV(1) + B(1485) = RCT(843) +! B(1486) = dA(844)/dV(3) + B(1486) = RCT(844) +! B(1487) = dA(845)/dV(2) + B(1487) = RCT(845) +! B(1488) = dA(846)/dV(38) + B(1488) = RCT(846) +! B(1489) = dA(847)/dV(47) + B(1489) = RCT(847) +! B(1490) = dA(848)/dV(69) + B(1490) = RCT(848) +! B(1491) = dA(849)/dV(98) + B(1491) = RCT(849) +! B(1492) = dA(850)/dV(71) + B(1492) = RCT(850) +! B(1493) = dA(851)/dV(71) + B(1493) = RCT(851) +! B(1494) = dA(852)/dV(193) + B(1494) = RCT(852) +! B(1495) = dA(853)/dV(57) + B(1495) = RCT(853) +! B(1496) = dA(854)/dV(62) + B(1496) = RCT(854) +! B(1497) = dA(855)/dV(108) + B(1497) = RCT(855) +! B(1498) = dA(856)/dV(280) + B(1498) = RCT(856) +! B(1499) = dA(857)/dV(119) + B(1499) = RCT(857) +! B(1500) = dA(858)/dV(205) + B(1500) = RCT(858) +! B(1501) = dA(859)/dV(174) + B(1501) = RCT(859) +! B(1502) = dA(860)/dV(196) + B(1502) = RCT(860) +! B(1503) = dA(861)/dV(131) + B(1503) = RCT(861) +! B(1504) = dA(862)/dV(59) + B(1504) = RCT(862) +! B(1505) = dA(863)/dV(59) + B(1505) = RCT(863) +! B(1506) = dA(864)/dV(58) + B(1506) = RCT(864) +! B(1507) = dA(865)/dV(58) + B(1507) = RCT(865) +! B(1508) = dA(866)/dV(87) + B(1508) = RCT(866) +! B(1509) = dA(867)/dV(88) + B(1509) = RCT(867) +! B(1510) = dA(868)/dV(86) + B(1510) = RCT(868) +! B(1511) = dA(869)/dV(89) + B(1511) = RCT(869) +! B(1512) = dA(870)/dV(83) + B(1512) = RCT(870) +! B(1513) = dA(871)/dV(168) + B(1513) = RCT(871) +! B(1514) = dA(872)/dV(104) + B(1514) = RCT(872) +! B(1515) = dA(873)/dV(194) + B(1515) = RCT(873) +! B(1516) = dA(874)/dV(166) + B(1516) = RCT(874) +! B(1517) = dA(875)/dV(181) + B(1517) = RCT(875) +! B(1518) = dA(876)/dV(226) + B(1518) = RCT(876) +! B(1519) = dA(877)/dV(152) + B(1519) = RCT(877) +! B(1520) = dA(878)/dV(160) + B(1520) = RCT(878) +! B(1521) = dA(879)/dV(227) + B(1521) = RCT(879) +! B(1522) = dA(880)/dV(133) + B(1522) = RCT(880) +! B(1523) = dA(881)/dV(237) + B(1523) = RCT(881) +! B(1524) = dA(882)/dV(195) + B(1524) = RCT(882) +! B(1525) = dA(883)/dV(171) + B(1525) = RCT(883) +! B(1526) = dA(884)/dV(153) + B(1526) = RCT(884) +! B(1527) = dA(885)/dV(158) + B(1527) = RCT(885) +! B(1528) = dA(886)/dV(167) + B(1528) = RCT(886) +! B(1529) = dA(887)/dV(161) + B(1529) = RCT(887) +! B(1530) = dA(888)/dV(182) + B(1530) = RCT(888) +! B(1531) = dA(889)/dV(184) + B(1531) = RCT(889) +! B(1532) = dA(890)/dV(125) + B(1532) = RCT(890) +! B(1533) = dA(891)/dV(126) + B(1533) = RCT(891) +! B(1534) = dA(892)/dV(216) + B(1534) = RCT(892) +! B(1535) = dA(893)/dV(136) + B(1535) = RCT(893) +! B(1536) = dA(894)/dV(137) + B(1536) = RCT(894) +! B(1537) = dA(895)/dV(210) + B(1537) = RCT(895) +! B(1538) = dA(896)/dV(177) + B(1538) = RCT(896) +! B(1539) = dA(897)/dV(147) + B(1539) = RCT(897) +! B(1540) = dA(898)/dV(147) + B(1540) = RCT(898) +! B(1541) = dA(899)/dV(236) + B(1541) = RCT(899) +! B(1542) = dA(900)/dV(239) + B(1542) = RCT(900) +! B(1543) = dA(901)/dV(202) + B(1543) = RCT(901) +! B(1544) = dA(902)/dV(202) + B(1544) = RCT(902) +! B(1545) = dA(903)/dV(140) + B(1545) = RCT(903) +! B(1546) = dA(904)/dV(159) + B(1546) = RCT(904) +! B(1547) = dA(905)/dV(122) + B(1547) = RCT(905) +! B(1548) = dA(906)/dV(238) + B(1548) = RCT(906) +! B(1549) = dA(907)/dV(238) + B(1549) = RCT(907) +! B(1550) = dA(908)/dV(209) + B(1550) = RCT(908) +! B(1551) = dA(909)/dV(209) + B(1551) = RCT(909) +! B(1552) = dA(910)/dV(114) + B(1552) = RCT(910) +! B(1553) = dA(911)/dV(99) + B(1553) = RCT(911) +! B(1554) = dA(912)/dV(67) + B(1554) = RCT(912) +! B(1555) = dA(913)/dV(105) + B(1555) = RCT(913) +! B(1556) = dA(914)/dV(206) + B(1556) = RCT(914) ! Construct the Jacobian terms from B's ! JVS(1) = Jac_FULL(1,1) - JVS(1) = -B(1483) + JVS(1) = -B(1485) ! JVS(2) = Jac_FULL(2,2) - JVS(2) = -B(1485) + JVS(2) = -B(1487) ! JVS(3) = Jac_FULL(3,3) - JVS(3) = -B(1484) + JVS(3) = -B(1486) ! JVS(4) = Jac_FULL(4,4) JVS(4) = 0 ! JVS(5) = Jac_FULL(4,38) - JVS(5) = 2*B(1343) + JVS(5) = 2*B(1345) ! JVS(6) = Jac_FULL(4,40) - JVS(6) = 2*B(1337) + JVS(6) = 2*B(1339) ! JVS(7) = Jac_FULL(4,47) - JVS(7) = 2*B(1340) + JVS(7) = 2*B(1342) ! JVS(8) = Jac_FULL(4,65) - JVS(8) = B(1334) + JVS(8) = B(1336) ! JVS(9) = Jac_FULL(5,5) JVS(9) = 0 ! JVS(10) = Jac_FULL(5,206) - JVS(10) = B(1397) + JVS(10) = B(1399) ! JVS(11) = Jac_FULL(6,6) JVS(11) = 0 ! JVS(12) = Jac_FULL(6,62) JVS(12) = B(397) ! JVS(13) = Jac_FULL(6,67) - JVS(13) = B(1552) + JVS(13) = B(1554) ! JVS(14) = Jac_FULL(6,95) JVS(14) = B(1208) ! JVS(15) = Jac_FULL(6,104) - JVS(15) = B(1126)+B(1512) + JVS(15) = B(1126)+B(1514) ! JVS(16) = Jac_FULL(6,117) JVS(16) = B(895)+B(897) ! JVS(17) = Jac_FULL(6,120) JVS(17) = B(891)+B(893) ! JVS(18) = Jac_FULL(6,133) - JVS(18) = 0.415*B(1086)+1.238*B(1520) + JVS(18) = 0.415*B(1086)+1.238*B(1522) ! JVS(19) = Jac_FULL(6,146) JVS(19) = 0.33*B(1020)+0.33*B(1022) ! JVS(20) = Jac_FULL(6,159) @@ -3199,7 +3203,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(26) = Jac_FULL(6,205) JVS(26) = B(637) ! JVS(27) = Jac_FULL(6,206) - JVS(27) = B(1554) + JVS(27) = B(1556) ! JVS(28) = Jac_FULL(6,207) JVS(28) = B(90)+B(553) ! JVS(29) = Jac_FULL(6,215) @@ -3242,23 +3246,23 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(47) = Jac_FULL(8,8) JVS(47) = 0 ! JVS(48) = Jac_FULL(8,38) - JVS(48) = 2*B(1344) + JVS(48) = 2*B(1346) ! JVS(49) = Jac_FULL(8,40) - JVS(49) = 2*B(1338) + JVS(49) = 2*B(1340) ! JVS(50) = Jac_FULL(8,47) - JVS(50) = 2*B(1341) + JVS(50) = 2*B(1343) ! JVS(51) = Jac_FULL(8,65) - JVS(51) = B(1335) + JVS(51) = B(1337) ! JVS(52) = Jac_FULL(9,9) JVS(52) = 0 ! JVS(53) = Jac_FULL(9,38) - JVS(53) = 2*B(1345) + JVS(53) = 2*B(1347) ! JVS(54) = Jac_FULL(9,40) - JVS(54) = 2*B(1339) + JVS(54) = 2*B(1341) ! JVS(55) = Jac_FULL(9,47) - JVS(55) = 2*B(1342) + JVS(55) = 2*B(1344) ! JVS(56) = Jac_FULL(9,65) - JVS(56) = B(1336) + JVS(56) = B(1338) ! JVS(57) = Jac_FULL(10,10) JVS(57) = 0 ! JVS(58) = Jac_FULL(10,12) @@ -3344,9 +3348,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(98) = Jac_FULL(22,22) JVS(98) = 0 ! JVS(99) = Jac_FULL(22,23) - JVS(99) = B(1377) + JVS(99) = B(1379) ! JVS(100) = Jac_FULL(23,23) - JVS(100) = -B(262)-B(1377) + JVS(100) = -B(262)-B(1379) ! JVS(101) = Jac_FULL(23,153) JVS(101) = 0.005*B(821)+0.005*B(823)+0.005*B(829) ! JVS(102) = Jac_FULL(23,158) @@ -3391,65 +3395,65 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(121) = Jac_FULL(28,135) JVS(121) = B(8) ! JVS(122) = Jac_FULL(28,256) - JVS(122) = B(1324) + JVS(122) = B(1326) ! JVS(123) = Jac_FULL(28,267) - JVS(123) = B(1310) + JVS(123) = B(1312) ! JVS(124) = Jac_FULL(28,269) JVS(124) = B(9) ! JVS(125) = Jac_FULL(28,286) - JVS(125) = B(10)+B(1311)+B(1325) + JVS(125) = B(10)+B(1313)+B(1327) ! JVS(126) = Jac_FULL(29,29) JVS(126) = 0 ! JVS(127) = Jac_FULL(29,104) - JVS(127) = B(1383) + JVS(127) = B(1385) ! JVS(128) = Jac_FULL(29,218) - JVS(128) = B(1372) + JVS(128) = B(1374) ! JVS(129) = Jac_FULL(29,228) - JVS(129) = B(1373) + JVS(129) = B(1375) ! JVS(130) = Jac_FULL(30,30) JVS(130) = 0 ! JVS(131) = Jac_FULL(30,84) - JVS(131) = B(1384) + JVS(131) = B(1386) ! JVS(132) = Jac_FULL(30,115) - JVS(132) = B(1376) + JVS(132) = B(1378) ! JVS(133) = Jac_FULL(30,127) - JVS(133) = B(1374) + JVS(133) = B(1376) ! JVS(134) = Jac_FULL(30,128) - JVS(134) = B(1375) + JVS(134) = B(1377) ! JVS(135) = Jac_FULL(30,170) - JVS(135) = B(1389) + JVS(135) = B(1391) ! JVS(136) = Jac_FULL(31,31) JVS(136) = 0 ! JVS(137) = Jac_FULL(31,41) JVS(137) = B(742) ! JVS(138) = Jac_FULL(31,57) - JVS(138) = B(1493) + JVS(138) = B(1495) ! JVS(139) = Jac_FULL(31,58) - JVS(139) = B(1505) + JVS(139) = B(1507) ! JVS(140) = Jac_FULL(31,59) - JVS(140) = B(1503) + JVS(140) = B(1505) ! JVS(141) = Jac_FULL(31,61) JVS(141) = B(419)+B(421) ! JVS(142) = Jac_FULL(31,63) - JVS(142) = 0.3*B(1415) + JVS(142) = 0.3*B(1417) ! JVS(143) = Jac_FULL(31,64) JVS(143) = B(1159) ! JVS(144) = Jac_FULL(31,71) - JVS(144) = B(1490) + JVS(144) = B(1492) ! JVS(145) = Jac_FULL(31,86) - JVS(145) = B(749)+B(1508) + JVS(145) = B(749)+B(1510) ! JVS(146) = Jac_FULL(31,87) - JVS(146) = B(745)+B(1506) + JVS(146) = B(745)+B(1508) ! JVS(147) = Jac_FULL(31,88) - JVS(147) = B(747)+B(1507) + JVS(147) = B(747)+B(1509) ! JVS(148) = Jac_FULL(31,89) - JVS(148) = B(751)+B(1509) + JVS(148) = B(751)+B(1511) ! JVS(149) = Jac_FULL(31,95) JVS(149) = B(1207)+B(1208) ! JVS(150) = Jac_FULL(31,96) JVS(150) = B(741) ! JVS(151) = Jac_FULL(31,101) - JVS(151) = B(1408) + JVS(151) = B(1410) ! JVS(152) = Jac_FULL(31,103) JVS(152) = 2*B(535) ! JVS(153) = Jac_FULL(31,117) @@ -3549,7 +3553,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(200) = Jac_FULL(31,238) JVS(200) = 0.02*B(1122) ! JVS(201) = Jac_FULL(31,239) - JVS(201) = 0.01*B(1540) + JVS(201) = 0.01*B(1542) ! JVS(202) = Jac_FULL(31,240) JVS(202) = B(975)+B(977) ! JVS(203) = Jac_FULL(31,241) @@ -3591,7 +3595,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) &+B(839)+B(841)+B(846)+B(848)+B(853)+B(855)+B(873)+B(875)+B(879)+B(881)+B(887)+B(889)+B(892)+B(896)+B(923)& &+B(925)+B(930)+B(932)+B(938)+B(940)+B(944)+B(946)+B(950)+B(952)+B(976)+B(978)+B(980)+B(982)+B(1009)+B(1011)& &+B(1013)+B(1015)+B(1021)+B(1027)+B(1053)+B(1059)+B(1079)+0.438*B(1081)+B(1090)+B(1092)+B(1094)+B(1100)+0.995& - &*B(1151)+B(1174)+B(1202)+B(1213)+B(1496) + &*B(1151)+B(1174)+B(1202)+B(1213)+B(1498) ! JVS(220) = Jac_FULL(31,281) JVS(220) = B(42)+0.15*B(213)+B(416)+B(515)+0.13*B(1085)+0.13*B(1098)+0.13*B(1131)+0.15*B(1200) ! JVS(221) = Jac_FULL(31,285) @@ -3599,17 +3603,17 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(222) = Jac_FULL(32,32) JVS(222) = 0 ! JVS(223) = Jac_FULL(32,38) - JVS(223) = 4*B(1343)+4*B(1344)+4*B(1345) + JVS(223) = 4*B(1345)+4*B(1346)+4*B(1347) ! JVS(224) = Jac_FULL(32,40) - JVS(224) = 2*B(1337)+2*B(1338)+2*B(1339) + JVS(224) = 2*B(1339)+2*B(1340)+2*B(1341) ! JVS(225) = Jac_FULL(32,47) - JVS(225) = 3*B(1340)+3*B(1341)+3*B(1342) + JVS(225) = 3*B(1342)+3*B(1343)+3*B(1344) ! JVS(226) = Jac_FULL(32,57) JVS(226) = B(371)+B(373) ! JVS(227) = Jac_FULL(32,62) JVS(227) = B(395) ! JVS(228) = Jac_FULL(32,72) - JVS(228) = B(477)+2*B(1454) + JVS(228) = B(477)+2*B(1456) ! JVS(229) = Jac_FULL(32,75) JVS(229) = B(1142) ! JVS(230) = Jac_FULL(32,81) @@ -3617,7 +3621,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(231) = Jac_FULL(32,82) JVS(231) = B(315) ! JVS(232) = Jac_FULL(32,90) - JVS(232) = 2*B(1477) + JVS(232) = 2*B(1479) ! JVS(233) = Jac_FULL(32,97) JVS(233) = 0.56*B(437) ! JVS(234) = Jac_FULL(32,99) @@ -3631,13 +3635,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(238) = Jac_FULL(32,118) JVS(238) = 1.258*B(1183) ! JVS(239) = Jac_FULL(32,131) - JVS(239) = B(1382) + JVS(239) = B(1384) ! JVS(240) = Jac_FULL(32,135) JVS(240) = B(8)+B(13) ! JVS(241) = Jac_FULL(32,136) - JVS(241) = B(1386) + JVS(241) = B(1388) ! JVS(242) = Jac_FULL(32,137) - JVS(242) = B(1387) + JVS(242) = B(1389) ! JVS(243) = Jac_FULL(32,138) JVS(243) = B(1191)+1.5*B(1193) ! JVS(244) = Jac_FULL(32,144) @@ -3645,7 +3649,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(245) = Jac_FULL(32,145) JVS(245) = B(1239) ! JVS(246) = Jac_FULL(32,147) - JVS(246) = B(1390) + JVS(246) = B(1392) ! JVS(247) = Jac_FULL(32,150) JVS(247) = B(681)+B(685) ! JVS(248) = Jac_FULL(32,151) @@ -3659,21 +3663,21 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(252) = Jac_FULL(32,165) JVS(252) = B(691)+B(693) ! JVS(253) = Jac_FULL(32,169) - JVS(253) = B(1259)+B(1261)+B(1263)+B(1264)+B(1266) + JVS(253) = B(1261)+B(1263)+B(1265)+B(1266)+B(1268) ! JVS(254) = Jac_FULL(32,171) - JVS(254) = B(1395) + JVS(254) = B(1397) ! JVS(255) = Jac_FULL(32,172) - JVS(255) = B(1274) + JVS(255) = B(1276) ! JVS(256) = Jac_FULL(32,173) JVS(256) = B(411) ! JVS(257) = Jac_FULL(32,174) - JVS(257) = 2*B(739)+B(1380) + JVS(257) = 2*B(739)+B(1382) ! JVS(258) = Jac_FULL(32,175) JVS(258) = B(1152) ! JVS(259) = Jac_FULL(32,176) JVS(259) = B(1203) ! JVS(260) = Jac_FULL(32,177) - JVS(260) = B(1391) + JVS(260) = B(1393) ! JVS(261) = Jac_FULL(32,178) JVS(261) = B(1175) ! JVS(262) = Jac_FULL(32,186) @@ -3681,27 +3685,27 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(263) = Jac_FULL(32,187) JVS(263) = B(1214) ! JVS(264) = Jac_FULL(32,195) - JVS(264) = B(1396) + JVS(264) = B(1398) ! JVS(265) = Jac_FULL(32,196) - JVS(265) = B(735)+2*B(737)+B(1381) + JVS(265) = B(735)+2*B(737)+B(1383) ! JVS(266) = Jac_FULL(32,198) - JVS(266) = B(1379) + JVS(266) = B(1381) ! JVS(267) = Jac_FULL(32,199) - JVS(267) = B(1348)+B(1350)+B(1352)+B(1354) + JVS(267) = B(1350)+B(1352)+B(1354)+B(1356) ! JVS(268) = Jac_FULL(32,205) JVS(268) = B(1124) ! JVS(269) = Jac_FULL(32,208) JVS(269) = B(407) ! JVS(270) = Jac_FULL(32,209) - JVS(270) = B(1393) + JVS(270) = B(1395) ! JVS(271) = Jac_FULL(32,210) - JVS(271) = B(1388) + JVS(271) = B(1390) ! JVS(272) = Jac_FULL(32,211) JVS(272) = B(723) ! JVS(273) = Jac_FULL(32,212) JVS(273) = B(725) ! JVS(274) = Jac_FULL(32,216) - JVS(274) = B(1385) + JVS(274) = B(1387) ! JVS(275) = Jac_FULL(32,218) JVS(275) = B(228) ! JVS(276) = Jac_FULL(32,220) @@ -3717,15 +3721,15 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(281) = Jac_FULL(32,230) JVS(281) = B(651) ! JVS(282) = Jac_FULL(32,231) - JVS(282) = B(1290)+B(1292)+B(1294)+B(1296)+B(1298)+B(1300) + JVS(282) = B(1292)+B(1294)+B(1296)+B(1298)+B(1300)+B(1302) ! JVS(283) = Jac_FULL(32,234) JVS(283) = B(679) ! JVS(284) = Jac_FULL(32,237) - JVS(284) = B(1378) + JVS(284) = B(1380) ! JVS(285) = Jac_FULL(32,238) - JVS(285) = B(1394) + JVS(285) = B(1396) ! JVS(286) = Jac_FULL(32,239) - JVS(286) = 2*B(1392) + JVS(286) = 2*B(1394) ! JVS(287) = Jac_FULL(32,240) JVS(287) = B(971) ! JVS(288) = Jac_FULL(32,241) @@ -3741,9 +3745,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(293) = Jac_FULL(32,255) JVS(293) = B(156) ! JVS(294) = Jac_FULL(32,256) - JVS(294) = B(335)+B(1312)+B(1314)+B(1316)+B(1318)+B(1320)+B(1322)+B(1324)+B(1441) + JVS(294) = B(335)+B(1314)+B(1316)+B(1318)+B(1320)+B(1322)+B(1324)+B(1326)+B(1443) ! JVS(295) = Jac_FULL(32,259) - JVS(295) = B(1278)+B(1280)+B(1282)+B(1284)+B(1286)+B(1288) + JVS(295) = B(1280)+B(1282)+B(1284)+B(1286)+B(1288)+B(1290) ! JVS(296) = Jac_FULL(32,260) JVS(296) = B(7)+B(14) ! JVS(297) = Jac_FULL(32,261) @@ -3751,51 +3755,51 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(298) = Jac_FULL(32,262) JVS(298) = B(96)+B(427) ! JVS(299) = Jac_FULL(32,263) - JVS(299) = B(33)+B(469) + JVS(299) = B(33)+B(469)+B(1254) ! JVS(300) = Jac_FULL(32,264) - JVS(300) = B(1364)+B(1366)+B(1368)+B(1370)+B(1475) + JVS(300) = B(1366)+B(1368)+B(1370)+B(1372)+B(1477) ! JVS(301) = Jac_FULL(32,266) - JVS(301) = B(1356)+B(1358)+B(1360)+B(1362) + JVS(301) = B(1358)+B(1360)+B(1362)+B(1364) ! JVS(302) = Jac_FULL(32,267) - JVS(302) = B(1302)+B(1304)+B(1306)+B(1308)+B(1310)+B(1458) + JVS(302) = B(1304)+B(1306)+B(1308)+B(1310)+B(1312)+B(1460) ! JVS(303) = Jac_FULL(32,268) JVS(303) = B(363)+B(369)+B(372)+B(374)+B(376)+B(378)+B(380)+2*B(391)+0.67*B(429)+0.65*B(431)+0.56*B(438)+0.17*B(444) ! JVS(304) = Jac_FULL(32,269) JVS(304) = B(2)+B(9)+B(17)+B(27)+B(29)+B(34)+B(217)+2*B(383)+2*B(392)+B(412)+B(652)+B(682)+B(684)+B(692)+B(736)+B(754)& &+B(1033)+B(1039)+B(1143)+B(1192)+B(1221)+B(1235)+B(1240) ! JVS(305) = Jac_FULL(32,270) - JVS(305) = 2*B(94)+2*B(399)+B(1204)+B(1223)+0.5*B(1255) + JVS(305) = 2*B(94)+2*B(399)+B(1204)+B(1223)+0.5*B(1257) ! JVS(306) = Jac_FULL(32,271) - JVS(306) = 0.67*B(430)+B(1262)+B(1275)+B(1279)+B(1295)+B(1303)+B(1315) + JVS(306) = 0.67*B(430)+B(1264)+B(1277)+B(1281)+B(1297)+B(1305)+B(1317) ! JVS(307) = Jac_FULL(32,272) - JVS(307) = B(337)+0.65*B(432)+B(1281)+B(1301)+B(1305)+B(1313) + JVS(307) = B(337)+0.65*B(432)+B(1283)+B(1303)+B(1307)+B(1315) ! JVS(308) = Jac_FULL(32,273) - JVS(308) = B(364)+B(1260) + JVS(308) = B(364)+B(1262) ! JVS(309) = Jac_FULL(32,274) JVS(309) = 2*B(327)+2*B(328)+B(339)+2*B(425)+2*B(539)+2*B(541)+2*B(602) ! JVS(310) = Jac_FULL(32,275) - JVS(310) = B(1283)+B(1297)+B(1321)+B(1349)+B(1357)+B(1365) + JVS(310) = B(1285)+B(1299)+B(1323)+B(1351)+B(1359)+B(1367) ! JVS(311) = Jac_FULL(32,276) - JVS(311) = B(1285)+B(1299)+B(1323)+B(1351)+B(1359)+B(1367) + JVS(311) = B(1287)+B(1301)+B(1325)+B(1353)+B(1361)+B(1369) ! JVS(312) = Jac_FULL(32,277) JVS(312) = B(470)+B(471)+B(473)+2*B(517)+2*B(525)+2*B(526)+2*B(540)+2*B(542)+2*B(614)+2*B(616) ! JVS(313) = Jac_FULL(32,278) - JVS(313) = B(1265)+B(1287)+B(1291)+B(1307)+B(1317)+B(1353)+B(1361)+B(1369) + JVS(313) = B(1267)+B(1289)+B(1293)+B(1309)+B(1319)+B(1355)+B(1363)+B(1371) ! JVS(314) = Jac_FULL(32,279) JVS(314) = B(28)+B(85)+B(340)+B(387)+B(472)+B(474)+B(476)+B(478) ! JVS(315) = Jac_FULL(32,281) JVS(315) = B(30)+B(81)+B(389) ! JVS(316) = Jac_FULL(32,282) - JVS(316) = B(1267)+B(1289)+B(1293)+B(1309)+B(1319)+B(1355)+B(1363)+B(1371) + JVS(316) = B(1269)+B(1291)+B(1295)+B(1311)+B(1321)+B(1357)+B(1365)+B(1373) ! JVS(317) = Jac_FULL(32,283) JVS(317) = B(82)+B(86)+2*B(95)+B(97)+B(101)+B(144)+B(157)+B(183)+B(223)+B(229)+B(231)+B(267)+2*B(307)+B(316)+2*B(401)& &+B(680)+B(686)+B(688)+B(694)+B(704)+B(724)+B(726)+2*B(738)+2*B(740)+B(954)+B(972)+B(974)+B(1041)+B(1104)& - &+B(1125)+B(1153)+B(1176)+1.258*B(1184)+1.5*B(1188)+1.5*B(1194)+B(1198)+B(1215)+B(1256)+2*B(1257)+2*B(1258)+2& - &*B(1411) + &+B(1125)+B(1153)+B(1176)+1.258*B(1184)+1.5*B(1188)+1.5*B(1194)+B(1198)+B(1215)+B(1255)+B(1258)+2*B(1259)+2& + &*B(1260)+2*B(1413) ! JVS(318) = Jac_FULL(32,284) JVS(318) = B(336)+B(338)+2*B(384)+B(388)+B(390)+B(396)+2*B(400)+2*B(402)+B(408)+2*B(426)+B(428)+2*B(518) ! JVS(319) = Jac_FULL(32,286) - JVS(319) = B(3)+B(10)+B(18)+B(1311)+B(1325) + JVS(319) = B(3)+B(10)+B(18)+B(1313)+B(1327) ! JVS(320) = Jac_FULL(33,33) JVS(320) = 0 ! JVS(321) = Jac_FULL(33,54) @@ -3803,7 +3807,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(322) = Jac_FULL(33,60) JVS(322) = 0.2*B(1165) ! JVS(323) = Jac_FULL(33,62) - JVS(323) = B(395)+B(1494) + JVS(323) = B(395)+B(1496) ! JVS(324) = Jac_FULL(33,68) JVS(324) = B(551) ! JVS(325) = Jac_FULL(33,73) @@ -3813,17 +3817,17 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(327) = Jac_FULL(33,77) JVS(327) = 0.3*B(1169) ! JVS(328) = Jac_FULL(33,99) - JVS(328) = B(1551) + JVS(328) = B(1553) ! JVS(329) = Jac_FULL(33,100) JVS(329) = B(547) ! JVS(330) = Jac_FULL(33,106) JVS(330) = B(819) ! JVS(331) = Jac_FULL(33,122) - JVS(331) = 0.888*B(1114)+B(1545) + JVS(331) = 0.888*B(1114)+B(1547) ! JVS(332) = Jac_FULL(33,125) - JVS(332) = 0.42*B(811)+B(1530) + JVS(332) = 0.42*B(811)+B(1532) ! JVS(333) = Jac_FULL(33,126) - JVS(333) = 0.23*B(813)+B(1531) + JVS(333) = 0.23*B(813)+B(1533) ! JVS(334) = Jac_FULL(33,130) JVS(334) = 0.84*B(1074) ! JVS(335) = Jac_FULL(33,133) @@ -3839,7 +3843,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(340) = Jac_FULL(33,151) JVS(340) = 0.14*B(683) ! JVS(341) = Jac_FULL(33,152) - JVS(341) = B(1066)+0.571*B(1517) + JVS(341) = B(1066)+0.571*B(1519) ! JVS(342) = Jac_FULL(33,153) JVS(342) = 0.25*B(829) ! JVS(343) = Jac_FULL(33,155) @@ -3847,53 +3851,53 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(344) = Jac_FULL(33,158) JVS(344) = 0.33*B(831) ! JVS(345) = Jac_FULL(33,160) - JVS(345) = 0.75*B(1064)+0.875*B(1518) + JVS(345) = 0.75*B(1064)+0.875*B(1520) ! JVS(346) = Jac_FULL(33,161) JVS(346) = 0.054*B(835) ! JVS(347) = Jac_FULL(33,165) JVS(347) = 0.14*B(691) ! JVS(348) = Jac_FULL(33,166) - JVS(348) = 2*B(1072)+B(1514) + JVS(348) = 2*B(1072)+B(1516) ! JVS(349) = Jac_FULL(33,167) JVS(349) = 0.036*B(833) ! JVS(350) = Jac_FULL(33,168) - JVS(350) = B(1132)+B(1511) + JVS(350) = B(1132)+B(1513) ! JVS(351) = Jac_FULL(33,170) JVS(351) = 1.5*B(817) ! JVS(352) = Jac_FULL(33,171) - JVS(352) = 0.25*B(1050)+B(1523) + JVS(352) = 0.25*B(1050)+B(1525) ! JVS(353) = Jac_FULL(33,181) - JVS(353) = 0.5*B(1515) + JVS(353) = 0.5*B(1517) ! JVS(354) = Jac_FULL(33,182) - JVS(354) = 0.45*B(807)+0.888*B(1528) + JVS(354) = 0.45*B(807)+0.888*B(1530) ! JVS(355) = Jac_FULL(33,184) - JVS(355) = 0.37*B(809)+0.818*B(1529) + JVS(355) = 0.37*B(809)+0.818*B(1531) ! JVS(356) = Jac_FULL(33,189) JVS(356) = 0.638*B(815) ! JVS(357) = Jac_FULL(33,190) JVS(357) = 0.52*B(884)+0.8*B(888)+2*B(890) ! JVS(358) = Jac_FULL(33,195) - JVS(358) = B(1522) + JVS(358) = B(1524) ! JVS(359) = Jac_FULL(33,201) JVS(359) = 0.507*B(1082)+B(1088)+0.86*B(1089) ! JVS(360) = Jac_FULL(33,202) - JVS(360) = B(1112)+B(1541)+0.122*B(1542) + JVS(360) = B(1112)+B(1543)+0.122*B(1544) ! JVS(361) = Jac_FULL(33,203) JVS(361) = 0.325*B(1084)+0.65*B(1093) ! JVS(362) = Jac_FULL(33,205) - JVS(362) = B(1498) + JVS(362) = B(1500) ! JVS(363) = Jac_FULL(33,206) - JVS(363) = B(1554) + JVS(363) = B(1556) ! JVS(364) = Jac_FULL(33,209) - JVS(364) = B(1120)+B(1549) + JVS(364) = B(1120)+B(1551) ! JVS(365) = Jac_FULL(33,210) - JVS(365) = 0.6*B(917)+0.55*B(1535) + JVS(365) = 0.6*B(917)+0.55*B(1537) ! JVS(366) = Jac_FULL(33,216) - JVS(366) = 0.6*B(915)+0.55*B(1532) + JVS(366) = 0.6*B(915)+0.55*B(1534) ! JVS(367) = Jac_FULL(33,218) - JVS(367) = 2*B(224)+2*B(228)+2*B(1421)+2*B(1422)+B(1423) + JVS(367) = 2*B(224)+2*B(228)+2*B(1423)+2*B(1424)+B(1425) ! JVS(368) = Jac_FULL(33,219) - JVS(368) = B(1418) + JVS(368) = B(1420) ! JVS(369) = Jac_FULL(33,220) JVS(369) = 0.407*B(753)+0.6*B(759)+0.9*B(761) ! JVS(370) = Jac_FULL(33,224) @@ -3901,31 +3905,31 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(371) = Jac_FULL(33,225) JVS(371) = B(869)+0.13*B(870)+0.2*B(872) ! JVS(372) = Jac_FULL(33,227) - JVS(372) = 0.77*B(1046)+0.77*B(1519) + JVS(372) = 0.77*B(1046)+0.77*B(1521) ! JVS(373) = Jac_FULL(33,228) - JVS(373) = B(226)+B(230)+B(1424) + JVS(373) = B(226)+B(230)+B(1426) ! JVS(374) = Jac_FULL(33,232) - JVS(374) = 0.505*B(218)+B(220)+B(1420) + JVS(374) = 0.505*B(218)+B(220)+B(1422) ! JVS(375) = Jac_FULL(33,236) - JVS(375) = 0.539*B(1018)+0.839*B(1539) + JVS(375) = 0.539*B(1018)+0.839*B(1541) ! JVS(376) = Jac_FULL(33,242) JVS(376) = 0.6*B(772)+B(779)+B(781)+0.5*B(785)+0.55*B(797) ! JVS(377) = Jac_FULL(33,243) JVS(377) = 0.9*B(774)+B(780)+B(782)+0.5*B(789)+0.55*B(805) ! JVS(378) = Jac_FULL(33,244) - JVS(378) = 0.18*B(1032)+B(1425)+B(1426) + JVS(378) = 0.18*B(1032)+B(1427)+B(1428) ! JVS(379) = Jac_FULL(33,246) JVS(379) = 0.5*B(234) ! JVS(380) = Jac_FULL(33,247) - JVS(380) = 0.036*B(1034)+0.12*B(1038)+0.68*B(1040)+B(1428) + JVS(380) = 0.036*B(1034)+0.12*B(1038)+0.68*B(1040)+B(1430) ! JVS(381) = Jac_FULL(33,254) JVS(381) = 0.56*B(216) ! JVS(382) = Jac_FULL(33,255) - JVS(382) = B(1416) + JVS(382) = B(1418) ! JVS(383) = Jac_FULL(33,261) - JVS(383) = 0.05*B(98)+0.88*B(1413)+B(1414) + JVS(383) = 0.05*B(98)+0.88*B(1415)+B(1416) ! JVS(384) = Jac_FULL(33,262) - JVS(384) = B(66)+B(96)+B(343)+B(427)+B(505)+B(1404)+B(1405) + JVS(384) = B(66)+B(96)+B(343)+B(427)+B(505)+B(1406)+B(1407) ! JVS(385) = Jac_FULL(33,263) JVS(385) = 0.5*B(786)+0.5*B(790) ! JVS(386) = Jac_FULL(33,269) @@ -4012,53 +4016,53 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(424) = Jac_FULL(37,281) JVS(424) = B(43) ! JVS(425) = Jac_FULL(38,38) - JVS(425) = -B(608)-B(1343)-B(1344)-B(1345)-B(1486) + JVS(425) = -B(608)-B(1345)-B(1346)-B(1347)-B(1488) ! JVS(426) = Jac_FULL(38,90) JVS(426) = B(607) ! JVS(427) = Jac_FULL(39,39) - JVS(427) = -B(493)-B(1459) + JVS(427) = -B(493)-B(1461) ! JVS(428) = Jac_FULL(39,279) JVS(428) = -B(494) ! JVS(429) = Jac_FULL(40,40) - JVS(429) = -B(633)-B(634)-B(1337)-B(1338)-B(1339)-B(1481) + JVS(429) = -B(633)-B(634)-B(1339)-B(1340)-B(1341)-B(1483) ! JVS(430) = Jac_FULL(40,223) JVS(430) = B(632) ! JVS(431) = Jac_FULL(41,41) JVS(431) = -B(742) ! JVS(432) = Jac_FULL(41,131) - JVS(432) = B(1382) + JVS(432) = B(1384) ! JVS(433) = Jac_FULL(41,174) - JVS(433) = B(1380) + JVS(433) = B(1382) ! JVS(434) = Jac_FULL(41,196) - JVS(434) = B(1381) + JVS(434) = B(1383) ! JVS(435) = Jac_FULL(42,42) - JVS(435) = -0.75*B(461)-B(1464) + JVS(435) = -0.75*B(461)-B(1466) ! JVS(436) = Jac_FULL(42,268) JVS(436) = -0.75*B(462) ! JVS(437) = Jac_FULL(43,43) - JVS(437) = -B(635)-B(1482) + JVS(437) = -B(635)-B(1484) ! JVS(438) = Jac_FULL(43,279) JVS(438) = -B(636) ! JVS(439) = Jac_FULL(44,44) - JVS(439) = -0.41*B(451)-B(1470) + JVS(439) = -0.41*B(451)-B(1472) ! JVS(440) = Jac_FULL(44,268) JVS(440) = -0.41*B(452) ! JVS(441) = Jac_FULL(45,45) - JVS(441) = -0.75*B(465)-B(1472) + JVS(441) = -0.75*B(465)-B(1474) ! JVS(442) = Jac_FULL(45,268) JVS(442) = -0.75*B(466) ! JVS(443) = Jac_FULL(46,46) - JVS(443) = -0.3*B(463)-B(1465) + JVS(443) = -0.3*B(463)-B(1467) ! JVS(444) = Jac_FULL(46,268) JVS(444) = -0.3*B(464) ! JVS(445) = Jac_FULL(47,47) - JVS(445) = -B(1340)-B(1341)-B(1342)-B(1487) + JVS(445) = -B(1342)-B(1343)-B(1344)-B(1489) ! JVS(446) = Jac_FULL(47,90) JVS(446) = B(605) ! JVS(447) = Jac_FULL(47,223) JVS(447) = B(606) ! JVS(448) = Jac_FULL(48,48) - JVS(448) = -0.75*B(459)-B(1463) + JVS(448) = -0.75*B(459)-B(1465) ! JVS(449) = Jac_FULL(48,268) JVS(449) = -0.75*B(460) ! JVS(450) = Jac_FULL(49,49) @@ -4068,21 +4072,21 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(452) = Jac_FULL(49,270) JVS(452) = B(152) ! JVS(453) = Jac_FULL(50,50) - JVS(453) = -B(1444) + JVS(453) = -B(1446) ! JVS(454) = Jac_FULL(50,270) JVS(454) = B(353) ! JVS(455) = Jac_FULL(50,287) JVS(455) = B(354) ! JVS(456) = Jac_FULL(51,51) - JVS(456) = -0.86*B(435)-B(1460) + JVS(456) = -0.86*B(435)-B(1462) ! JVS(457) = Jac_FULL(51,268) JVS(457) = -0.86*B(436) ! JVS(458) = Jac_FULL(52,52) - JVS(458) = -0.88*B(445)-B(1461) + JVS(458) = -0.88*B(445)-B(1463) ! JVS(459) = Jac_FULL(52,268) JVS(459) = -0.88*B(446) ! JVS(460) = Jac_FULL(53,53) - JVS(460) = -0.86*B(447)-B(1462) + JVS(460) = -0.86*B(447)-B(1464) ! JVS(461) = Jac_FULL(53,268) JVS(461) = -0.86*B(448) ! JVS(462) = Jac_FULL(54,54) @@ -4090,17 +4094,17 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(463) = Jac_FULL(54,279) JVS(463) = -B(1147) ! JVS(464) = Jac_FULL(55,55) - JVS(464) = -0.64*B(449)-B(1471) + JVS(464) = -0.64*B(449)-B(1473) ! JVS(465) = Jac_FULL(55,268) JVS(465) = -0.64*B(450) ! JVS(466) = Jac_FULL(56,56) - JVS(466) = -2*B(587)-B(1478) + JVS(466) = -2*B(587)-B(1480) ! JVS(467) = Jac_FULL(56,265) JVS(467) = B(585) ! JVS(468) = Jac_FULL(56,280) JVS(468) = B(586) ! JVS(469) = Jac_FULL(57,57) - JVS(469) = -B(371)-B(373)-B(1493) + JVS(469) = -B(371)-B(373)-B(1495) ! JVS(470) = Jac_FULL(57,61) JVS(470) = B(423) ! JVS(471) = Jac_FULL(57,268) @@ -4108,21 +4112,21 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(472) = Jac_FULL(57,270) JVS(472) = B(424) ! JVS(473) = Jac_FULL(58,58) - JVS(473) = -B(1504)-B(1505) + JVS(473) = -B(1506)-B(1507) ! JVS(474) = Jac_FULL(58,144) JVS(474) = B(6) ! JVS(475) = Jac_FULL(58,260) JVS(475) = B(7) ! JVS(476) = Jac_FULL(58,283) - JVS(476) = B(1257) + JVS(476) = B(1259) ! JVS(477) = Jac_FULL(59,59) - JVS(477) = -B(1502)-B(1503) + JVS(477) = -B(1504)-B(1505) ! JVS(478) = Jac_FULL(59,135) JVS(478) = B(13) ! JVS(479) = Jac_FULL(59,260) JVS(479) = B(14) ! JVS(480) = Jac_FULL(59,283) - JVS(480) = B(1258) + JVS(480) = B(1260) ! JVS(481) = Jac_FULL(60,60) JVS(481) = -B(1165) ! JVS(482) = Jac_FULL(60,279) @@ -4132,15 +4136,15 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(484) = Jac_FULL(61,270) JVS(484) = -B(424) ! JVS(485) = Jac_FULL(61,280) - JVS(485) = -B(422)+B(1496) + JVS(485) = -B(422)+B(1498) ! JVS(486) = Jac_FULL(62,62) - JVS(486) = -B(395)-B(397)-B(1494) + JVS(486) = -B(395)-B(397)-B(1496) ! JVS(487) = Jac_FULL(62,279) JVS(487) = -B(398) ! JVS(488) = Jac_FULL(62,284) JVS(488) = -B(396) ! JVS(489) = Jac_FULL(63,63) - JVS(489) = -B(104)-B(1415) + JVS(489) = -B(104)-B(1417) ! JVS(490) = Jac_FULL(63,257) JVS(490) = B(102) ! JVS(491) = Jac_FULL(63,270) @@ -4154,7 +4158,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(495) = Jac_FULL(64,280) JVS(495) = 0.005*B(1151) ! JVS(496) = Jac_FULL(65,65) - JVS(496) = -B(623)-B(1334)-B(1335)-B(1336) + JVS(496) = -B(623)-B(1336)-B(1337)-B(1338) ! JVS(497) = Jac_FULL(65,265) JVS(497) = B(619) ! JVS(498) = Jac_FULL(65,279) @@ -4162,7 +4166,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(499) = Jac_FULL(65,281) JVS(499) = B(620) ! JVS(500) = Jac_FULL(66,66) - JVS(500) = -B(264)-B(1438) + JVS(500) = -B(264)-B(1440) ! JVS(501) = Jac_FULL(66,257) JVS(501) = 0.37*B(1130) ! JVS(502) = Jac_FULL(66,279) @@ -4170,7 +4174,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(503) = Jac_FULL(66,281) JVS(503) = 0.37*B(1131) ! JVS(504) = Jac_FULL(67,67) - JVS(504) = -B(1205)-B(1552) + JVS(504) = -B(1205)-B(1554) ! JVS(505) = Jac_FULL(67,176) JVS(505) = 0.65*B(1199) ! JVS(506) = Jac_FULL(67,279) @@ -4184,43 +4188,43 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(510) = Jac_FULL(68,285) JVS(510) = -B(552) ! JVS(511) = Jac_FULL(69,69) - JVS(511) = -B(1488) + JVS(511) = -B(1490) ! JVS(512) = Jac_FULL(69,199) - JVS(512) = B(1348)+B(1350) + JVS(512) = B(1350)+B(1352) ! JVS(513) = Jac_FULL(69,264) - JVS(513) = B(1364)+B(1366) + JVS(513) = B(1366)+B(1368) ! JVS(514) = Jac_FULL(69,266) - JVS(514) = B(1356)+B(1358) + JVS(514) = B(1358)+B(1360) ! JVS(515) = Jac_FULL(69,275) - JVS(515) = B(1349)+B(1357)+B(1365) + JVS(515) = B(1351)+B(1359)+B(1367) ! JVS(516) = Jac_FULL(69,276) - JVS(516) = B(1351)+B(1359)+B(1367) + JVS(516) = B(1353)+B(1361)+B(1369) ! JVS(517) = Jac_FULL(70,70) - JVS(517) = -B(359)-0.95*B(439)-B(1446) + JVS(517) = -B(359)-0.95*B(439)-B(1448) ! JVS(518) = Jac_FULL(70,268) JVS(518) = -0.95*B(440) ! JVS(519) = Jac_FULL(70,279) JVS(519) = -B(360) ! JVS(520) = Jac_FULL(71,71) - JVS(520) = -B(310)-B(1490)-B(1491) + JVS(520) = -B(310)-B(1492)-B(1493) ! JVS(521) = Jac_FULL(71,263) JVS(521) = B(308) ! JVS(522) = Jac_FULL(71,270) JVS(522) = B(309) ! JVS(523) = Jac_FULL(72,72) - JVS(523) = -B(477)-B(532)-B(1454) + JVS(523) = -B(477)-B(532)-B(1456) ! JVS(524) = Jac_FULL(72,277) JVS(524) = B(531) ! JVS(525) = Jac_FULL(72,279) JVS(525) = -B(478) ! JVS(526) = Jac_FULL(73,73) - JVS(526) = -B(489)-B(549)-B(1449) + JVS(526) = -B(489)-B(549)-B(1451) ! JVS(527) = Jac_FULL(73,279) JVS(527) = -B(490) ! JVS(528) = Jac_FULL(73,285) JVS(528) = -B(550) ! JVS(529) = Jac_FULL(74,74) - JVS(529) = -B(357)-0.68*B(441)-B(1445) + JVS(529) = -B(357)-0.68*B(441)-B(1447) ! JVS(530) = Jac_FULL(74,268) JVS(530) = -0.68*B(442) ! JVS(531) = Jac_FULL(74,279) @@ -4240,25 +4244,25 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(538) = Jac_FULL(77,279) JVS(538) = -B(1170) ! JVS(539) = Jac_FULL(78,78) - JVS(539) = -0.79*B(457)-B(501)-B(1466) + JVS(539) = -0.79*B(457)-B(501)-B(1468) ! JVS(540) = Jac_FULL(78,268) JVS(540) = -0.79*B(458) ! JVS(541) = Jac_FULL(78,279) JVS(541) = -B(502) ! JVS(542) = Jac_FULL(79,79) - JVS(542) = -0.69*B(453)-B(497)-B(1467) + JVS(542) = -0.69*B(453)-B(497)-B(1469) ! JVS(543) = Jac_FULL(79,268) JVS(543) = -0.69*B(454) ! JVS(544) = Jac_FULL(79,279) JVS(544) = -B(498) ! JVS(545) = Jac_FULL(80,80) - JVS(545) = -0.74*B(455)-B(499)-B(1468) + JVS(545) = -0.74*B(455)-B(499)-B(1470) ! JVS(546) = Jac_FULL(80,268) JVS(546) = -0.74*B(456) ! JVS(547) = Jac_FULL(80,279) JVS(547) = -B(500) ! JVS(548) = Jac_FULL(81,81) - JVS(548) = -0.72*B(443)-B(495)-B(1469) + JVS(548) = -0.72*B(443)-B(495)-B(1471) ! JVS(549) = Jac_FULL(81,268) JVS(549) = -0.72*B(444) ! JVS(550) = Jac_FULL(81,279) @@ -4270,7 +4274,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(553) = Jac_FULL(82,283) JVS(553) = -B(316) ! JVS(554) = Jac_FULL(83,83) - JVS(554) = -B(1128)-B(1510) + JVS(554) = -B(1128)-B(1512) ! JVS(555) = Jac_FULL(83,230) JVS(555) = 0.73*B(647)+0.4*B(649) ! JVS(556) = Jac_FULL(83,273) @@ -4278,7 +4282,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(557) = Jac_FULL(83,279) JVS(557) = -B(1129) ! JVS(558) = Jac_FULL(84,84) - JVS(558) = -B(1110)-B(1384) + JVS(558) = -B(1110)-B(1386) ! JVS(559) = Jac_FULL(84,133) JVS(559) = 0.098*B(1086) ! JVS(560) = Jac_FULL(84,149) @@ -4294,7 +4298,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(565) = Jac_FULL(85,286) JVS(565) = B(21) ! JVS(566) = Jac_FULL(86,86) - JVS(566) = -B(749)-B(1508) + JVS(566) = -B(749)-B(1510) ! JVS(567) = Jac_FULL(86,253) JVS(567) = B(139) ! JVS(568) = Jac_FULL(86,279) @@ -4302,7 +4306,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(569) = Jac_FULL(86,280) JVS(569) = B(140) ! JVS(570) = Jac_FULL(87,87) - JVS(570) = -B(745)-B(1506) + JVS(570) = -B(745)-B(1508) ! JVS(571) = Jac_FULL(87,263) JVS(571) = B(50) ! JVS(572) = Jac_FULL(87,279) @@ -4310,7 +4314,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(573) = Jac_FULL(87,280) JVS(573) = B(51) ! JVS(574) = Jac_FULL(88,88) - JVS(574) = -B(747)-B(1507) + JVS(574) = -B(747)-B(1509) ! JVS(575) = Jac_FULL(88,213) JVS(575) = B(111) ! JVS(576) = Jac_FULL(88,279) @@ -4318,7 +4322,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(577) = Jac_FULL(88,280) JVS(577) = B(112) ! JVS(578) = Jac_FULL(89,89) - JVS(578) = -B(751)-B(1509) + JVS(578) = -B(751)-B(1511) ! JVS(579) = Jac_FULL(89,233) JVS(579) = B(121) ! JVS(580) = Jac_FULL(89,279) @@ -4326,13 +4330,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(581) = Jac_FULL(89,280) JVS(581) = B(122) ! JVS(582) = Jac_FULL(90,38) - JVS(582) = 2*B(608)+2*B(1486) + JVS(582) = 2*B(608)+2*B(1488) ! JVS(583) = Jac_FULL(90,40) - JVS(583) = B(634)+B(1481) + JVS(583) = B(634)+B(1483) ! JVS(584) = Jac_FULL(90,47) - JVS(584) = B(1487) + JVS(584) = B(1489) ! JVS(585) = Jac_FULL(90,90) - JVS(585) = -B(605)-2*B(607)-B(609)-B(1477) + JVS(585) = -B(605)-2*B(607)-B(609)-B(1479) ! JVS(586) = Jac_FULL(90,223) JVS(586) = B(603)-B(606)+B(631) ! JVS(587) = Jac_FULL(90,274) @@ -4340,7 +4344,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(588) = Jac_FULL(90,280) JVS(588) = -B(610) ! JVS(589) = Jac_FULL(91,91) - JVS(589) = -B(256)-B(1434) + JVS(589) = -B(256)-B(1436) ! JVS(590) = Jac_FULL(91,252) JVS(590) = B(164) ! JVS(591) = Jac_FULL(91,279) @@ -4348,7 +4352,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(592) = Jac_FULL(91,281) JVS(592) = B(165) ! JVS(593) = Jac_FULL(92,92) - JVS(593) = -B(252)-B(1432) + JVS(593) = -B(252)-B(1434) ! JVS(594) = Jac_FULL(92,233) JVS(594) = B(208) ! JVS(595) = Jac_FULL(92,279) @@ -4356,7 +4360,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(596) = Jac_FULL(92,281) JVS(596) = B(209) ! JVS(597) = Jac_FULL(93,93) - JVS(597) = -B(254)-B(1433) + JVS(597) = -B(254)-B(1435) ! JVS(598) = Jac_FULL(93,253) JVS(598) = B(172) ! JVS(599) = Jac_FULL(93,279) @@ -4364,7 +4368,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(600) = Jac_FULL(93,281) JVS(600) = B(173) ! JVS(601) = Jac_FULL(94,94) - JVS(601) = -B(258)-B(1436) + JVS(601) = -B(258)-B(1438) ! JVS(602) = Jac_FULL(94,250) JVS(602) = 0.41*B(212) ! JVS(603) = Jac_FULL(94,279) @@ -4382,71 +4386,71 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(609) = Jac_FULL(96,96) JVS(609) = -B(741) ! JVS(610) = Jac_FULL(96,136) - JVS(610) = B(1386) + JVS(610) = B(1388) ! JVS(611) = Jac_FULL(96,137) - JVS(611) = B(1387) + JVS(611) = B(1389) ! JVS(612) = Jac_FULL(96,147) - JVS(612) = B(1390) + JVS(612) = B(1392) ! JVS(613) = Jac_FULL(96,171) - JVS(613) = B(1395) + JVS(613) = B(1397) ! JVS(614) = Jac_FULL(96,177) - JVS(614) = B(1391) + JVS(614) = B(1393) ! JVS(615) = Jac_FULL(96,195) - JVS(615) = B(1396) + JVS(615) = B(1398) ! JVS(616) = Jac_FULL(96,198) - JVS(616) = B(1379) + JVS(616) = B(1381) ! JVS(617) = Jac_FULL(96,209) - JVS(617) = B(1393) + JVS(617) = B(1395) ! JVS(618) = Jac_FULL(96,210) - JVS(618) = B(1388) + JVS(618) = B(1390) ! JVS(619) = Jac_FULL(96,216) - JVS(619) = B(1385) + JVS(619) = B(1387) ! JVS(620) = Jac_FULL(96,237) - JVS(620) = B(1378) + JVS(620) = B(1380) ! JVS(621) = Jac_FULL(96,238) - JVS(621) = B(1394) + JVS(621) = B(1396) ! JVS(622) = Jac_FULL(96,239) - JVS(622) = B(1392) + JVS(622) = B(1394) ! JVS(623) = Jac_FULL(97,97) - JVS(623) = -B(361)-B(437)-B(1447) + JVS(623) = -B(361)-B(437)-B(1449) ! JVS(624) = Jac_FULL(97,268) JVS(624) = -B(438) ! JVS(625) = Jac_FULL(97,279) JVS(625) = -B(362) ! JVS(626) = Jac_FULL(98,98) - JVS(626) = -B(1489) + JVS(626) = -B(1491) ! JVS(627) = Jac_FULL(98,199) - JVS(627) = B(1352)+B(1354) + JVS(627) = B(1354)+B(1356) ! JVS(628) = Jac_FULL(98,223) JVS(628) = B(615) ! JVS(629) = Jac_FULL(98,264) - JVS(629) = B(1368)+B(1370) + JVS(629) = B(1370)+B(1372) ! JVS(630) = Jac_FULL(98,266) - JVS(630) = B(1360)+B(1362) + JVS(630) = B(1362)+B(1364) ! JVS(631) = Jac_FULL(98,277) JVS(631) = B(616) ! JVS(632) = Jac_FULL(98,278) - JVS(632) = B(1353)+B(1361)+B(1369) + JVS(632) = B(1355)+B(1363)+B(1371) ! JVS(633) = Jac_FULL(98,282) - JVS(633) = B(1355)+B(1363)+B(1371) + JVS(633) = B(1357)+B(1365)+B(1373) ! JVS(634) = Jac_FULL(99,76) JVS(634) = 0.06*B(1167) ! JVS(635) = Jac_FULL(99,77) JVS(635) = 0.06*B(1169) ! JVS(636) = Jac_FULL(99,99) - JVS(636) = -B(1195)-B(1197)-B(1551) + JVS(636) = -B(1195)-B(1197)-B(1553) ! JVS(637) = Jac_FULL(99,279) JVS(637) = 0.06*B(1168)+0.06*B(1170)-B(1196) ! JVS(638) = Jac_FULL(99,283) JVS(638) = -B(1198) ! JVS(639) = Jac_FULL(100,100) - JVS(639) = -B(487)-B(547)-B(1448) + JVS(639) = -B(487)-B(547)-B(1450) ! JVS(640) = Jac_FULL(100,279) JVS(640) = -B(488) ! JVS(641) = Jac_FULL(100,285) JVS(641) = -B(548) ! JVS(642) = Jac_FULL(101,101) - JVS(642) = -B(78)-B(79)-B(1408)-B(1409) + JVS(642) = -B(78)-B(79)-B(1410)-B(1411) ! JVS(643) = Jac_FULL(101,270) JVS(643) = B(76) ! JVS(644) = Jac_FULL(101,279) @@ -4456,7 +4460,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(646) = Jac_FULL(102,102) JVS(646) = -B(1156)-B(1157) ! JVS(647) = Jac_FULL(102,114) - JVS(647) = B(1550) + JVS(647) = B(1552) ! JVS(648) = Jac_FULL(102,175) JVS(648) = 0.995*B(1150)+B(1152)+0.6*B(1154) ! JVS(649) = Jac_FULL(102,263) @@ -4466,9 +4470,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(651) = Jac_FULL(102,283) JVS(651) = B(1153) ! JVS(652) = Jac_FULL(103,72) - JVS(652) = B(477)+B(1454) + JVS(652) = B(477)+B(1456) ! JVS(653) = Jac_FULL(103,103) - JVS(653) = -B(530)-B(533)-B(535)-B(1473) + JVS(653) = -B(530)-B(533)-B(535)-B(1475) ! JVS(654) = Jac_FULL(103,263) JVS(654) = B(469) ! JVS(655) = Jac_FULL(103,274) @@ -4480,9 +4484,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(658) = Jac_FULL(103,285) JVS(658) = B(528)-B(534)-B(536) ! JVS(659) = Jac_FULL(104,104) - JVS(659) = -B(1126)-B(1383)-B(1512) + JVS(659) = -B(1126)-B(1385)-B(1514) ! JVS(660) = Jac_FULL(104,160) - JVS(660) = 0.653*B(1064)+0.75*B(1518) + JVS(660) = 0.653*B(1064)+0.75*B(1520) ! JVS(661) = Jac_FULL(104,237) JVS(661) = 0.241*B(1042) ! JVS(662) = Jac_FULL(104,244) @@ -4494,7 +4498,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(665) = Jac_FULL(105,95) JVS(665) = B(1208) ! JVS(666) = Jac_FULL(105,105) - JVS(666) = -B(1218)-B(1553) + JVS(666) = -B(1218)-B(1555) ! JVS(667) = Jac_FULL(105,176) JVS(667) = 0.15*B(1199) ! JVS(668) = Jac_FULL(105,187) @@ -4508,15 +4512,15 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(672) = Jac_FULL(106,106) JVS(672) = -B(819) ! JVS(673) = Jac_FULL(106,182) - JVS(673) = 0.15*B(807)+0.112*B(1528) + JVS(673) = 0.15*B(807)+0.112*B(1530) ! JVS(674) = Jac_FULL(106,184) - JVS(674) = 0.15*B(809)+0.182*B(1529) + JVS(674) = 0.15*B(809)+0.182*B(1531) ! JVS(675) = Jac_FULL(106,236) - JVS(675) = 0.161*B(1539) + JVS(675) = 0.161*B(1541) ! JVS(676) = Jac_FULL(106,279) JVS(676) = 0.15*B(808)+0.15*B(810)-B(820) ! JVS(677) = Jac_FULL(107,107) - JVS(677) = -B(475)-B(1453) + JVS(677) = -B(475)-B(1455) ! JVS(678) = Jac_FULL(107,223) JVS(678) = B(611) ! JVS(679) = Jac_FULL(107,274) @@ -4528,7 +4532,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(682) = Jac_FULL(108,85) JVS(682) = 2*B(23) ! JVS(683) = Jac_FULL(108,108) - JVS(683) = -B(1495) + JVS(683) = -B(1497) ! JVS(684) = Jac_FULL(108,144) JVS(684) = B(1) ! JVS(685) = Jac_FULL(108,191) @@ -4546,7 +4550,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(691) = Jac_FULL(108,286) JVS(691) = B(3)+B(16)+B(18)+B(19)+B(318)+B(654)+B(662) ! JVS(692) = Jac_FULL(109,109) - JVS(692) = -B(250)-B(1431) + JVS(692) = -B(250)-B(1433) ! JVS(693) = Jac_FULL(109,213) JVS(693) = B(204) ! JVS(694) = Jac_FULL(109,235) @@ -4566,7 +4570,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(701) = Jac_FULL(110,283) JVS(701) = -B(1188) ! JVS(702) = Jac_FULL(111,111) - JVS(702) = -B(260)-B(1435) + JVS(702) = -B(260)-B(1437) ! JVS(703) = Jac_FULL(111,204) JVS(703) = B(210) ! JVS(704) = Jac_FULL(111,279) @@ -4574,7 +4578,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(705) = Jac_FULL(111,281) JVS(705) = B(211) ! JVS(706) = Jac_FULL(112,112) - JVS(706) = -B(248)-B(1430) + JVS(706) = -B(248)-B(1432) ! JVS(707) = Jac_FULL(112,197) JVS(707) = B(174) ! JVS(708) = Jac_FULL(112,279) @@ -4590,7 +4594,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(713) = Jac_FULL(113,285) JVS(713) = -B(580) ! JVS(714) = Jac_FULL(114,114) - JVS(714) = -B(1161)-B(1163)-B(1550) + JVS(714) = -B(1161)-B(1163)-B(1552) ! JVS(715) = Jac_FULL(114,175) JVS(715) = B(1148)+0.2*B(1154) ! JVS(716) = Jac_FULL(114,263) @@ -4600,7 +4604,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(718) = Jac_FULL(114,281) JVS(718) = B(1149) ! JVS(719) = Jac_FULL(115,115) - JVS(719) = -B(858)-B(1376) + JVS(719) = -B(858)-B(1378) ! JVS(720) = Jac_FULL(115,161) JVS(720) = 0.595*B(835) ! JVS(721) = Jac_FULL(115,167) @@ -4614,7 +4618,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(725) = Jac_FULL(116,116) JVS(725) = -B(1068) ! JVS(726) = Jac_FULL(116,202) - JVS(726) = 0.35*B(1112)+0.35*B(1541) + JVS(726) = 0.35*B(1112)+0.35*B(1543) ! JVS(727) = Jac_FULL(116,225) JVS(727) = B(869)+0.13*B(870)+0.2*B(872) ! JVS(728) = Jac_FULL(116,279) @@ -4642,7 +4646,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(739) = Jac_FULL(118,283) JVS(739) = -B(1184) ! JVS(740) = Jac_FULL(119,119) - JVS(740) = -B(705)-B(1497) + JVS(740) = -B(705)-B(1499) ! JVS(741) = Jac_FULL(119,221) JVS(741) = B(697) ! JVS(742) = Jac_FULL(119,234) @@ -4670,7 +4674,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(753) = Jac_FULL(121,287) JVS(753) = -B(352) ! JVS(754) = Jac_FULL(122,122) - JVS(754) = -B(1114)-B(1545) + JVS(754) = -B(1114)-B(1547) ! JVS(755) = Jac_FULL(122,224) JVS(755) = B(876) ! JVS(756) = Jac_FULL(122,225) @@ -4680,9 +4684,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(758) = Jac_FULL(123,123) JVS(758) = -B(983)-B(985) ! JVS(759) = Jac_FULL(123,147) - JVS(759) = 0.841*B(1537) + JVS(759) = 0.841*B(1539) ! JVS(760) = Jac_FULL(123,239) - JVS(760) = 0.227*B(1540) + JVS(760) = 0.227*B(1542) ! JVS(761) = Jac_FULL(123,240) JVS(761) = 0.474*B(960) ! JVS(762) = Jac_FULL(123,241) @@ -4696,25 +4700,25 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(766) = Jac_FULL(123,283) JVS(766) = 0.841*B(974) ! JVS(767) = Jac_FULL(124,124) - JVS(767) = -B(333)-B(1439) + JVS(767) = -B(333)-B(1441) ! JVS(768) = Jac_FULL(124,172) JVS(768) = B(331) ! JVS(769) = Jac_FULL(124,256) - JVS(769) = B(1312)+B(1320)+B(1322) + JVS(769) = B(1314)+B(1322)+B(1324) ! JVS(770) = Jac_FULL(124,272) - JVS(770) = B(1313) + JVS(770) = B(1315) ! JVS(771) = Jac_FULL(124,274) JVS(771) = B(328) ! JVS(772) = Jac_FULL(124,275) - JVS(772) = B(1321) + JVS(772) = B(1323) ! JVS(773) = Jac_FULL(124,276) - JVS(773) = B(1323) + JVS(773) = B(1325) ! JVS(774) = Jac_FULL(124,279) JVS(774) = -B(334) ! JVS(775) = Jac_FULL(124,287) JVS(775) = B(332) ! JVS(776) = Jac_FULL(125,125) - JVS(776) = -B(811)-B(1530) + JVS(776) = -B(811)-B(1532) ! JVS(777) = Jac_FULL(125,167) JVS(777) = 0.009*B(833) ! JVS(778) = Jac_FULL(125,220) @@ -4724,7 +4728,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(780) = Jac_FULL(125,279) JVS(780) = 0.15*B(760)-B(812)+0.009*B(834) ! JVS(781) = Jac_FULL(126,126) - JVS(781) = -B(813)-B(1531) + JVS(781) = -B(813)-B(1533) ! JVS(782) = Jac_FULL(126,161) JVS(782) = 0.009*B(835) ! JVS(783) = Jac_FULL(126,220) @@ -4734,7 +4738,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(785) = Jac_FULL(126,279) JVS(785) = 0.15*B(762)-B(814)+0.009*B(836) ! JVS(786) = Jac_FULL(127,127) - JVS(786) = -B(860)-B(862)-B(1374) + JVS(786) = -B(860)-B(862)-B(1376) ! JVS(787) = Jac_FULL(127,136) JVS(787) = 0.67*B(901) ! JVS(788) = Jac_FULL(127,137) @@ -4746,7 +4750,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(791) = Jac_FULL(127,279) JVS(791) = 0.67*B(824)+0.68*B(828)-B(861)-B(863)+0.67*B(902)+0.67*B(906) ! JVS(792) = Jac_FULL(128,128) - JVS(792) = -B(864)-B(866)-B(1375) + JVS(792) = -B(864)-B(866)-B(1377) ! JVS(793) = Jac_FULL(128,136) JVS(793) = 0.33*B(901) ! JVS(794) = Jac_FULL(128,137) @@ -4772,7 +4776,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(804) = Jac_FULL(130,130) JVS(804) = -B(1074) ! JVS(805) = Jac_FULL(130,202) - JVS(805) = 0.15*B(1112)+0.15*B(1541)+0.122*B(1542) + JVS(805) = 0.15*B(1112)+0.15*B(1543)+0.122*B(1544) ! JVS(806) = Jac_FULL(130,224) JVS(806) = B(877)+0.2*B(878)+0.13*B(882) ! JVS(807) = Jac_FULL(130,279) @@ -4782,7 +4786,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(809) = Jac_FULL(130,281) JVS(809) = 0.13*B(883) ! JVS(810) = Jac_FULL(131,131) - JVS(810) = -B(743)-B(1382)-B(1501) + JVS(810) = -B(743)-B(1384)-B(1503) ! JVS(811) = Jac_FULL(131,174) JVS(811) = B(731)+B(739) ! JVS(812) = Jac_FULL(131,196) @@ -4794,35 +4798,35 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(815) = Jac_FULL(131,283) JVS(815) = B(738)+B(740) ! JVS(816) = Jac_FULL(132,132) - JVS(816) = -B(1450) + JVS(816) = -B(1452) ! JVS(817) = Jac_FULL(132,172) - JVS(817) = B(1274) + JVS(817) = B(1276) ! JVS(818) = Jac_FULL(132,231) - JVS(818) = B(1296)+B(1298)+B(1300) + JVS(818) = B(1298)+B(1300)+B(1302) ! JVS(819) = Jac_FULL(132,256) - JVS(819) = B(1314)+B(1316)+B(1318) + JVS(819) = B(1316)+B(1318)+B(1320) ! JVS(820) = Jac_FULL(132,259) - JVS(820) = B(1280)+B(1282)+B(1284) + JVS(820) = B(1282)+B(1284)+B(1286) ! JVS(821) = Jac_FULL(132,267) - JVS(821) = B(1304) + JVS(821) = B(1306) ! JVS(822) = Jac_FULL(132,271) - JVS(822) = B(1275)+B(1315) + JVS(822) = B(1277)+B(1317) ! JVS(823) = Jac_FULL(132,272) - JVS(823) = B(1281)+B(1301)+B(1305) + JVS(823) = B(1283)+B(1303)+B(1307) ! JVS(824) = Jac_FULL(132,274) JVS(824) = B(541) ! JVS(825) = Jac_FULL(132,275) - JVS(825) = B(1283)+B(1297) + JVS(825) = B(1285)+B(1299) ! JVS(826) = Jac_FULL(132,276) - JVS(826) = B(1285)+B(1299) + JVS(826) = B(1287)+B(1301) ! JVS(827) = Jac_FULL(132,277) JVS(827) = B(542) ! JVS(828) = Jac_FULL(132,278) - JVS(828) = B(1317) + JVS(828) = B(1319) ! JVS(829) = Jac_FULL(132,282) - JVS(829) = B(1319) + JVS(829) = B(1321) ! JVS(830) = Jac_FULL(133,133) - JVS(830) = -B(1086)-0.75*B(1520) + JVS(830) = -B(1086)-0.75*B(1522) ! JVS(831) = Jac_FULL(133,203) JVS(831) = 0.5*B(1084) ! JVS(832) = Jac_FULL(133,279) @@ -4830,7 +4834,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(833) = Jac_FULL(133,281) JVS(833) = 0.5*B(1085) ! JVS(834) = Jac_FULL(134,134) - JVS(834) = -B(58)-B(60)-B(557)-B(1403) + JVS(834) = -B(58)-B(60)-B(557)-B(1405) ! JVS(835) = Jac_FULL(134,263) JVS(835) = B(52) ! JVS(836) = Jac_FULL(134,279) @@ -4850,7 +4854,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(843) = Jac_FULL(135,286) JVS(843) = -2*B(10) ! JVS(844) = Jac_FULL(136,136) - JVS(844) = -B(899)-B(901)-B(1386)-B(1533) + JVS(844) = -B(899)-B(901)-B(1388)-B(1535) ! JVS(845) = Jac_FULL(136,242) JVS(845) = B(791) ! JVS(846) = Jac_FULL(136,279) @@ -4858,7 +4862,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(847) = Jac_FULL(136,280) JVS(847) = B(792) ! JVS(848) = Jac_FULL(137,137) - JVS(848) = -B(903)-B(905)-B(1387)-B(1534) + JVS(848) = -B(903)-B(905)-B(1389)-B(1536) ! JVS(849) = Jac_FULL(137,243) JVS(849) = B(799) ! JVS(850) = Jac_FULL(137,279) @@ -4880,7 +4884,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(858) = Jac_FULL(139,56) JVS(858) = B(587) ! JVS(859) = Jac_FULL(139,139) - JVS(859) = -B(592)-B(621)-B(1474) + JVS(859) = -B(592)-B(621)-B(1476) ! JVS(860) = Jac_FULL(139,199) JVS(860) = B(591) ! JVS(861) = Jac_FULL(139,265) @@ -4894,7 +4898,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(865) = Jac_FULL(139,283) JVS(865) = -B(593) ! JVS(866) = Jac_FULL(140,140) - JVS(866) = -B(1116)-B(1543) + JVS(866) = -B(1116)-B(1545) ! JVS(867) = Jac_FULL(140,179) JVS(867) = 0.725*B(842) ! JVS(868) = Jac_FULL(140,180) @@ -4908,9 +4912,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(872) = Jac_FULL(141,141) JVS(872) = -B(1052)-B(1054)-B(1056) ! JVS(873) = Jac_FULL(141,182) - JVS(873) = 0.224*B(1528) + JVS(873) = 0.224*B(1530) ! JVS(874) = Jac_FULL(141,236) - JVS(874) = 0.068*B(1539) + JVS(874) = 0.068*B(1541) ! JVS(875) = Jac_FULL(141,270) JVS(875) = -B(1057) ! JVS(876) = Jac_FULL(141,280) @@ -4920,9 +4924,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(878) = Jac_FULL(142,142) JVS(878) = -B(1058)-B(1060)-B(1062) ! JVS(879) = Jac_FULL(142,184) - JVS(879) = 0.182*B(1529) + JVS(879) = 0.182*B(1531) ! JVS(880) = Jac_FULL(142,236) - JVS(880) = 0.128*B(1539) + JVS(880) = 0.128*B(1541) ! JVS(881) = Jac_FULL(142,270) JVS(881) = -B(1063) ! JVS(882) = Jac_FULL(142,280) @@ -4976,7 +4980,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(906) = Jac_FULL(146,281) JVS(906) = -0.33*B(1023) ! JVS(907) = Jac_FULL(147,147) - JVS(907) = -B(988)-B(992)-B(994)-B(998)-B(1000)-B(1390)-B(1537)-B(1538) + JVS(907) = -B(988)-B(992)-B(994)-B(998)-B(1000)-B(1392)-B(1539)-B(1540) ! JVS(908) = Jac_FULL(147,241) JVS(908) = B(957) ! JVS(909) = Jac_FULL(147,279) @@ -5024,23 +5028,23 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(930) = Jac_FULL(152,106) JVS(930) = B(819) ! JVS(931) = Jac_FULL(152,122) - JVS(931) = 0.444*B(1114)+0.454*B(1545) + JVS(931) = 0.444*B(1114)+0.454*B(1547) ! JVS(932) = Jac_FULL(152,152) - JVS(932) = -B(1066)-B(1517) + JVS(932) = -B(1066)-B(1519) ! JVS(933) = Jac_FULL(152,182) - JVS(933) = 0.112*B(1528) + JVS(933) = 0.112*B(1530) ! JVS(934) = Jac_FULL(152,184) - JVS(934) = 0.182*B(1529) + JVS(934) = 0.182*B(1531) ! JVS(935) = Jac_FULL(152,224) JVS(935) = 0 ! JVS(936) = Jac_FULL(152,225) JVS(936) = 0 ! JVS(937) = Jac_FULL(152,236) - JVS(937) = 0.162*B(1539) + JVS(937) = 0.162*B(1541) ! JVS(938) = Jac_FULL(152,279) JVS(938) = B(820)-B(1067)+0.444*B(1115) ! JVS(939) = Jac_FULL(153,153) - JVS(939) = -B(821)-B(823)-B(829)-B(1524) + JVS(939) = -B(821)-B(823)-B(829)-B(1526) ! JVS(940) = Jac_FULL(153,242) JVS(940) = 0.937*B(763) ! JVS(941) = Jac_FULL(153,279) @@ -5087,7 +5091,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(961) = Jac_FULL(155,155) JVS(961) = -B(1232)-B(1234)-B(1236) ! JVS(962) = Jac_FULL(155,206) - JVS(962) = B(1224)+B(1226)+B(1554) + JVS(962) = B(1224)+B(1226)+B(1556) ! JVS(963) = Jac_FULL(155,269) JVS(963) = B(1192)-B(1235) ! JVS(964) = Jac_FULL(155,279) @@ -5095,7 +5099,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(965) = Jac_FULL(155,283) JVS(965) = 0.3*B(1194)+B(1227) ! JVS(966) = Jac_FULL(156,105) - JVS(966) = B(1553) + JVS(966) = B(1555) ! JVS(967) = Jac_FULL(156,110) JVS(967) = 0.073*B(1185)+0.3*B(1187) ! JVS(968) = Jac_FULL(156,118) @@ -5133,7 +5137,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(984) = Jac_FULL(157,287) JVS(984) = -B(350) ! JVS(985) = Jac_FULL(158,158) - JVS(985) = -B(825)-B(827)-B(831)-B(1525) + JVS(985) = -B(825)-B(827)-B(831)-B(1527) ! JVS(986) = Jac_FULL(158,243) JVS(986) = 0.937*B(767) ! JVS(987) = Jac_FULL(158,279) @@ -5143,7 +5147,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(989) = Jac_FULL(159,140) JVS(989) = 0.667*B(1116) ! JVS(990) = Jac_FULL(159,159) - JVS(990) = -B(1118)-B(1544) + JVS(990) = -B(1118)-B(1546) ! JVS(991) = Jac_FULL(159,179) JVS(991) = 0.824*B(837) ! JVS(992) = Jac_FULL(159,180) @@ -5155,19 +5159,19 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(995) = Jac_FULL(159,281) JVS(995) = 0 ! JVS(996) = Jac_FULL(160,160) - JVS(996) = -B(1064)-B(1518) + JVS(996) = -B(1064)-B(1520) ! JVS(997) = Jac_FULL(160,182) - JVS(997) = 0.552*B(1528) + JVS(997) = 0.552*B(1530) ! JVS(998) = Jac_FULL(160,184) - JVS(998) = 0.455*B(1529) + JVS(998) = 0.455*B(1531) ! JVS(999) = Jac_FULL(160,236) - JVS(999) = 0.481*B(1539) + JVS(999) = 0.481*B(1541) ! JVS(1000) = Jac_FULL(160,238) JVS(1000) = 0.022*B(1122) ! JVS(1001) = Jac_FULL(160,279) JVS(1001) = -B(1065)+0.022*B(1123) ! JVS(1002) = Jac_FULL(161,161) - JVS(1002) = -B(835)-B(1527) + JVS(1002) = -B(835)-B(1529) ! JVS(1003) = Jac_FULL(161,243) JVS(1003) = B(769) ! JVS(1004) = Jac_FULL(161,279) @@ -5217,9 +5221,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1026) = Jac_FULL(166,116) JVS(1026) = 0.6*B(1068) ! JVS(1027) = Jac_FULL(166,122) - JVS(1027) = 0.318*B(1114)+0.391*B(1545) + JVS(1027) = 0.318*B(1114)+0.391*B(1547) ! JVS(1028) = Jac_FULL(166,166) - JVS(1028) = -B(1072)-B(1514) + JVS(1028) = -B(1072)-B(1516) ! JVS(1029) = Jac_FULL(166,190) JVS(1029) = 0.13*B(884)+0.2*B(888) ! JVS(1030) = Jac_FULL(166,200) @@ -5239,7 +5243,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1037) = Jac_FULL(166,281) JVS(1037) = 0.13*B(885)+0.255*B(1077) ! JVS(1038) = Jac_FULL(167,167) - JVS(1038) = -B(833)-B(1526) + JVS(1038) = -B(833)-B(1528) ! JVS(1039) = Jac_FULL(167,242) JVS(1039) = B(765) ! JVS(1040) = Jac_FULL(167,279) @@ -5249,7 +5253,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1042) = Jac_FULL(168,167) JVS(1042) = 0.018*B(833) ! JVS(1043) = Jac_FULL(168,168) - JVS(1043) = -B(1132)-B(1134)-B(1511) + JVS(1043) = -B(1132)-B(1134)-B(1513) ! JVS(1044) = Jac_FULL(168,179) JVS(1044) = 0.284*B(838)+0.135*B(842) ! JVS(1045) = Jac_FULL(168,185) @@ -5259,7 +5263,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1047) = Jac_FULL(168,220) JVS(1047) = 0.3*B(759) ! JVS(1048) = Jac_FULL(168,238) - JVS(1048) = 0.5*B(1547) + JVS(1048) = 0.5*B(1549) ! JVS(1049) = Jac_FULL(168,242) JVS(1049) = 0.3*B(772) ! JVS(1050) = Jac_FULL(168,279) @@ -5269,17 +5273,17 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1052) = Jac_FULL(168,281) JVS(1052) = 0.135*B(843)+0.249*B(1005)+0.471*B(1007) ! JVS(1053) = Jac_FULL(169,169) - JVS(1053) = -B(89)-B(1259)-B(1261)-B(1263)-B(1264)-B(1266)-B(1412) + JVS(1053) = -B(89)-B(1261)-B(1263)-B(1265)-B(1266)-B(1268)-B(1414) ! JVS(1054) = Jac_FULL(169,270) JVS(1054) = B(87) ! JVS(1055) = Jac_FULL(169,271) - JVS(1055) = -B(1262) + JVS(1055) = -B(1264) ! JVS(1056) = Jac_FULL(169,273) - JVS(1056) = -B(1260) + JVS(1056) = -B(1262) ! JVS(1057) = Jac_FULL(169,278) - JVS(1057) = -B(1265) + JVS(1057) = -B(1267) ! JVS(1058) = Jac_FULL(169,282) - JVS(1058) = -B(1267) + JVS(1058) = -B(1269) ! JVS(1059) = Jac_FULL(169,283) JVS(1059) = B(88) ! JVS(1060) = Jac_FULL(170,115) @@ -5307,7 +5311,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1071) = Jac_FULL(170,167) JVS(1071) = 0 ! JVS(1072) = Jac_FULL(170,170) - JVS(1072) = -B(817)-B(1389) + JVS(1072) = -B(817)-B(1391) ! JVS(1073) = Jac_FULL(170,182) JVS(1073) = 0.085*B(807) ! JVS(1074) = Jac_FULL(170,184) @@ -5335,7 +5339,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1085) = Jac_FULL(171,164) JVS(1085) = 0.031*B(935)+0.065*B(937) ! JVS(1086) = Jac_FULL(171,171) - JVS(1086) = -B(1050)-B(1395)-B(1523) + JVS(1086) = -B(1050)-B(1397)-B(1525) ! JVS(1087) = Jac_FULL(171,185) JVS(1087) = 0.073*B(1006)+0.291*B(1012) ! JVS(1088) = Jac_FULL(171,216) @@ -5357,13 +5361,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1096) = Jac_FULL(171,281) JVS(1096) = 0.031*B(936)+0.094*B(948)+0.06*B(1005)+0.073*B(1007)+0.13*B(1098) ! JVS(1097) = Jac_FULL(172,172) - JVS(1097) = -B(331)-B(1272)-B(1274)-B(1442)-B(1443) + JVS(1097) = -B(331)-B(1274)-B(1276)-B(1444)-B(1445) ! JVS(1098) = Jac_FULL(172,270) JVS(1098) = B(355) ! JVS(1099) = Jac_FULL(172,271) - JVS(1099) = -B(1275) + JVS(1099) = -B(1277) ! JVS(1100) = Jac_FULL(172,273) - JVS(1100) = -B(1273) + JVS(1100) = -B(1275) ! JVS(1101) = Jac_FULL(172,274) JVS(1101) = B(356) ! JVS(1102) = Jac_FULL(172,287) @@ -5373,7 +5377,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1104) = Jac_FULL(173,186) JVS(1104) = B(379) ! JVS(1105) = Jac_FULL(173,262) - JVS(1105) = B(1404) + JVS(1105) = B(1406) ! JVS(1106) = Jac_FULL(173,268) JVS(1106) = B(369)+B(380)+0.24*B(429)+0.15*B(431) ! JVS(1107) = Jac_FULL(173,269) @@ -5391,7 +5395,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1113) = Jac_FULL(173,285) JVS(1113) = B(509) ! JVS(1114) = Jac_FULL(174,174) - JVS(1114) = -B(731)-B(739)-B(1380)-B(1499) + JVS(1114) = -B(731)-B(739)-B(1382)-B(1501) ! JVS(1115) = Jac_FULL(174,211) JVS(1115) = B(707)+0.7*B(711)+0.7*B(715)+0.7*B(719)+0.7*B(723)+1.4*B(727)+1.05*B(728) ! JVS(1116) = Jac_FULL(174,212) @@ -5449,7 +5453,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1142) = Jac_FULL(176,283) JVS(1142) = B(1198) ! JVS(1143) = Jac_FULL(177,177) - JVS(1143) = -B(986)-B(990)-B(996)-B(1391)-B(1536) + JVS(1143) = -B(986)-B(990)-B(996)-B(1393)-B(1538) ! JVS(1144) = Jac_FULL(177,240) JVS(1144) = 0.473*B(955)+0.07*B(959)+0.399*B(960)+0.355*B(965) ! JVS(1145) = Jac_FULL(177,241) @@ -5519,19 +5523,19 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1177) = Jac_FULL(181,116) JVS(1177) = 0.4*B(1068) ! JVS(1178) = Jac_FULL(181,122) - JVS(1178) = 0.126*B(1114)+0.155*B(1545) + JVS(1178) = 0.126*B(1114)+0.155*B(1547) ! JVS(1179) = Jac_FULL(181,130) JVS(1179) = 0.16*B(1074) ! JVS(1180) = Jac_FULL(181,160) JVS(1180) = 0.063*B(1064) ! JVS(1181) = Jac_FULL(181,181) - JVS(1181) = -B(1070)-B(1515) + JVS(1181) = -B(1070)-B(1517) ! JVS(1182) = Jac_FULL(181,182) JVS(1182) = 0 ! JVS(1183) = Jac_FULL(181,184) JVS(1183) = 0 ! JVS(1184) = Jac_FULL(181,202) - JVS(1184) = 0.1*B(1542) + JVS(1184) = 0.1*B(1544) ! JVS(1185) = Jac_FULL(181,224) JVS(1185) = 0 ! JVS(1186) = Jac_FULL(181,225) @@ -5553,7 +5557,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1194) = Jac_FULL(182,167) JVS(1194) = 0.015*B(833) ! JVS(1195) = Jac_FULL(182,182) - JVS(1195) = -B(807)-B(1528) + JVS(1195) = -B(807)-B(1530) ! JVS(1196) = Jac_FULL(182,220) JVS(1196) = 0.25*B(759) ! JVS(1197) = Jac_FULL(182,242) @@ -5581,7 +5585,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1208) = Jac_FULL(184,161) JVS(1208) = 0.015*B(835) ! JVS(1209) = Jac_FULL(184,184) - JVS(1209) = -B(809)-B(1529) + JVS(1209) = -B(809)-B(1531) ! JVS(1210) = Jac_FULL(184,220) JVS(1210) = 0.25*B(761) ! JVS(1211) = Jac_FULL(184,243) @@ -5607,7 +5611,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1221) = Jac_FULL(186,254) JVS(1221) = 0.1*B(216) ! JVS(1222) = Jac_FULL(186,261) - JVS(1222) = B(1414) + JVS(1222) = B(1416) ! JVS(1223) = Jac_FULL(186,268) JVS(1223) = -B(376)-B(378)-B(380) ! JVS(1224) = Jac_FULL(186,269) @@ -5617,9 +5621,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1226) = Jac_FULL(186,285) JVS(1226) = -B(504) ! JVS(1227) = Jac_FULL(187,67) - JVS(1227) = B(1552) + JVS(1227) = B(1554) ! JVS(1228) = Jac_FULL(187,99) - JVS(1228) = B(1551) + JVS(1228) = B(1553) ! JVS(1229) = Jac_FULL(187,105) JVS(1229) = B(1218) ! JVS(1230) = Jac_FULL(187,156) @@ -5643,57 +5647,57 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1239) = Jac_FULL(187,283) JVS(1239) = -B(1215) ! JVS(1240) = Jac_FULL(188,58) - JVS(1240) = B(1504) + JVS(1240) = B(1506) ! JVS(1241) = Jac_FULL(188,59) - JVS(1241) = B(1502) + JVS(1241) = B(1504) ! JVS(1242) = Jac_FULL(188,135) JVS(1242) = 0 ! JVS(1243) = Jac_FULL(188,144) JVS(1243) = 0 ! JVS(1244) = Jac_FULL(188,188) - JVS(1244) = -B(74)-B(1407) + JVS(1244) = -B(74)-B(1409) ! JVS(1245) = Jac_FULL(188,199) - JVS(1245) = B(1348)+B(1350)+B(1352)+B(1354) + JVS(1245) = B(1350)+B(1352)+B(1354)+B(1356) ! JVS(1246) = Jac_FULL(188,206) - JVS(1246) = B(1554) + JVS(1246) = B(1556) ! JVS(1247) = Jac_FULL(188,231) - JVS(1247) = B(1290)+B(1292)+B(1294)+B(1296)+B(1298)+B(1300) + JVS(1247) = B(1292)+B(1294)+B(1296)+B(1298)+B(1300)+B(1302) ! JVS(1248) = Jac_FULL(188,260) JVS(1248) = 0 ! JVS(1249) = Jac_FULL(188,269) JVS(1249) = 0 ! JVS(1250) = Jac_FULL(188,270) - JVS(1250) = 0.5*B(1255) + JVS(1250) = 0.5*B(1257) ! JVS(1251) = Jac_FULL(188,271) - JVS(1251) = B(1295) + JVS(1251) = B(1297) ! JVS(1252) = Jac_FULL(188,272) - JVS(1252) = B(1301) + JVS(1252) = B(1303) ! JVS(1253) = Jac_FULL(188,275) - JVS(1253) = B(1297)+B(1349) + JVS(1253) = B(1299)+B(1351) ! JVS(1254) = Jac_FULL(188,276) - JVS(1254) = B(1299)+B(1351) + JVS(1254) = B(1301)+B(1353) ! JVS(1255) = Jac_FULL(188,278) - JVS(1255) = B(1291)+B(1353) + JVS(1255) = B(1293)+B(1355) ! JVS(1256) = Jac_FULL(188,279) JVS(1256) = B(72)-B(75) ! JVS(1257) = Jac_FULL(188,280) JVS(1257) = B(73) ! JVS(1258) = Jac_FULL(188,282) - JVS(1258) = B(1293)+B(1355) + JVS(1258) = B(1295)+B(1357) ! JVS(1259) = Jac_FULL(188,283) JVS(1259) = 0 ! JVS(1260) = Jac_FULL(188,286) JVS(1260) = 0 ! JVS(1261) = Jac_FULL(189,161) - JVS(1261) = 0.06*B(835)+B(1527) + JVS(1261) = 0.06*B(835)+B(1529) ! JVS(1262) = Jac_FULL(189,167) - JVS(1262) = 0.06*B(833)+B(1526) + JVS(1262) = 0.06*B(833)+B(1528) ! JVS(1263) = Jac_FULL(189,189) JVS(1263) = -B(815) ! JVS(1264) = Jac_FULL(189,210) - JVS(1264) = 0.45*B(1535) + JVS(1264) = 0.45*B(1537) ! JVS(1265) = Jac_FULL(189,216) - JVS(1265) = 0.45*B(1532) + JVS(1265) = 0.45*B(1534) ! JVS(1266) = Jac_FULL(189,242) JVS(1266) = B(779)+B(781)+0.5*B(785)+0.45*B(797) ! JVS(1267) = Jac_FULL(189,243) @@ -5749,29 +5753,29 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1292) = Jac_FULL(192,103) JVS(1292) = B(533) ! JVS(1293) = Jac_FULL(192,192) - JVS(1293) = -0.75*B(433)-B(467)-B(1451) + JVS(1293) = -0.75*B(433)-B(467)-B(1453) ! JVS(1294) = Jac_FULL(192,231) - JVS(1294) = B(1290)+B(1292)+B(1294) + JVS(1294) = B(1292)+B(1294)+B(1296) ! JVS(1295) = Jac_FULL(192,259) - JVS(1295) = B(545)+B(1278)+B(1286)+B(1288) + JVS(1295) = B(545)+B(1280)+B(1288)+B(1290) ! JVS(1296) = Jac_FULL(192,263) JVS(1296) = 0 ! JVS(1297) = Jac_FULL(192,267) - JVS(1297) = B(1302)+B(1306)+B(1308) + JVS(1297) = B(1304)+B(1308)+B(1310) ! JVS(1298) = Jac_FULL(192,268) JVS(1298) = -0.75*B(434) ! JVS(1299) = Jac_FULL(192,271) - JVS(1299) = B(1279)+B(1295)+B(1303) + JVS(1299) = B(1281)+B(1297)+B(1305) ! JVS(1300) = Jac_FULL(192,274) JVS(1300) = 0 ! JVS(1301) = Jac_FULL(192,277) JVS(1301) = B(525) ! JVS(1302) = Jac_FULL(192,278) - JVS(1302) = 0.5*B(1268)+B(1287)+B(1291)+B(1307) + JVS(1302) = 0.5*B(1270)+B(1289)+B(1293)+B(1309) ! JVS(1303) = Jac_FULL(192,279) - JVS(1303) = -B(468)+0.5*B(1269)+0.5*B(1270) + JVS(1303) = -B(468)+0.5*B(1271)+0.5*B(1272) ! JVS(1304) = Jac_FULL(192,282) - JVS(1304) = 0.5*B(1271)+B(1289)+B(1293)+B(1309) + JVS(1304) = 0.5*B(1273)+B(1291)+B(1295)+B(1311) ! JVS(1305) = Jac_FULL(192,285) JVS(1305) = B(534)+B(546) ! JVS(1306) = Jac_FULL(193,161) @@ -5781,7 +5785,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1308) = Jac_FULL(193,185) JVS(1308) = 0.054*B(1006)+0.07*B(1012) ! JVS(1309) = Jac_FULL(193,193) - JVS(1309) = -B(62)-B(64)-B(1492) + JVS(1309) = -B(62)-B(64)-B(1494) ! JVS(1310) = Jac_FULL(193,217) JVS(1310) = 0.009*B(1004)+0.013*B(1008) ! JVS(1311) = Jac_FULL(193,220) @@ -5789,7 +5793,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1312) = Jac_FULL(193,227) JVS(1312) = 0.23*B(1046) ! JVS(1313) = Jac_FULL(193,238) - JVS(1313) = 0.05*B(1547) + JVS(1313) = 0.05*B(1549) ! JVS(1314) = Jac_FULL(193,241) JVS(1314) = 0 ! JVS(1315) = Jac_FULL(193,243) @@ -5815,11 +5819,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1325) = Jac_FULL(194,164) JVS(1325) = 0.551*B(935)+0.935*B(937) ! JVS(1326) = Jac_FULL(194,171) - JVS(1326) = B(1050)+B(1523) + JVS(1326) = B(1050)+B(1525) ! JVS(1327) = Jac_FULL(194,185) JVS(1327) = 0.471*B(1006)+0.59*B(1012) ! JVS(1328) = Jac_FULL(194,194) - JVS(1328) = -B(639)-B(1513) + JVS(1328) = -B(639)-B(1515) ! JVS(1329) = Jac_FULL(194,197) JVS(1329) = 0 ! JVS(1330) = Jac_FULL(194,216) @@ -5857,7 +5861,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1346) = Jac_FULL(195,184) JVS(1346) = 0 ! JVS(1347) = Jac_FULL(195,195) - JVS(1347) = -B(1048)-B(1396)-B(1522) + JVS(1347) = -B(1048)-B(1398)-B(1524) ! JVS(1348) = Jac_FULL(195,201) JVS(1348) = B(1091) ! JVS(1349) = Jac_FULL(195,220) @@ -5865,7 +5869,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1350) = Jac_FULL(195,236) JVS(1350) = 0 ! JVS(1351) = Jac_FULL(195,238) - JVS(1351) = 0.5*B(1546) + JVS(1351) = 0.5*B(1548) ! JVS(1352) = Jac_FULL(195,242) JVS(1352) = 0 ! JVS(1353) = Jac_FULL(195,243) @@ -5881,7 +5885,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1358) = Jac_FULL(195,281) JVS(1358) = 0.059*B(921)+0.37*B(1098) ! JVS(1359) = Jac_FULL(196,196) - JVS(1359) = -B(733)-B(735)-B(737)-B(1381)-B(1500) + JVS(1359) = -B(733)-B(735)-B(737)-B(1383)-B(1502) ! JVS(1360) = Jac_FULL(196,211) JVS(1360) = 0.3*B(711)+0.3*B(715)+0.3*B(719)+0.3*B(723)+0.6*B(727)+0.45*B(728) ! JVS(1361) = Jac_FULL(196,212) @@ -5923,7 +5927,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1379) = Jac_FULL(197,283) JVS(1379) = B(223) ! JVS(1380) = Jac_FULL(198,198) - JVS(1380) = -B(145)-B(1379)-B(1437) + JVS(1380) = -B(145)-B(1381)-B(1439) ! JVS(1381) = Jac_FULL(198,249) JVS(1381) = 0.07*B(135) ! JVS(1382) = Jac_FULL(198,251) @@ -5937,19 +5941,19 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1386) = Jac_FULL(198,281) JVS(1386) = B(167) ! JVS(1387) = Jac_FULL(199,199) - JVS(1387) = -B(590)-2*B(591)-B(1348)-B(1350)-B(1352)-B(1354)-B(1479) + JVS(1387) = -B(590)-2*B(591)-B(1350)-B(1352)-B(1354)-B(1356)-B(1481) ! JVS(1388) = Jac_FULL(199,265) JVS(1388) = B(588) ! JVS(1389) = Jac_FULL(199,270) JVS(1389) = B(589) ! JVS(1390) = Jac_FULL(199,275) - JVS(1390) = -B(1349) + JVS(1390) = -B(1351) ! JVS(1391) = Jac_FULL(199,276) - JVS(1391) = -B(1351) + JVS(1391) = -B(1353) ! JVS(1392) = Jac_FULL(199,278) - JVS(1392) = -B(1353) + JVS(1392) = -B(1355) ! JVS(1393) = Jac_FULL(199,282) - JVS(1393) = -B(1355) + JVS(1393) = -B(1357) ! JVS(1394) = Jac_FULL(200,141) JVS(1394) = B(1052)+B(1054) ! JVS(1395) = Jac_FULL(200,182) @@ -5995,7 +5999,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1415) = Jac_FULL(201,281) JVS(1415) = B(1061)-B(1083) ! JVS(1416) = Jac_FULL(202,140) - JVS(1416) = 0.333*B(1116)+0.75*B(1543) + JVS(1416) = 0.333*B(1116)+0.75*B(1545) ! JVS(1417) = Jac_FULL(202,179) JVS(1417) = 0.176*B(837) ! JVS(1418) = Jac_FULL(202,180) @@ -6005,7 +6009,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1420) = Jac_FULL(202,190) JVS(1420) = 0.35*B(884) ! JVS(1421) = Jac_FULL(202,202) - JVS(1421) = -B(1112)-B(1541)-B(1542) + JVS(1421) = -B(1112)-B(1543)-B(1544) ! JVS(1422) = Jac_FULL(202,210) JVS(1422) = 0 ! JVS(1423) = Jac_FULL(202,216) @@ -6073,7 +6077,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1454) = Jac_FULL(205,185) JVS(1454) = 0.054*B(1006)+0.07*B(1012) ! JVS(1455) = Jac_FULL(205,205) - JVS(1455) = -B(637)-B(1124)-B(1498) + JVS(1455) = -B(637)-B(1124)-B(1500) ! JVS(1456) = Jac_FULL(205,210) JVS(1456) = 0 ! JVS(1457) = Jac_FULL(205,217) @@ -6083,9 +6087,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1459) = Jac_FULL(205,236) JVS(1459) = 0 ! JVS(1460) = Jac_FULL(205,237) - JVS(1460) = 0.3*B(1521) + JVS(1460) = 0.3*B(1523) ! JVS(1461) = Jac_FULL(205,238) - JVS(1461) = 0.15*B(1546) + JVS(1461) = 0.15*B(1548) ! JVS(1462) = Jac_FULL(205,239) JVS(1462) = 0 ! JVS(1463) = Jac_FULL(205,241) @@ -6111,7 +6115,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1473) = Jac_FULL(206,187) JVS(1473) = 0 ! JVS(1474) = Jac_FULL(206,206) - JVS(1474) = -B(1224)-B(1226)-B(1397)-B(1554) + JVS(1474) = -B(1224)-B(1226)-B(1399)-B(1556) ! JVS(1475) = Jac_FULL(206,263) JVS(1475) = 0 ! JVS(1476) = Jac_FULL(206,269) @@ -6206,7 +6210,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1520) = Jac_FULL(208,191) JVS(1520) = B(663) ! JVS(1521) = Jac_FULL(208,208) - JVS(1521) = -B(15)-B(39)-B(407)-B(511)-B(1402) + JVS(1521) = -B(15)-B(39)-B(407)-B(511)-B(1404) ! JVS(1522) = Jac_FULL(208,220) JVS(1522) = 0.013*B(753) ! JVS(1523) = Jac_FULL(208,230) @@ -6250,7 +6254,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1542) = Jac_FULL(209,190) JVS(1542) = B(886) ! JVS(1543) = Jac_FULL(209,209) - JVS(1543) = -B(1120)-B(1393)-B(1548)-B(1549) + JVS(1543) = -B(1120)-B(1395)-B(1550)-B(1551) ! JVS(1544) = Jac_FULL(209,210) JVS(1544) = 0 ! JVS(1545) = Jac_FULL(209,216) @@ -6276,7 +6280,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1555) = Jac_FULL(209,281) JVS(1555) = 0 ! JVS(1556) = Jac_FULL(210,210) - JVS(1556) = -B(911)-B(913)-B(917)-B(1388)-B(1535) + JVS(1556) = -B(911)-B(913)-B(917)-B(1390)-B(1537) ! JVS(1557) = Jac_FULL(210,241) JVS(1557) = 0.127*B(962)+0.057*B(963) ! JVS(1558) = Jac_FULL(210,242) @@ -6370,7 +6374,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1602) = Jac_FULL(214,221) JVS(1602) = 0.25*B(699) ! JVS(1603) = Jac_FULL(214,232) - JVS(1603) = 0.1*B(1420) + JVS(1603) = 0.1*B(1422) ! JVS(1604) = Jac_FULL(214,233) JVS(1604) = 0.25*B(160) ! JVS(1605) = Jac_FULL(214,234) @@ -6469,7 +6473,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1651) = Jac_FULL(215,287) JVS(1651) = 0 ! JVS(1652) = Jac_FULL(216,216) - JVS(1652) = -B(907)-B(909)-B(915)-B(1385)-B(1532) + JVS(1652) = -B(907)-B(909)-B(915)-B(1387)-B(1534) ! JVS(1653) = Jac_FULL(216,240) JVS(1653) = 0.032*B(960) ! JVS(1654) = Jac_FULL(216,241) @@ -6509,13 +6513,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1671) = Jac_FULL(218,118) JVS(1671) = 0.06*B(1181) ! JVS(1672) = Jac_FULL(218,152) - JVS(1672) = 0.429*B(1517) + JVS(1672) = 0.429*B(1519) ! JVS(1673) = Jac_FULL(218,155) JVS(1673) = 0.6*B(1232)+0.6*B(1234)+0.2*B(1236) ! JVS(1674) = Jac_FULL(218,159) - JVS(1674) = 0.571*B(1544) + JVS(1674) = 0.571*B(1546) ! JVS(1675) = Jac_FULL(218,160) - JVS(1675) = 0.125*B(1518) + JVS(1675) = 0.125*B(1520) ! JVS(1676) = Jac_FULL(218,168) JVS(1676) = B(1134) ! JVS(1677) = Jac_FULL(218,179) @@ -6523,7 +6527,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1678) = Jac_FULL(218,180) JVS(1678) = 0 ! JVS(1679) = Jac_FULL(218,181) - JVS(1679) = 0.5*B(1515) + JVS(1679) = 0.5*B(1517) ! JVS(1680) = Jac_FULL(218,182) JVS(1680) = 0 ! JVS(1681) = Jac_FULL(218,183) @@ -6533,7 +6537,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1683) = Jac_FULL(218,185) JVS(1683) = 0 ! JVS(1684) = Jac_FULL(218,202) - JVS(1684) = 0.438*B(1542) + JVS(1684) = 0.438*B(1544) ! JVS(1685) = Jac_FULL(218,206) JVS(1685) = 0 ! JVS(1686) = Jac_FULL(218,210) @@ -6543,7 +6547,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1688) = Jac_FULL(218,217) JVS(1688) = 0 ! JVS(1689) = Jac_FULL(218,218) - JVS(1689) = -B(224)-B(228)-B(1372)-B(1421)-B(1422)-B(1423) + JVS(1689) = -B(224)-B(228)-B(1374)-B(1423)-B(1424)-B(1425) ! JVS(1690) = Jac_FULL(218,220) JVS(1690) = 0 ! JVS(1691) = Jac_FULL(218,224) @@ -6583,13 +6587,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1708) = Jac_FULL(218,283) JVS(1708) = -B(229) ! JVS(1709) = Jac_FULL(219,86) - JVS(1709) = B(749)+B(1508) + JVS(1709) = B(749)+B(1510) ! JVS(1710) = Jac_FULL(219,93) - JVS(1710) = 0.791*B(254)+B(1433) + JVS(1710) = 0.791*B(254)+B(1435) ! JVS(1711) = Jac_FULL(219,198) - JVS(1711) = 0.32*B(1437) + JVS(1711) = 0.32*B(1439) ! JVS(1712) = Jac_FULL(219,219) - JVS(1712) = -B(158)-B(347)-B(575)-B(1417)-B(1418) + JVS(1712) = -B(158)-B(347)-B(575)-B(1419)-B(1420) ! JVS(1713) = Jac_FULL(219,234) JVS(1713) = 0.11*B(671) ! JVS(1714) = Jac_FULL(219,249) @@ -6649,9 +6653,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1741) = Jac_FULL(222,151) JVS(1741) = 0.53*B(683) ! JVS(1742) = Jac_FULL(222,174) - JVS(1742) = B(1499) + JVS(1742) = B(1501) ! JVS(1743) = Jac_FULL(222,198) - JVS(1743) = 0.19*B(1437) + JVS(1743) = 0.19*B(1439) ! JVS(1744) = Jac_FULL(222,211) JVS(1744) = 0.149*B(728) ! JVS(1745) = Jac_FULL(222,212) @@ -6659,7 +6663,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1746) = Jac_FULL(222,221) JVS(1746) = 0.289*B(695) ! JVS(1747) = Jac_FULL(222,222) - JVS(1747) = -B(176)-B(182)-B(1419) + JVS(1747) = -B(176)-B(182)-B(1421) ! JVS(1748) = Jac_FULL(222,234) JVS(1748) = 0.44*B(671)+0.75*B(675)+B(677)+B(679) ! JVS(1749) = Jac_FULL(222,249) @@ -6685,11 +6689,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1759) = Jac_FULL(223,40) JVS(1759) = 2*B(633) ! JVS(1760) = Jac_FULL(223,47) - JVS(1760) = B(1487) + JVS(1760) = B(1489) ! JVS(1761) = Jac_FULL(223,90) JVS(1761) = -B(605)+B(609) ! JVS(1762) = Jac_FULL(223,223) - JVS(1762) = -B(594)-B(601)-B(603)-B(606)-B(611)-B(613)-B(615)-B(627)-B(629)-2*B(631)-2*B(632)-B(1476) + JVS(1762) = -B(594)-B(601)-B(603)-B(606)-B(611)-B(613)-B(615)-B(627)-B(629)-2*B(631)-2*B(632)-B(1478) ! JVS(1763) = Jac_FULL(223,264) JVS(1763) = B(625) ! JVS(1764) = Jac_FULL(223,265) @@ -6811,11 +6815,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1822) = Jac_FULL(226,200) JVS(1822) = 0.335*B(1076) ! JVS(1823) = Jac_FULL(226,209) - JVS(1823) = 0.75*B(1120)+0.5*B(1549) + JVS(1823) = 0.75*B(1120)+0.5*B(1551) ! JVS(1824) = Jac_FULL(226,210) JVS(1824) = 0 ! JVS(1825) = Jac_FULL(226,216) - JVS(1825) = 0.55*B(1532) + JVS(1825) = 0.55*B(1534) ! JVS(1826) = Jac_FULL(226,217) JVS(1826) = 0.054*B(1004)+0.059*B(1008) ! JVS(1827) = Jac_FULL(226,220) @@ -6825,7 +6829,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1829) = Jac_FULL(226,225) JVS(1829) = 0 ! JVS(1830) = Jac_FULL(226,226) - JVS(1830) = -B(1044)-B(1516) + JVS(1830) = -B(1044)-B(1518) ! JVS(1831) = Jac_FULL(226,236) JVS(1831) = 0 ! JVS(1832) = Jac_FULL(226,238) @@ -6877,11 +6881,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1855) = Jac_FULL(227,201) JVS(1855) = 0.41*B(1082) ! JVS(1856) = Jac_FULL(227,202) - JVS(1856) = 0.5*B(1112)+0.5*B(1541) + JVS(1856) = 0.5*B(1112)+0.5*B(1543) ! JVS(1857) = Jac_FULL(227,209) - JVS(1857) = 0.25*B(1120)+0.5*B(1549) + JVS(1857) = 0.25*B(1120)+0.5*B(1551) ! JVS(1858) = Jac_FULL(227,210) - JVS(1858) = 0.55*B(1535) + JVS(1858) = 0.55*B(1537) ! JVS(1859) = Jac_FULL(227,216) JVS(1859) = 0 ! JVS(1860) = Jac_FULL(227,217) @@ -6893,11 +6897,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1863) = Jac_FULL(227,225) JVS(1863) = 0 ! JVS(1864) = Jac_FULL(227,227) - JVS(1864) = -B(1046)-B(1519) + JVS(1864) = -B(1046)-B(1521) ! JVS(1865) = Jac_FULL(227,236) JVS(1865) = 0 ! JVS(1866) = Jac_FULL(227,238) - JVS(1866) = 0.15*B(1547) + JVS(1866) = 0.15*B(1549) ! JVS(1867) = Jac_FULL(227,240) JVS(1867) = 0 ! JVS(1868) = Jac_FULL(227,241) @@ -6937,11 +6941,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1885) = Jac_FULL(228,149) JVS(1885) = 0 ! JVS(1886) = Jac_FULL(228,152) - JVS(1886) = B(1066)+0.571*B(1517) + JVS(1886) = B(1066)+0.571*B(1519) ! JVS(1887) = Jac_FULL(228,159) - JVS(1887) = 0.429*B(1544) + JVS(1887) = 0.429*B(1546) ! JVS(1888) = Jac_FULL(228,160) - JVS(1888) = 0.187*B(1064)+0.125*B(1518) + JVS(1888) = 0.187*B(1064)+0.125*B(1520) ! JVS(1889) = Jac_FULL(228,161) JVS(1889) = 0.018*B(835) ! JVS(1890) = Jac_FULL(228,167) @@ -6953,7 +6957,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1893) = Jac_FULL(228,180) JVS(1893) = 0 ! JVS(1894) = Jac_FULL(228,181) - JVS(1894) = B(1070)+0.5*B(1515) + JVS(1894) = B(1070)+0.5*B(1517) ! JVS(1895) = Jac_FULL(228,182) JVS(1895) = 0.085*B(807) ! JVS(1896) = Jac_FULL(228,183) @@ -6973,11 +6977,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1903) = Jac_FULL(228,201) JVS(1903) = 0.083*B(1082)+0.14*B(1089) ! JVS(1904) = Jac_FULL(228,202) - JVS(1904) = 0.088*B(1542) + JVS(1904) = 0.088*B(1544) ! JVS(1905) = Jac_FULL(228,203) JVS(1905) = 0 ! JVS(1906) = Jac_FULL(228,209) - JVS(1906) = B(1548) + JVS(1906) = B(1550) ! JVS(1907) = Jac_FULL(228,210) JVS(1907) = 0 ! JVS(1908) = Jac_FULL(228,216) @@ -6991,11 +6995,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1912) = Jac_FULL(228,225) JVS(1912) = 0.52*B(870)+0.8*B(872) ! JVS(1913) = Jac_FULL(228,226) - JVS(1913) = 0.47*B(1516) + JVS(1913) = 0.47*B(1518) ! JVS(1914) = Jac_FULL(228,227) - JVS(1914) = 0.23*B(1519) + JVS(1914) = 0.23*B(1521) ! JVS(1915) = Jac_FULL(228,228) - JVS(1915) = -B(226)-B(230)-B(1373)-B(1424) + JVS(1915) = -B(226)-B(230)-B(1375)-B(1426) ! JVS(1916) = Jac_FULL(228,229) JVS(1916) = 0 ! JVS(1917) = Jac_FULL(228,236) @@ -7107,27 +7111,27 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1969) = Jac_FULL(230,286) JVS(1969) = -B(654) ! JVS(1970) = Jac_FULL(231,169) - JVS(1970) = B(1261)+B(1264)+B(1266) + JVS(1970) = B(1263)+B(1266)+B(1268) ! JVS(1971) = Jac_FULL(231,231) - JVS(1971) = -B(483)-B(1290)-B(1292)-B(1294)-B(1296)-B(1298)-B(1300)-B(1455) + JVS(1971) = -B(483)-B(1292)-B(1294)-B(1296)-B(1298)-B(1300)-B(1302)-B(1457) ! JVS(1972) = Jac_FULL(231,270) JVS(1972) = 0 ! JVS(1973) = Jac_FULL(231,271) - JVS(1973) = B(1262)-B(1295) + JVS(1973) = B(1264)-B(1297) ! JVS(1974) = Jac_FULL(231,272) - JVS(1974) = -B(1301) + JVS(1974) = -B(1303) ! JVS(1975) = Jac_FULL(231,273) JVS(1975) = 0 ! JVS(1976) = Jac_FULL(231,275) - JVS(1976) = -B(1297) + JVS(1976) = -B(1299) ! JVS(1977) = Jac_FULL(231,276) - JVS(1977) = -B(1299) + JVS(1977) = -B(1301) ! JVS(1978) = Jac_FULL(231,278) - JVS(1978) = B(1265)-B(1291) + JVS(1978) = B(1267)-B(1293) ! JVS(1979) = Jac_FULL(231,279) JVS(1979) = -B(484) ! JVS(1980) = Jac_FULL(231,282) - JVS(1980) = B(1267)-B(1293) + JVS(1980) = B(1269)-B(1295) ! JVS(1981) = Jac_FULL(231,283) JVS(1981) = 0 ! JVS(1982) = Jac_FULL(232,64) @@ -7139,7 +7143,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1985) = Jac_FULL(232,138) JVS(1985) = B(1191) ! JVS(1986) = Jac_FULL(232,140) - JVS(1986) = 0.25*B(1543) + JVS(1986) = 0.25*B(1545) ! JVS(1987) = Jac_FULL(232,143) JVS(1987) = 0.11*B(1026)+0.09*B(1028) ! JVS(1988) = Jac_FULL(232,145) @@ -7147,7 +7151,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1989) = Jac_FULL(232,155) JVS(1989) = 0.9*B(1234) ! JVS(1990) = Jac_FULL(232,159) - JVS(1990) = 0.429*B(1544) + JVS(1990) = 0.429*B(1546) ! JVS(1991) = Jac_FULL(232,162) JVS(1991) = 0.459*B(920)+0.728*B(922) ! JVS(1992) = Jac_FULL(232,164) @@ -7163,11 +7167,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(1997) = Jac_FULL(232,200) JVS(1997) = 0.36*B(1076)+0.758*B(1078) ! JVS(1998) = Jac_FULL(232,202) - JVS(1998) = 0.088*B(1542) + JVS(1998) = 0.088*B(1544) ! JVS(1999) = Jac_FULL(232,206) JVS(1999) = 0 ! JVS(2000) = Jac_FULL(232,209) - JVS(2000) = B(1548) + JVS(2000) = B(1550) ! JVS(2001) = Jac_FULL(232,210) JVS(2001) = 0 ! JVS(2002) = Jac_FULL(232,216) @@ -7181,19 +7185,19 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2006) = Jac_FULL(232,225) JVS(2006) = 0.52*B(870)+0.8*B(872) ! JVS(2007) = Jac_FULL(232,226) - JVS(2007) = 0.53*B(1516) + JVS(2007) = 0.53*B(1518) ! JVS(2008) = Jac_FULL(232,229) JVS(2008) = 0.242*B(947)+0.546*B(949) ! JVS(2009) = Jac_FULL(232,232) - JVS(2009) = -B(218)-B(220)-B(1420) + JVS(2009) = -B(218)-B(220)-B(1422) ! JVS(2010) = Jac_FULL(232,236) JVS(2010) = 0 ! JVS(2011) = Jac_FULL(232,237) - JVS(2011) = 0.69*B(1521) + JVS(2011) = 0.69*B(1523) ! JVS(2012) = Jac_FULL(232,238) - JVS(2012) = 0.3*B(1546)+0.35*B(1547) + JVS(2012) = 0.3*B(1548)+0.35*B(1549) ! JVS(2013) = Jac_FULL(232,239) - JVS(2013) = 0.5*B(1540) + JVS(2013) = 0.5*B(1542) ! JVS(2014) = Jac_FULL(232,240) JVS(2014) = 0 ! JVS(2015) = Jac_FULL(232,241) @@ -7229,9 +7233,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2029) = Jac_FULL(233,121) JVS(2029) = B(117)+B(351)+B(573) ! JVS(2030) = Jac_FULL(233,198) - JVS(2030) = 0.05*B(1437) + JVS(2030) = 0.05*B(1439) ! JVS(2031) = Jac_FULL(233,222) - JVS(2031) = 0.06*B(1419) + JVS(2031) = 0.06*B(1421) ! JVS(2032) = Jac_FULL(233,233) JVS(2032) = -B(119)-B(121)-B(160)-B(208)-B(236)-B(240) ! JVS(2033) = Jac_FULL(233,234) @@ -7245,7 +7249,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2037) = Jac_FULL(233,252) JVS(2037) = 0.05*B(127)+0.03*B(184)+0.05*B(273) ! JVS(2038) = Jac_FULL(233,255) - JVS(2038) = 0.07*B(1416) + JVS(2038) = 0.07*B(1418) ! JVS(2039) = Jac_FULL(233,257) JVS(2039) = -B(237)-B(241)+0.05*B(274)+0.07*B(306) ! JVS(2040) = Jac_FULL(233,263) @@ -7289,11 +7293,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2059) = Jac_FULL(235,165) JVS(2059) = 0.16*B(691) ! JVS(2060) = Jac_FULL(235,198) - JVS(2060) = 0.32*B(1437) + JVS(2060) = 0.32*B(1439) ! JVS(2061) = Jac_FULL(235,213) JVS(2061) = 0 ! JVS(2062) = Jac_FULL(235,222) - JVS(2062) = 0.425*B(1419) + JVS(2062) = 0.425*B(1421) ! JVS(2063) = Jac_FULL(235,234) JVS(2063) = 0 ! JVS(2064) = Jac_FULL(235,235) @@ -7307,7 +7311,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2068) = Jac_FULL(235,252) JVS(2068) = 0.32*B(127)+0.16*B(184)+0.32*B(273) ! JVS(2069) = Jac_FULL(235,255) - JVS(2069) = 0.5*B(1416) + JVS(2069) = 0.5*B(1418) ! JVS(2070) = Jac_FULL(235,257) JVS(2070) = 0.32*B(274)-B(300)-B(304)+0.5*B(306) ! JVS(2071) = Jac_FULL(235,263) @@ -7329,15 +7333,15 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2079) = Jac_FULL(236,123) JVS(2079) = B(983) ! JVS(2080) = Jac_FULL(236,147) - JVS(2080) = B(1000)+0.159*B(1537) + JVS(2080) = B(1000)+0.159*B(1539) ! JVS(2081) = Jac_FULL(236,210) JVS(2081) = 0.4*B(917) ! JVS(2082) = Jac_FULL(236,216) JVS(2082) = 0.4*B(915) ! JVS(2083) = Jac_FULL(236,236) - JVS(2083) = -B(1016)-B(1018)-B(1539) + JVS(2083) = -B(1016)-B(1018)-B(1541) ! JVS(2084) = Jac_FULL(236,239) - JVS(2084) = 0.228*B(1540) + JVS(2084) = 0.228*B(1542) ! JVS(2085) = Jac_FULL(236,240) JVS(2085) = 0.07*B(959)+0.532*B(960)+0.034*B(965) ! JVS(2086) = Jac_FULL(236,241) @@ -7381,9 +7385,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2105) = Jac_FULL(237,236) JVS(2105) = 0.161*B(1018) ! JVS(2106) = Jac_FULL(237,237) - JVS(2106) = -B(1042)-B(1378)-B(1521) + JVS(2106) = -B(1042)-B(1380)-B(1523) ! JVS(2107) = Jac_FULL(237,238) - JVS(2107) = 0.05*B(1546) + JVS(2107) = 0.05*B(1548) ! JVS(2108) = Jac_FULL(237,239) JVS(2108) = 0 ! JVS(2109) = Jac_FULL(237,240) @@ -7443,7 +7447,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2136) = Jac_FULL(238,229) JVS(2136) = 0.621*B(947) ! JVS(2137) = Jac_FULL(238,238) - JVS(2137) = -B(1122)-B(1394)-B(1546)-B(1547) + JVS(2137) = -B(1122)-B(1396)-B(1548)-B(1549) ! JVS(2138) = Jac_FULL(238,239) JVS(2138) = 0.565*B(1024) ! JVS(2139) = Jac_FULL(238,240) @@ -7489,7 +7493,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2159) = Jac_FULL(239,238) JVS(2159) = 0 ! JVS(2160) = Jac_FULL(239,239) - JVS(2160) = -B(1024)-B(1392)-B(1540) + JVS(2160) = -B(1024)-B(1394)-B(1542) ! JVS(2161) = Jac_FULL(239,240) JVS(2161) = B(977) ! JVS(2162) = Jac_FULL(239,241) @@ -7559,7 +7563,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2194) = Jac_FULL(241,285) JVS(2194) = 0 ! JVS(2195) = Jac_FULL(242,147) - JVS(2195) = 0.841*B(1538) + JVS(2195) = 0.841*B(1540) ! JVS(2196) = Jac_FULL(242,153) JVS(2196) = 0.75*B(829) ! JVS(2197) = Jac_FULL(242,167) @@ -7589,7 +7593,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2209) = Jac_FULL(242,285) JVS(2209) = 0.5*B(578) ! JVS(2210) = Jac_FULL(243,147) - JVS(2210) = 0.159*B(1538) + JVS(2210) = 0.159*B(1540) ! JVS(2211) = Jac_FULL(243,158) JVS(2211) = 0.51*B(831) ! JVS(2212) = Jac_FULL(243,161) @@ -7625,21 +7629,21 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2227) = Jac_FULL(244,120) JVS(2227) = B(891)+B(893) ! JVS(2228) = Jac_FULL(244,125) - JVS(2228) = 0.23*B(811)+B(1530) + JVS(2228) = 0.23*B(811)+B(1532) ! JVS(2229) = Jac_FULL(244,136) - JVS(2229) = B(1533) + JVS(2229) = B(1535) ! JVS(2230) = Jac_FULL(244,153) - JVS(2230) = 0.125*B(829)+B(1524) + JVS(2230) = 0.125*B(829)+B(1526) ! JVS(2231) = Jac_FULL(244,167) JVS(2231) = 0 ! JVS(2232) = Jac_FULL(244,177) - JVS(2232) = 0.903*B(1536) + JVS(2232) = 0.903*B(1538) ! JVS(2233) = Jac_FULL(244,182) JVS(2233) = 0.035*B(807) ! JVS(2234) = Jac_FULL(244,220) JVS(2234) = 0.177*B(753) ! JVS(2235) = Jac_FULL(244,239) - JVS(2235) = 0.05*B(1540) + JVS(2235) = 0.05*B(1542) ! JVS(2236) = Jac_FULL(244,240) JVS(2236) = 0.479*B(955)+1.737*B(959)+0.544*B(960)+0.583*B(965)+0.903*B(967)+0.903*B(971)+0.904*B(975) ! JVS(2237) = Jac_FULL(244,241) @@ -7649,7 +7653,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2239) = Jac_FULL(244,243) JVS(2239) = B(778) ! JVS(2240) = Jac_FULL(244,244) - JVS(2240) = -B(1030)-B(1032)-B(1425)-B(1426)-B(1427) + JVS(2240) = -B(1030)-B(1032)-B(1427)-B(1428)-B(1429) ! JVS(2241) = Jac_FULL(244,257) JVS(2241) = 0.903*B(968) ! JVS(2242) = Jac_FULL(244,263) @@ -7713,15 +7717,15 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2271) = Jac_FULL(246,130) JVS(2271) = 0.84*B(1074) ! JVS(2272) = Jac_FULL(246,131) - JVS(2272) = B(743)+B(1501) + JVS(2272) = B(743)+B(1503) ! JVS(2273) = Jac_FULL(246,133) JVS(2273) = 0.488*B(1086) ! JVS(2274) = Jac_FULL(246,140) - JVS(2274) = 0.25*B(1543) + JVS(2274) = 0.25*B(1545) ! JVS(2275) = Jac_FULL(246,149) JVS(2275) = 0.25*B(1108) ! JVS(2276) = Jac_FULL(246,159) - JVS(2276) = 0.571*B(1544) + JVS(2276) = 0.571*B(1546) ! JVS(2277) = Jac_FULL(246,162) JVS(2277) = 0.459*B(920)+0.728*B(922) ! JVS(2278) = Jac_FULL(246,163) @@ -7743,13 +7747,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2286) = Jac_FULL(246,190) JVS(2286) = 0.52*B(884)+0.8*B(888)+B(890) ! JVS(2287) = Jac_FULL(246,195) - JVS(2287) = B(1522) + JVS(2287) = B(1524) ! JVS(2288) = Jac_FULL(246,196) JVS(2288) = 0 ! JVS(2289) = Jac_FULL(246,201) JVS(2289) = 0.507*B(1082)+B(1088)+0.86*B(1089) ! JVS(2290) = Jac_FULL(246,202) - JVS(2290) = 0.438*B(1542) + JVS(2290) = 0.438*B(1544) ! JVS(2291) = Jac_FULL(246,203) JVS(2291) = 0 ! JVS(2292) = Jac_FULL(246,204) @@ -7773,7 +7777,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2301) = Jac_FULL(246,225) JVS(2301) = 0 ! JVS(2302) = Jac_FULL(246,227) - JVS(2302) = 0.77*B(1046)+0.77*B(1519) + JVS(2302) = 0.77*B(1046)+0.77*B(1521) ! JVS(2303) = Jac_FULL(246,229) JVS(2303) = 0.033*B(947)+0.071*B(949) ! JVS(2304) = Jac_FULL(246,234) @@ -7781,9 +7785,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2305) = Jac_FULL(246,236) JVS(2305) = 0 ! JVS(2306) = Jac_FULL(246,238) - JVS(2306) = 0.45*B(1546)+0.8*B(1547) + JVS(2306) = 0.45*B(1548)+0.8*B(1549) ! JVS(2307) = Jac_FULL(246,239) - JVS(2307) = 0.5*B(1540) + JVS(2307) = 0.5*B(1542) ! JVS(2308) = Jac_FULL(246,240) JVS(2308) = 0 ! JVS(2309) = Jac_FULL(246,241) @@ -7795,7 +7799,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2312) = Jac_FULL(246,245) JVS(2312) = 0.5*B(1097)+B(1099)+B(1103)+0.7*B(1105) ! JVS(2313) = Jac_FULL(246,246) - JVS(2313) = -B(232)-B(234)-B(1429) + JVS(2313) = -B(232)-B(234)-B(1431) ! JVS(2314) = Jac_FULL(246,247) JVS(2314) = 0 ! JVS(2315) = Jac_FULL(246,248) @@ -7827,17 +7831,17 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2327) = Jac_FULL(247,117) JVS(2327) = B(895)+B(897) ! JVS(2328) = Jac_FULL(247,126) - JVS(2328) = 0.14*B(813)+B(1531) + JVS(2328) = 0.14*B(813)+B(1533) ! JVS(2329) = Jac_FULL(247,137) - JVS(2329) = B(1534) + JVS(2329) = B(1536) ! JVS(2330) = Jac_FULL(247,158) - JVS(2330) = 0.165*B(831)+B(1525) + JVS(2330) = 0.165*B(831)+B(1527) ! JVS(2331) = Jac_FULL(247,161) JVS(2331) = 0 ! JVS(2332) = Jac_FULL(247,165) JVS(2332) = 0.79*B(691) ! JVS(2333) = Jac_FULL(247,177) - JVS(2333) = 0.097*B(1536) + JVS(2333) = 0.097*B(1538) ! JVS(2334) = Jac_FULL(247,184) JVS(2334) = 0.035*B(809) ! JVS(2335) = Jac_FULL(247,220) @@ -7845,7 +7849,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2336) = Jac_FULL(247,221) JVS(2336) = 0.308*B(699)+0.308*B(701)+0.615*B(703) ! JVS(2337) = Jac_FULL(247,239) - JVS(2337) = 0.005*B(1540) + JVS(2337) = 0.005*B(1542) ! JVS(2338) = Jac_FULL(247,240) JVS(2338) = 0.048*B(955)+0.123*B(959)+0.019*B(960)+0.028*B(965)+0.097*B(967)+0.097*B(971)+0.096*B(975) ! JVS(2339) = Jac_FULL(247,241) @@ -7855,7 +7859,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2341) = Jac_FULL(247,243) JVS(2341) = 0.063*B(767)+B(773)+2*B(776)+B(778)+B(787)+B(801) ! JVS(2342) = Jac_FULL(247,247) - JVS(2342) = -B(1034)-B(1036)-B(1038)-B(1040)-B(1428) + JVS(2342) = -B(1034)-B(1036)-B(1038)-B(1040)-B(1430) ! JVS(2343) = Jac_FULL(247,257) JVS(2343) = 0.308*B(702)+0.097*B(968) ! JVS(2344) = Jac_FULL(247,263) @@ -7971,11 +7975,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2399) = Jac_FULL(250,206) JVS(2399) = 0 ! JVS(2400) = Jac_FULL(250,222) - JVS(2400) = 0.15*B(1419) + JVS(2400) = 0.15*B(1421) ! JVS(2401) = Jac_FULL(250,234) JVS(2401) = 0 ! JVS(2402) = Jac_FULL(250,244) - JVS(2402) = B(1427) + JVS(2402) = B(1429) ! JVS(2403) = Jac_FULL(250,249) JVS(2403) = 0 ! JVS(2404) = Jac_FULL(250,250) @@ -8069,9 +8073,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2448) = Jac_FULL(253,121) JVS(2448) = B(115)+B(571) ! JVS(2449) = Jac_FULL(253,198) - JVS(2449) = 0.18*B(1437) + JVS(2449) = 0.18*B(1439) ! JVS(2450) = Jac_FULL(253,222) - JVS(2450) = 0.23*B(1419) + JVS(2450) = 0.23*B(1421) ! JVS(2451) = Jac_FULL(253,234) JVS(2451) = 0 ! JVS(2452) = Jac_FULL(253,249) @@ -8085,7 +8089,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2456) = Jac_FULL(253,253) JVS(2456) = -B(137)-B(139)-B(172)-B(192)-B(279)-B(295) ! JVS(2457) = Jac_FULL(253,255) - JVS(2457) = 0.27*B(1416) + JVS(2457) = 0.27*B(1418) ! JVS(2458) = Jac_FULL(253,257) JVS(2458) = 0.18*B(274)-B(280)-B(296)+0.27*B(306) ! JVS(2459) = Jac_FULL(253,263) @@ -8111,7 +8115,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2469) = Jac_FULL(254,221) JVS(2469) = 0.289*B(695)+0.192*B(699)+0.192*B(701)+0.385*B(703) ! JVS(2470) = Jac_FULL(254,244) - JVS(2470) = B(1425) + JVS(2470) = B(1427) ! JVS(2471) = Jac_FULL(254,254) JVS(2471) = -B(214)-B(216)-B(222)-B(581)-B(583) ! JVS(2472) = Jac_FULL(254,257) @@ -8133,15 +8137,15 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2480) = Jac_FULL(254,287) JVS(2480) = -B(584) ! JVS(2481) = Jac_FULL(255,89) - JVS(2481) = B(751)+B(1509) + JVS(2481) = B(751)+B(1511) ! JVS(2482) = Jac_FULL(255,91) - JVS(2482) = 0.791*B(256)+B(1434) + JVS(2482) = 0.791*B(256)+B(1436) ! JVS(2483) = Jac_FULL(255,92) - JVS(2483) = 0.64*B(252)+B(1432) + JVS(2483) = 0.64*B(252)+B(1434) ! JVS(2484) = Jac_FULL(255,112) - JVS(2484) = B(1430) + JVS(2484) = B(1432) ! JVS(2485) = Jac_FULL(255,119) - JVS(2485) = 0.08*B(705)+B(1497) + JVS(2485) = 0.08*B(705)+B(1499) ! JVS(2486) = Jac_FULL(255,145) JVS(2486) = 1.2*B(1241) ! JVS(2487) = Jac_FULL(255,150) @@ -8153,11 +8157,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2490) = Jac_FULL(255,155) JVS(2490) = 1.2*B(1236) ! JVS(2491) = Jac_FULL(255,196) - JVS(2491) = B(1500) + JVS(2491) = B(1502) ! JVS(2492) = Jac_FULL(255,197) JVS(2492) = 0.25*B(194)+B(293) ! JVS(2493) = Jac_FULL(255,198) - JVS(2493) = 0.13*B(1437) + JVS(2493) = 0.13*B(1439) ! JVS(2494) = Jac_FULL(255,204) JVS(2494) = 0.09*B(162)+0.35*B(242) ! JVS(2495) = Jac_FULL(255,206) @@ -8185,7 +8189,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2506) = Jac_FULL(255,254) JVS(2506) = 0 ! JVS(2507) = Jac_FULL(255,255) - JVS(2507) = -B(149)-B(156)-B(1416) + JVS(2507) = -B(149)-B(156)-B(1418) ! JVS(2508) = Jac_FULL(255,257) JVS(2508) = B(237)+B(241)+0.35*B(243)+0.13*B(274)+0.57*B(282)+B(292)+B(294)+B(678)+1.24*B(722) ! JVS(2509) = Jac_FULL(255,263) @@ -8209,63 +8213,63 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2518) = Jac_FULL(256,124) JVS(2518) = B(333) ! JVS(2519) = Jac_FULL(256,172) - JVS(2519) = B(1272) + JVS(2519) = B(1274) ! JVS(2520) = Jac_FULL(256,256) - JVS(2520) = -B(335)-B(1312)-B(1314)-B(1316)-B(1318)-B(1320)-B(1322)-B(1324)-B(1441) + JVS(2520) = -B(335)-B(1314)-B(1316)-B(1318)-B(1320)-B(1322)-B(1324)-B(1326)-B(1443) ! JVS(2521) = Jac_FULL(256,269) - JVS(2521) = B(1326)+B(1328)+B(1330) + JVS(2521) = B(1328)+B(1330)+B(1332) ! JVS(2522) = Jac_FULL(256,270) JVS(2522) = 0 ! JVS(2523) = Jac_FULL(256,271) - JVS(2523) = -B(1315) + JVS(2523) = -B(1317) ! JVS(2524) = Jac_FULL(256,272) - JVS(2524) = -B(1313)+B(1327) + JVS(2524) = -B(1315)+B(1329) ! JVS(2525) = Jac_FULL(256,273) - JVS(2525) = B(1273) + JVS(2525) = B(1275) ! JVS(2526) = Jac_FULL(256,274) JVS(2526) = B(321) ! JVS(2527) = Jac_FULL(256,275) - JVS(2527) = -B(1321)+B(1329) + JVS(2527) = -B(1323)+B(1331) ! JVS(2528) = Jac_FULL(256,276) - JVS(2528) = -B(1323)+B(1331) + JVS(2528) = -B(1325)+B(1333) ! JVS(2529) = Jac_FULL(256,278) - JVS(2529) = -B(1317) + JVS(2529) = -B(1319) ! JVS(2530) = Jac_FULL(256,279) JVS(2530) = B(334) ! JVS(2531) = Jac_FULL(256,281) JVS(2531) = B(322) ! JVS(2532) = Jac_FULL(256,282) - JVS(2532) = -B(1319) + JVS(2532) = -B(1321) ! JVS(2533) = Jac_FULL(256,284) JVS(2533) = -B(336) ! JVS(2534) = Jac_FULL(256,286) - JVS(2534) = -B(1325) + JVS(2534) = -B(1327) ! JVS(2535) = Jac_FULL(256,287) JVS(2535) = 0 ! JVS(2536) = Jac_FULL(257,63) - JVS(2536) = B(104)+0.7*B(1415) + JVS(2536) = B(104)+0.7*B(1417) ! JVS(2537) = Jac_FULL(257,66) JVS(2537) = B(264) ! JVS(2538) = Jac_FULL(257,84) JVS(2538) = 0.3*B(1110) ! JVS(2539) = Jac_FULL(257,104) - JVS(2539) = B(1126)+B(1512) + JVS(2539) = B(1126)+B(1514) ! JVS(2540) = Jac_FULL(257,133) - JVS(2540) = 0.087*B(1086)+0.262*B(1520) + JVS(2540) = 0.087*B(1086)+0.262*B(1522) ! JVS(2541) = Jac_FULL(257,149) JVS(2541) = 0 ! JVS(2542) = Jac_FULL(257,152) - JVS(2542) = 0.429*B(1517) + JVS(2542) = 0.429*B(1519) ! JVS(2543) = Jac_FULL(257,160) - JVS(2543) = 0.097*B(1064)+0.125*B(1518) + JVS(2543) = 0.097*B(1064)+0.125*B(1520) ! JVS(2544) = Jac_FULL(257,166) - JVS(2544) = B(1072)+B(1514) + JVS(2544) = B(1072)+B(1516) ! JVS(2545) = Jac_FULL(257,167) JVS(2545) = 0.018*B(833) ! JVS(2546) = Jac_FULL(257,178) JVS(2546) = -B(1179) ! JVS(2547) = Jac_FULL(257,181) - JVS(2547) = 0.5*B(1515) + JVS(2547) = 0.5*B(1517) ! JVS(2548) = Jac_FULL(257,182) JVS(2548) = 0 ! JVS(2549) = Jac_FULL(257,184) @@ -8273,9 +8277,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2550) = Jac_FULL(257,190) JVS(2550) = 0 ! JVS(2551) = Jac_FULL(257,193) - JVS(2551) = B(1492) + JVS(2551) = B(1494) ! JVS(2552) = Jac_FULL(257,194) - JVS(2552) = B(1513) + JVS(2552) = B(1515) ! JVS(2553) = Jac_FULL(257,197) JVS(2553) = -B(283)-B(293) ! JVS(2554) = Jac_FULL(257,200) @@ -8301,23 +8305,23 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2564) = Jac_FULL(257,217) JVS(2564) = 0 ! JVS(2565) = Jac_FULL(257,219) - JVS(2565) = B(1417) + JVS(2565) = B(1419) ! JVS(2566) = Jac_FULL(257,220) JVS(2566) = 0.3*B(759) ! JVS(2567) = Jac_FULL(257,221) JVS(2567) = -B(701) ! JVS(2568) = Jac_FULL(257,222) - JVS(2568) = 0.85*B(1419) + JVS(2568) = 0.85*B(1421) ! JVS(2569) = Jac_FULL(257,224) JVS(2569) = 0 ! JVS(2570) = Jac_FULL(257,225) JVS(2570) = 0 ! JVS(2571) = Jac_FULL(257,226) - JVS(2571) = 0.53*B(1516) + JVS(2571) = 0.53*B(1518) ! JVS(2572) = Jac_FULL(257,227) JVS(2572) = 0 ! JVS(2573) = Jac_FULL(257,228) - JVS(2573) = B(226)+B(230)+B(1424) + JVS(2573) = B(226)+B(230)+B(1426) ! JVS(2574) = Jac_FULL(257,229) JVS(2574) = 0 ! JVS(2575) = Jac_FULL(257,233) @@ -8329,7 +8333,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2578) = Jac_FULL(257,236) JVS(2578) = 0 ! JVS(2579) = Jac_FULL(257,237) - JVS(2579) = 0.04*B(1042)+1.01*B(1521) + JVS(2579) = 0.04*B(1042)+1.01*B(1523) ! JVS(2580) = Jac_FULL(257,238) JVS(2580) = 0 ! JVS(2581) = Jac_FULL(257,239) @@ -8343,13 +8347,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2585) = Jac_FULL(257,243) JVS(2585) = 0 ! JVS(2586) = Jac_FULL(257,244) - JVS(2586) = 0.38*B(1032)+B(1426) + JVS(2586) = 0.38*B(1032)+B(1428) ! JVS(2587) = Jac_FULL(257,245) JVS(2587) = 0 ! JVS(2588) = Jac_FULL(257,246) - JVS(2588) = B(1429) + JVS(2588) = B(1431) ! JVS(2589) = Jac_FULL(257,247) - JVS(2589) = 0.12*B(1038)+B(1428) + JVS(2589) = 0.12*B(1038)+B(1430) ! JVS(2590) = Jac_FULL(257,248) JVS(2590) = B(133)+0.15*B(168)+0.3*B(188)-B(287) ! JVS(2591) = Jac_FULL(257,249) @@ -8371,7 +8375,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) &-B(288)-B(290)-B(292)-B(294)-B(296)-B(298)-B(300)-B(302)-B(304)-B(306)-B(678)-B(702)-B(720)-B(722)-B(968)& &-B(970)-B(1130)-B(1180) ! JVS(2599) = Jac_FULL(257,261) - JVS(2599) = 0.95*B(98)+B(100)+B(345)+0.12*B(1413) + JVS(2599) = 0.95*B(98)+B(100)+B(345)+0.12*B(1415) ! JVS(2600) = Jac_FULL(257,263) JVS(2600) = 0.3*B(189)+0.5*B(191)-B(270)-B(272) ! JVS(2601) = Jac_FULL(257,269) @@ -8396,7 +8400,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2610) = Jac_FULL(258,60) JVS(2610) = 0.2*B(1165) ! JVS(2611) = Jac_FULL(258,62) - JVS(2611) = B(395)+B(1494) + JVS(2611) = B(395)+B(1496) ! JVS(2612) = Jac_FULL(258,68) JVS(2612) = B(551) ! JVS(2613) = Jac_FULL(258,73) @@ -8406,17 +8410,17 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2615) = Jac_FULL(258,77) JVS(2615) = 0.3*B(1169) ! JVS(2616) = Jac_FULL(258,99) - JVS(2616) = B(1551) + JVS(2616) = B(1553) ! JVS(2617) = Jac_FULL(258,100) JVS(2617) = B(547) ! JVS(2618) = Jac_FULL(258,106) JVS(2618) = B(819) ! JVS(2619) = Jac_FULL(258,122) - JVS(2619) = 0.888*B(1114)+B(1545) + JVS(2619) = 0.888*B(1114)+B(1547) ! JVS(2620) = Jac_FULL(258,125) - JVS(2620) = 0.42*B(811)+B(1530) + JVS(2620) = 0.42*B(811)+B(1532) ! JVS(2621) = Jac_FULL(258,126) - JVS(2621) = 0.23*B(813)+B(1531) + JVS(2621) = 0.23*B(813)+B(1533) ! JVS(2622) = Jac_FULL(258,130) JVS(2622) = 0.84*B(1074) ! JVS(2623) = Jac_FULL(258,133) @@ -8432,7 +8436,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2628) = Jac_FULL(258,151) JVS(2628) = 0.14*B(683) ! JVS(2629) = Jac_FULL(258,152) - JVS(2629) = B(1066)+0.571*B(1517) + JVS(2629) = B(1066)+0.571*B(1519) ! JVS(2630) = Jac_FULL(258,153) JVS(2630) = 0.25*B(829) ! JVS(2631) = Jac_FULL(258,155) @@ -8440,29 +8444,29 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2632) = Jac_FULL(258,158) JVS(2632) = 0.33*B(831) ! JVS(2633) = Jac_FULL(258,160) - JVS(2633) = 0.75*B(1064)+0.875*B(1518) + JVS(2633) = 0.75*B(1064)+0.875*B(1520) ! JVS(2634) = Jac_FULL(258,161) JVS(2634) = 0.054*B(835) ! JVS(2635) = Jac_FULL(258,165) JVS(2635) = 0.14*B(691) ! JVS(2636) = Jac_FULL(258,166) - JVS(2636) = 2*B(1072)+B(1514) + JVS(2636) = 2*B(1072)+B(1516) ! JVS(2637) = Jac_FULL(258,167) JVS(2637) = 0.036*B(833) ! JVS(2638) = Jac_FULL(258,168) - JVS(2638) = B(1132)+B(1511) + JVS(2638) = B(1132)+B(1513) ! JVS(2639) = Jac_FULL(258,170) JVS(2639) = 1.5*B(817) ! JVS(2640) = Jac_FULL(258,171) - JVS(2640) = 0.25*B(1050)+B(1523) + JVS(2640) = 0.25*B(1050)+B(1525) ! JVS(2641) = Jac_FULL(258,179) JVS(2641) = 0 ! JVS(2642) = Jac_FULL(258,181) - JVS(2642) = 0.5*B(1515) + JVS(2642) = 0.5*B(1517) ! JVS(2643) = Jac_FULL(258,182) - JVS(2643) = 0.45*B(807)+0.888*B(1528) + JVS(2643) = 0.45*B(807)+0.888*B(1530) ! JVS(2644) = Jac_FULL(258,184) - JVS(2644) = 0.37*B(809)+0.818*B(1529) + JVS(2644) = 0.37*B(809)+0.818*B(1531) ! JVS(2645) = Jac_FULL(258,185) JVS(2645) = 0 ! JVS(2646) = Jac_FULL(258,189) @@ -8472,31 +8476,31 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2648) = Jac_FULL(258,191) JVS(2648) = -B(655) ! JVS(2649) = Jac_FULL(258,195) - JVS(2649) = B(1522) + JVS(2649) = B(1524) ! JVS(2650) = Jac_FULL(258,200) JVS(2650) = 0 ! JVS(2651) = Jac_FULL(258,201) JVS(2651) = 0.507*B(1082)+B(1088)+0.86*B(1089) ! JVS(2652) = Jac_FULL(258,202) - JVS(2652) = B(1112)+B(1541)+0.122*B(1542) + JVS(2652) = B(1112)+B(1543)+0.122*B(1544) ! JVS(2653) = Jac_FULL(258,203) JVS(2653) = 0.325*B(1084)+0.65*B(1093) ! JVS(2654) = Jac_FULL(258,205) - JVS(2654) = B(1498) + JVS(2654) = B(1500) ! JVS(2655) = Jac_FULL(258,206) - JVS(2655) = B(1554) + JVS(2655) = B(1556) ! JVS(2656) = Jac_FULL(258,209) - JVS(2656) = B(1120)+B(1549) + JVS(2656) = B(1120)+B(1551) ! JVS(2657) = Jac_FULL(258,210) - JVS(2657) = 0.6*B(917)+0.55*B(1535) + JVS(2657) = 0.6*B(917)+0.55*B(1537) ! JVS(2658) = Jac_FULL(258,216) - JVS(2658) = 0.6*B(915)+0.55*B(1532) + JVS(2658) = 0.6*B(915)+0.55*B(1534) ! JVS(2659) = Jac_FULL(258,217) JVS(2659) = 0 ! JVS(2660) = Jac_FULL(258,218) - JVS(2660) = 2*B(224)+2*B(228)+2*B(1421)+2*B(1422)+B(1423) + JVS(2660) = 2*B(224)+2*B(228)+2*B(1423)+2*B(1424)+B(1425) ! JVS(2661) = Jac_FULL(258,219) - JVS(2661) = B(1418) + JVS(2661) = B(1420) ! JVS(2662) = Jac_FULL(258,220) JVS(2662) = 0.407*B(753)+0.6*B(759)+0.9*B(761) ! JVS(2663) = Jac_FULL(258,224) @@ -8506,19 +8510,19 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2665) = Jac_FULL(258,226) JVS(2665) = 0 ! JVS(2666) = Jac_FULL(258,227) - JVS(2666) = 0.77*B(1046)+0.77*B(1519) + JVS(2666) = 0.77*B(1046)+0.77*B(1521) ! JVS(2667) = Jac_FULL(258,228) - JVS(2667) = B(226)+B(230)+B(1424) + JVS(2667) = B(226)+B(230)+B(1426) ! JVS(2668) = Jac_FULL(258,229) JVS(2668) = 0 ! JVS(2669) = Jac_FULL(258,230) JVS(2669) = -B(641) ! JVS(2670) = Jac_FULL(258,232) - JVS(2670) = 0.505*B(218)+B(220)+B(1420) + JVS(2670) = 0.505*B(218)+B(220)+B(1422) ! JVS(2671) = Jac_FULL(258,234) JVS(2671) = 0 ! JVS(2672) = Jac_FULL(258,236) - JVS(2672) = 0.539*B(1018)+0.839*B(1539) + JVS(2672) = 0.539*B(1018)+0.839*B(1541) ! JVS(2673) = Jac_FULL(258,237) JVS(2673) = 0 ! JVS(2674) = Jac_FULL(258,238) @@ -8534,13 +8538,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2679) = Jac_FULL(258,243) JVS(2679) = 0.9*B(774)+B(780)+B(782)+0.5*B(789)+0.55*B(805) ! JVS(2680) = Jac_FULL(258,244) - JVS(2680) = 0.18*B(1032)+B(1425)+B(1426) + JVS(2680) = 0.18*B(1032)+B(1427)+B(1428) ! JVS(2681) = Jac_FULL(258,245) JVS(2681) = 0 ! JVS(2682) = Jac_FULL(258,246) JVS(2682) = 0.5*B(234) ! JVS(2683) = Jac_FULL(258,247) - JVS(2683) = 0.036*B(1034)+0.12*B(1038)+0.68*B(1040)+B(1428) + JVS(2683) = 0.036*B(1034)+0.12*B(1038)+0.68*B(1040)+B(1430) ! JVS(2684) = Jac_FULL(258,248) JVS(2684) = 0 ! JVS(2685) = Jac_FULL(258,249) @@ -8554,15 +8558,15 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2689) = Jac_FULL(258,254) JVS(2689) = 0.56*B(216) ! JVS(2690) = Jac_FULL(258,255) - JVS(2690) = B(1416) + JVS(2690) = B(1418) ! JVS(2691) = Jac_FULL(258,257) JVS(2691) = 0 ! JVS(2692) = Jac_FULL(258,258) JVS(2692) = -B(44)-B(642)-B(656) ! JVS(2693) = Jac_FULL(258,261) - JVS(2693) = 0.05*B(98)+0.88*B(1413)+B(1414) + JVS(2693) = 0.05*B(98)+0.88*B(1415)+B(1416) ! JVS(2694) = Jac_FULL(258,262) - JVS(2694) = B(66)+B(96)+B(343)+B(427)+B(505)+B(1404)+B(1405) + JVS(2694) = B(66)+B(96)+B(343)+B(427)+B(505)+B(1406)+B(1407) ! JVS(2695) = Jac_FULL(258,263) JVS(2695) = 0.5*B(786)+0.5*B(790) ! JVS(2696) = Jac_FULL(258,269) @@ -8593,27 +8597,27 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2706) = Jac_FULL(258,287) JVS(2706) = B(344) ! JVS(2707) = Jac_FULL(259,259) - JVS(2707) = -B(485)-B(543)-B(545)-B(1276)-B(1278)-B(1280)-B(1282)-B(1284)-B(1286)-B(1288)-B(1456)-B(1457) + JVS(2707) = -B(485)-B(543)-B(545)-B(1278)-B(1280)-B(1282)-B(1284)-B(1286)-B(1288)-B(1290)-B(1458)-B(1459) ! JVS(2708) = Jac_FULL(259,270) JVS(2708) = B(523) ! JVS(2709) = Jac_FULL(259,271) - JVS(2709) = -B(1279) + JVS(2709) = -B(1281) ! JVS(2710) = Jac_FULL(259,272) - JVS(2710) = -B(1281) + JVS(2710) = -B(1283) ! JVS(2711) = Jac_FULL(259,273) - JVS(2711) = -B(1277) + JVS(2711) = -B(1279) ! JVS(2712) = Jac_FULL(259,275) - JVS(2712) = -B(1283) + JVS(2712) = -B(1285) ! JVS(2713) = Jac_FULL(259,276) - JVS(2713) = -B(1285) + JVS(2713) = -B(1287) ! JVS(2714) = Jac_FULL(259,277) JVS(2714) = B(524) ! JVS(2715) = Jac_FULL(259,278) - JVS(2715) = -B(1287) + JVS(2715) = -B(1289) ! JVS(2716) = Jac_FULL(259,279) JVS(2716) = -B(486) ! JVS(2717) = Jac_FULL(259,282) - JVS(2717) = -B(1289) + JVS(2717) = -B(1291) ! JVS(2718) = Jac_FULL(259,284) JVS(2718) = -B(544) ! JVS(2719) = Jac_FULL(259,285) @@ -8649,11 +8653,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2734) = Jac_FULL(260,157) JVS(2734) = B(266) ! JVS(2735) = Jac_FULL(260,169) - JVS(2735) = 2*B(1259)+B(1261)+2*B(1263)+B(1264)+B(1266) + JVS(2735) = 2*B(1261)+B(1263)+2*B(1265)+B(1266)+B(1268) ! JVS(2736) = Jac_FULL(260,171) JVS(2736) = 0 ! JVS(2737) = Jac_FULL(260,172) - JVS(2737) = B(1272)+B(1274) + JVS(2737) = B(1274)+B(1276) ! JVS(2738) = Jac_FULL(260,174) JVS(2738) = 0 ! JVS(2739) = Jac_FULL(260,177) @@ -8747,9 +8751,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2783) = Jac_FULL(260,257) JVS(2783) = 0 ! JVS(2784) = Jac_FULL(260,259) - JVS(2784) = B(1276)+B(1278)+B(1280)+B(1282)+B(1284)+B(1286)+B(1288) + JVS(2784) = B(1278)+B(1280)+B(1282)+B(1284)+B(1286)+B(1288)+B(1290) ! JVS(2785) = Jac_FULL(260,260) - JVS(2785) = -B(7)-B(14)-B(70)-B(1406) + JVS(2785) = -B(7)-B(14)-B(70)-B(1408) ! JVS(2786) = Jac_FULL(260,261) JVS(2786) = B(100) ! JVS(2787) = Jac_FULL(260,262) @@ -8757,27 +8761,27 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2788) = Jac_FULL(260,263) JVS(2788) = 0 ! JVS(2789) = Jac_FULL(260,266) - JVS(2789) = B(1346)+B(1356)+B(1358)+B(1360)+B(1362) + JVS(2789) = B(1348)+B(1358)+B(1360)+B(1362)+B(1364) ! JVS(2790) = Jac_FULL(260,269) JVS(2790) = 0 ! JVS(2791) = Jac_FULL(260,270) - JVS(2791) = B(68)+0.5*B(1255) + JVS(2791) = B(68)+0.5*B(1257) ! JVS(2792) = Jac_FULL(260,271) - JVS(2792) = B(1262)+B(1275)+B(1279) + JVS(2792) = B(1264)+B(1277)+B(1281) ! JVS(2793) = Jac_FULL(260,272) - JVS(2793) = B(1281) + JVS(2793) = B(1283) ! JVS(2794) = Jac_FULL(260,273) - JVS(2794) = 2*B(1260)+B(1273)+B(1277)+B(1347) + JVS(2794) = 2*B(1262)+B(1275)+B(1279)+B(1349) ! JVS(2795) = Jac_FULL(260,274) JVS(2795) = 0 ! JVS(2796) = Jac_FULL(260,275) - JVS(2796) = B(1283)+B(1357) + JVS(2796) = B(1285)+B(1359) ! JVS(2797) = Jac_FULL(260,276) - JVS(2797) = B(1285)+B(1359) + JVS(2797) = B(1287)+B(1361) ! JVS(2798) = Jac_FULL(260,277) JVS(2798) = 0 ! JVS(2799) = Jac_FULL(260,278) - JVS(2799) = B(1265)+B(1287)+B(1361) + JVS(2799) = B(1267)+B(1289)+B(1363) ! JVS(2800) = Jac_FULL(260,279) JVS(2800) = B(69)-B(71) ! JVS(2801) = Jac_FULL(260,280) @@ -8785,10 +8789,10 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2802) = Jac_FULL(260,281) JVS(2802) = 0 ! JVS(2803) = Jac_FULL(260,282) - JVS(2803) = B(1267)+B(1289)+B(1363) + JVS(2803) = B(1269)+B(1291)+B(1365) ! JVS(2804) = Jac_FULL(260,283) JVS(2804) = B(97)+B(101)+B(144)+B(157)+B(183)+B(229)+B(231)+B(267)+B(316)+0.32*B(1041)+B(1125)+0.742*B(1184)+0.5& - &*B(1188)+0.5*B(1194)+B(1198)+0.5*B(1227)+B(1256) + &*B(1188)+0.5*B(1194)+B(1198)+0.5*B(1227)+B(1258) ! JVS(2805) = Jac_FULL(260,284) JVS(2805) = 0 ! JVS(2806) = Jac_FULL(260,285) @@ -8798,13 +8802,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2808) = Jac_FULL(260,287) JVS(2808) = 0 ! JVS(2809) = Jac_FULL(261,88) - JVS(2809) = B(747)+B(1507) + JVS(2809) = B(747)+B(1509) ! JVS(2810) = Jac_FULL(261,94) - JVS(2810) = B(1436) + JVS(2810) = B(1438) ! JVS(2811) = Jac_FULL(261,109) - JVS(2811) = 0.64*B(250)+B(1431) + JVS(2811) = 0.64*B(250)+B(1433) ! JVS(2812) = Jac_FULL(261,111) - JVS(2812) = B(1435) + JVS(2812) = B(1437) ! JVS(2813) = Jac_FULL(261,129) JVS(2813) = B(196)+B(567) ! JVS(2814) = Jac_FULL(261,191) @@ -8812,7 +8816,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2815) = Jac_FULL(261,197) JVS(2815) = B(141)+0.5*B(194)+B(283) ! JVS(2816) = Jac_FULL(261,198) - JVS(2816) = 0.32*B(1437) + JVS(2816) = 0.32*B(1439) ! JVS(2817) = Jac_FULL(261,204) JVS(2817) = B(123)+0.5*B(162)+B(238) ! JVS(2818) = Jac_FULL(261,213) @@ -8836,7 +8840,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2827) = Jac_FULL(261,258) JVS(2827) = B(656) ! JVS(2828) = Jac_FULL(261,261) - JVS(2828) = -B(98)-B(100)-B(345)-B(1413)-B(1414) + JVS(2828) = -B(98)-B(100)-B(345)-B(1415)-B(1416) ! JVS(2829) = Jac_FULL(261,262) JVS(2829) = 0 ! JVS(2830) = Jac_FULL(261,263) @@ -8864,37 +8868,37 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2841) = Jac_FULL(261,287) JVS(2841) = -B(346) ! JVS(2842) = Jac_FULL(262,71) - JVS(2842) = B(1490) + JVS(2842) = B(1492) ! JVS(2843) = Jac_FULL(262,75) JVS(2843) = B(1142) ! JVS(2844) = Jac_FULL(262,82) JVS(2844) = B(311)+B(315) ! JVS(2845) = Jac_FULL(262,83) - JVS(2845) = 0.5*B(1128)+B(1510) + JVS(2845) = 0.5*B(1128)+B(1512) ! JVS(2846) = Jac_FULL(262,85) JVS(2846) = B(22)+B(23) ! JVS(2847) = Jac_FULL(262,87) - JVS(2847) = B(745)+B(1506) + JVS(2847) = B(745)+B(1508) ! JVS(2848) = Jac_FULL(262,102) JVS(2848) = 2*B(1156) ! JVS(2849) = Jac_FULL(262,111) - JVS(2849) = B(1435) + JVS(2849) = B(1437) ! JVS(2850) = Jac_FULL(262,114) JVS(2850) = 0 ! JVS(2851) = Jac_FULL(262,133) - JVS(2851) = 0.25*B(1086)+0.75*B(1520) + JVS(2851) = 0.25*B(1086)+0.75*B(1522) ! JVS(2852) = Jac_FULL(262,134) - JVS(2852) = B(60)+B(1403) + JVS(2852) = B(60)+B(1405) ! JVS(2853) = Jac_FULL(262,136) - JVS(2853) = B(1533) + JVS(2853) = B(1535) ! JVS(2854) = Jac_FULL(262,137) - JVS(2854) = B(1534) + JVS(2854) = B(1536) ! JVS(2855) = Jac_FULL(262,148) JVS(2855) = 0.599*B(927)+B(929) ! JVS(2856) = Jac_FULL(262,153) - JVS(2856) = B(1524) + JVS(2856) = B(1526) ! JVS(2857) = Jac_FULL(262,158) - JVS(2857) = B(1525) + JVS(2857) = B(1527) ! JVS(2858) = Jac_FULL(262,161) JVS(2858) = 0.018*B(835) ! JVS(2859) = Jac_FULL(262,162) @@ -8906,11 +8910,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2862) = Jac_FULL(262,165) JVS(2862) = 0.04*B(691) ! JVS(2863) = Jac_FULL(262,166) - JVS(2863) = B(1514) + JVS(2863) = B(1516) ! JVS(2864) = Jac_FULL(262,167) JVS(2864) = 0.018*B(833) ! JVS(2865) = Jac_FULL(262,168) - JVS(2865) = B(1132)+B(1511) + JVS(2865) = B(1132)+B(1513) ! JVS(2866) = Jac_FULL(262,170) JVS(2866) = 0.5*B(817) ! JVS(2867) = Jac_FULL(262,175) @@ -8918,7 +8922,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2868) = Jac_FULL(262,176) JVS(2868) = B(1230) ! JVS(2869) = Jac_FULL(262,177) - JVS(2869) = B(1536) + JVS(2869) = B(1538) ! JVS(2870) = Jac_FULL(262,178) JVS(2870) = B(1177) ! JVS(2871) = Jac_FULL(262,179) @@ -8938,9 +8942,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2878) = Jac_FULL(262,190) JVS(2878) = 0.65*B(884)+B(888) ! JVS(2879) = Jac_FULL(262,193) - JVS(2879) = B(1492) + JVS(2879) = B(1494) ! JVS(2880) = Jac_FULL(262,194) - JVS(2880) = B(1513) + JVS(2880) = B(1515) ! JVS(2881) = Jac_FULL(262,197) JVS(2881) = B(141)+1.25*B(194)+B(283) ! JVS(2882) = Jac_FULL(262,200) @@ -8948,13 +8952,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2883) = Jac_FULL(262,201) JVS(2883) = 0.083*B(1082)+0.14*B(1089) ! JVS(2884) = Jac_FULL(262,202) - JVS(2884) = 0.1*B(1542) + JVS(2884) = 0.1*B(1544) ! JVS(2885) = Jac_FULL(262,203) JVS(2885) = 0.5*B(1084)+B(1093) ! JVS(2886) = Jac_FULL(262,204) JVS(2886) = B(123)+1.25*B(162)+B(238) ! JVS(2887) = Jac_FULL(262,205) - JVS(2887) = B(637)+B(1498) + JVS(2887) = B(637)+B(1500) ! JVS(2888) = Jac_FULL(262,210) JVS(2888) = 0 ! JVS(2889) = Jac_FULL(262,211) @@ -8970,7 +8974,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2894) = Jac_FULL(262,217) JVS(2894) = 0.126*B(1004)+0.249*B(1008) ! JVS(2895) = Jac_FULL(262,218) - JVS(2895) = B(1423) + JVS(2895) = B(1425) ! JVS(2896) = Jac_FULL(262,220) JVS(2896) = 0.827*B(753)+0.3*B(759)+0.3*B(761) ! JVS(2897) = Jac_FULL(262,221) @@ -8980,15 +8984,15 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2899) = Jac_FULL(262,225) JVS(2899) = 0 ! JVS(2900) = Jac_FULL(262,226) - JVS(2900) = 0.47*B(1516) + JVS(2900) = 0.47*B(1518) ! JVS(2901) = Jac_FULL(262,227) - JVS(2901) = 0.23*B(1519) + JVS(2901) = 0.23*B(1521) ! JVS(2902) = Jac_FULL(262,229) JVS(2902) = 0.104*B(947)+0.383*B(949) ! JVS(2903) = Jac_FULL(262,230) JVS(2903) = B(641)+B(643)+B(645)+0.06*B(647)+0.06*B(649)+B(651)+B(653) ! JVS(2904) = Jac_FULL(262,232) - JVS(2904) = 0.732*B(218)+0.9*B(1420) + JVS(2904) = 0.732*B(218)+0.9*B(1422) ! JVS(2905) = Jac_FULL(262,233) JVS(2905) = 0.75*B(160) ! JVS(2906) = Jac_FULL(262,234) @@ -9000,9 +9004,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2909) = Jac_FULL(262,237) JVS(2909) = 0.241*B(1042) ! JVS(2910) = Jac_FULL(262,238) - JVS(2910) = 0.022*B(1122)+0.55*B(1546)+0.15*B(1547) + JVS(2910) = 0.022*B(1122)+0.55*B(1548)+0.15*B(1549) ! JVS(2911) = Jac_FULL(262,239) - JVS(2911) = 0.055*B(1540) + JVS(2911) = 0.055*B(1542) ! JVS(2912) = Jac_FULL(262,240) JVS(2912) = 0.527*B(955)+1.86*B(959)+0.563*B(960)+1.577*B(965)+B(967)+B(971)+B(975) ! JVS(2913) = Jac_FULL(262,241) @@ -9012,13 +9016,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2915) = Jac_FULL(262,243) JVS(2915) = 0.063*B(767)+B(773)+0.3*B(774)+2*B(776)+2*B(778)+2*B(787)+B(789)+B(801) ! JVS(2916) = Jac_FULL(262,244) - JVS(2916) = 0.6*B(1032)+B(1426) + JVS(2916) = 0.6*B(1032)+B(1428) ! JVS(2917) = Jac_FULL(262,245) JVS(2917) = B(1105) ! JVS(2918) = Jac_FULL(262,246) - JVS(2918) = B(1429) + JVS(2918) = B(1431) ! JVS(2919) = Jac_FULL(262,247) - JVS(2919) = 0.12*B(1038)+B(1428) + JVS(2919) = 0.12*B(1038)+B(1430) ! JVS(2920) = Jac_FULL(262,248) JVS(2920) = B(133)+0.15*B(168)+0.5*B(188)+B(275) ! JVS(2921) = Jac_FULL(262,249) @@ -9042,12 +9046,12 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2930) = Jac_FULL(262,261) JVS(2930) = 0.05*B(98) ! JVS(2931) = Jac_FULL(262,262) - JVS(2931) = -B(20)-B(66)-B(96)-B(343)-B(427)-B(505)-B(1404)-B(1405) + JVS(2931) = -B(20)-B(66)-B(96)-B(343)-B(427)-B(505)-B(1406)-B(1407) ! JVS(2932) = Jac_FULL(262,263) JVS(2932) = B(33)+B(48)+B(54)+2*B(55)+0.87*B(56)+0.75*B(161)+1.25*B(163)+0.75*B(179)+0.75*B(181)+0.75*B(185)+0.95& &*B(187)+0.5*B(189)+0.75*B(191)+0.75*B(193)+1.25*B(195)+B(245)+B(247)+B(270)+B(272)+B(469)+B(555)+0.75& &*B(676)+1.04*B(700)+B(716)+0.965*B(718)+2*B(784)+B(786)+2*B(788)+B(790)+0.645*B(964)+1.577*B(966)+B(1106)& - &+0.8*B(1155)+B(1178)+B(1229)+B(1231) + &+0.8*B(1155)+B(1178)+B(1229)+B(1231)+B(1254) ! JVS(2933) = Jac_FULL(262,268) JVS(2933) = B(378)+B(380) ! JVS(2934) = Jac_FULL(262,269) @@ -9071,7 +9075,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) &*B(936)+0.065*B(942)+0.104*B(948)+0.527*B(956)+0.126*B(1005)+0.088*B(1007)+0.05*B(1077)+0.083*B(1083)+0.5& &*B(1085) ! JVS(2941) = Jac_FULL(262,283) - JVS(2941) = -B(97)+B(316)+0.385*B(704)+0.287*B(726)+B(972) + JVS(2941) = -B(97)+B(316)+0.385*B(704)+0.287*B(726)+B(972)+B(1255) ! JVS(2942) = Jac_FULL(262,284) JVS(2942) = -B(428) ! JVS(2943) = Jac_FULL(262,285) @@ -9083,19 +9087,19 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2946) = Jac_FULL(263,43) JVS(2946) = B(635) ! JVS(2947) = Jac_FULL(263,63) - JVS(2947) = 0.3*B(1415) + JVS(2947) = 0.3*B(1417) ! JVS(2948) = Jac_FULL(263,66) - JVS(2948) = B(1438) + JVS(2948) = B(1440) ! JVS(2949) = Jac_FULL(263,71) - JVS(2949) = B(310)+B(1491) + JVS(2949) = B(310)+B(1493) ! JVS(2950) = Jac_FULL(263,82) JVS(2950) = B(311)+B(313)+B(315) ! JVS(2951) = Jac_FULL(263,97) - JVS(2951) = B(437)+B(1447) + JVS(2951) = B(437)+B(1449) ! JVS(2952) = Jac_FULL(263,100) - JVS(2952) = B(1448) + JVS(2952) = B(1450) ! JVS(2953) = Jac_FULL(263,133) - JVS(2953) = 0.162*B(1086)+0.488*B(1520) + JVS(2953) = 0.162*B(1086)+0.488*B(1522) ! JVS(2954) = Jac_FULL(263,134) JVS(2954) = B(58)+B(557) ! JVS(2955) = Jac_FULL(263,175) @@ -9111,7 +9115,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2960) = Jac_FULL(263,197) JVS(2960) = -B(194)+B(283) ! JVS(2961) = Jac_FULL(263,198) - JVS(2961) = 0.18*B(1437) + JVS(2961) = 0.18*B(1439) ! JVS(2962) = Jac_FULL(263,203) JVS(2962) = 0.325*B(1084)+0.65*B(1093) ! JVS(2963) = Jac_FULL(263,204) @@ -9125,13 +9129,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2967) = Jac_FULL(263,215) JVS(2967) = B(147)+B(569) ! JVS(2968) = Jac_FULL(263,219) - JVS(2968) = B(1417)+2*B(1418) + JVS(2968) = B(1419)+2*B(1420) ! JVS(2969) = Jac_FULL(263,220) JVS(2969) = 0.407*B(753) ! JVS(2970) = Jac_FULL(263,221) JVS(2970) = -B(699)+0.5*B(701) ! JVS(2971) = Jac_FULL(263,222) - JVS(2971) = 0.15*B(1419) + JVS(2971) = 0.15*B(1421) ! JVS(2972) = Jac_FULL(263,233) JVS(2972) = -B(160)+B(236) ! JVS(2973) = Jac_FULL(263,234) @@ -9147,7 +9151,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2978) = Jac_FULL(263,243) JVS(2978) = -B(787)-B(789) ! JVS(2979) = Jac_FULL(263,244) - JVS(2979) = B(1427) + JVS(2979) = B(1429) ! JVS(2980) = Jac_FULL(263,245) JVS(2980) = -B(1105) ! JVS(2981) = Jac_FULL(263,246) @@ -9176,13 +9180,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(2992) = Jac_FULL(263,258) JVS(2992) = 0 ! JVS(2993) = Jac_FULL(263,261) - JVS(2993) = 0.88*B(1413) + JVS(2993) = 0.88*B(1415) ! JVS(2994) = Jac_FULL(263,262) JVS(2994) = 0 ! JVS(2995) = Jac_FULL(263,263) JVS(2995) = -B(33)-B(48)-B(50)-B(52)-2*B(54)-2*B(55)-B(56)-B(161)-B(163)-B(179)-B(181)-0.91*B(185)-B(187)-B(189)& &-B(191)-B(193)-B(195)-B(245)-B(247)-B(272)-B(308)-B(469)-B(555)-B(676)-B(700)-B(716)-B(718)-B(784)-B(786)& - &-B(788)-B(790)-B(964)-B(966)-B(1106)-B(1155)-B(1178)-B(1229)-B(1231) + &-B(788)-B(790)-B(964)-B(966)-B(1106)-B(1155)-B(1178)-B(1229)-B(1231)-B(1254) ! JVS(2996) = Jac_FULL(263,268) JVS(2996) = B(376)+B(438) ! JVS(2997) = Jac_FULL(263,269) @@ -9200,7 +9204,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3003) = Jac_FULL(263,281) JVS(3003) = -B(53)+0.325*B(1085)+0.5*B(1131) ! JVS(3004) = Jac_FULL(263,283) - JVS(3004) = B(316) + JVS(3004) = B(316)-B(1255) ! JVS(3005) = Jac_FULL(263,284) JVS(3005) = 0 ! JVS(3006) = Jac_FULL(263,285) @@ -9216,27 +9220,27 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3011) = Jac_FULL(264,223) JVS(3011) = B(627) ! JVS(3012) = Jac_FULL(264,264) - JVS(3012) = -B(625)-B(1364)-B(1366)-B(1368)-B(1370)-B(1475) + JVS(3012) = -B(625)-B(1366)-B(1368)-B(1370)-B(1372)-B(1477) ! JVS(3013) = Jac_FULL(264,265) JVS(3013) = 0 ! JVS(3014) = Jac_FULL(264,266) - JVS(3014) = B(1346) + JVS(3014) = B(1348) ! JVS(3015) = Jac_FULL(264,269) JVS(3015) = 0 ! JVS(3016) = Jac_FULL(264,270) JVS(3016) = 0 ! JVS(3017) = Jac_FULL(264,273) - JVS(3017) = B(1347) + JVS(3017) = B(1349) ! JVS(3018) = Jac_FULL(264,274) JVS(3018) = 0 ! JVS(3019) = Jac_FULL(264,275) - JVS(3019) = -B(1365) + JVS(3019) = -B(1367) ! JVS(3020) = Jac_FULL(264,276) - JVS(3020) = -B(1367) + JVS(3020) = -B(1369) ! JVS(3021) = Jac_FULL(264,277) JVS(3021) = 0 ! JVS(3022) = Jac_FULL(264,278) - JVS(3022) = -B(1369) + JVS(3022) = -B(1371) ! JVS(3023) = Jac_FULL(264,279) JVS(3023) = B(622)-B(626) ! JVS(3024) = Jac_FULL(264,280) @@ -9244,41 +9248,41 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3025) = Jac_FULL(264,281) JVS(3025) = B(628) ! JVS(3026) = Jac_FULL(264,282) - JVS(3026) = -B(1371) + JVS(3026) = -B(1373) ! JVS(3027) = Jac_FULL(264,283) JVS(3027) = 0 ! JVS(3028) = Jac_FULL(265,1) - JVS(3028) = 2*B(1483) + JVS(3028) = 2*B(1485) ! JVS(3029) = Jac_FULL(265,2) - JVS(3029) = B(1485) + JVS(3029) = B(1487) ! JVS(3030) = Jac_FULL(265,3) - JVS(3030) = B(1484) + JVS(3030) = B(1486) ! JVS(3031) = Jac_FULL(265,40) - JVS(3031) = B(634)+B(1481) + JVS(3031) = B(634)+B(1483) ! JVS(3032) = Jac_FULL(265,43) - JVS(3032) = B(635)+B(1482) + JVS(3032) = B(635)+B(1484) ! JVS(3033) = Jac_FULL(265,56) - JVS(3033) = B(1478) + JVS(3033) = B(1480) ! JVS(3034) = Jac_FULL(265,65) JVS(3034) = B(623) ! JVS(3035) = Jac_FULL(265,69) - JVS(3035) = B(1488) + JVS(3035) = B(1490) ! JVS(3036) = Jac_FULL(265,90) - JVS(3036) = B(1477) + JVS(3036) = B(1479) ! JVS(3037) = Jac_FULL(265,98) - JVS(3037) = B(1489) + JVS(3037) = B(1491) ! JVS(3038) = Jac_FULL(265,139) - JVS(3038) = B(592)+B(621)+2*B(1474) + JVS(3038) = B(592)+B(621)+2*B(1476) ! JVS(3039) = Jac_FULL(265,199) - JVS(3039) = B(590)+B(1479) + JVS(3039) = B(590)+B(1481) ! JVS(3040) = Jac_FULL(265,223) - JVS(3040) = B(601)+B(611)+B(613)+B(629)+B(631)+B(1476) + JVS(3040) = B(601)+B(611)+B(613)+B(629)+B(631)+B(1478) ! JVS(3041) = Jac_FULL(265,264) - JVS(3041) = B(1475) + JVS(3041) = B(1477) ! JVS(3042) = Jac_FULL(265,265) JVS(3042) = -B(585)-B(588)-B(597)-B(599)-B(617)-B(619) ! JVS(3043) = Jac_FULL(265,266) - JVS(3043) = -B(598)+B(1480) + JVS(3043) = -B(598)+B(1482) ! JVS(3044) = Jac_FULL(265,269) JVS(3044) = -B(618) ! JVS(3045) = Jac_FULL(265,270) @@ -9316,23 +9320,23 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3061) = Jac_FULL(266,265) JVS(3061) = -B(597) ! JVS(3062) = Jac_FULL(266,266) - JVS(3062) = -B(596)-B(598)-B(1346)-B(1356)-B(1358)-B(1360)-B(1362)-B(1480) + JVS(3062) = -B(596)-B(598)-B(1348)-B(1358)-B(1360)-B(1362)-B(1364)-B(1482) ! JVS(3063) = Jac_FULL(266,269) JVS(3063) = 0 ! JVS(3064) = Jac_FULL(266,270) JVS(3064) = B(595) ! JVS(3065) = Jac_FULL(266,273) - JVS(3065) = -B(1347) + JVS(3065) = -B(1349) ! JVS(3066) = Jac_FULL(266,274) JVS(3066) = 0 ! JVS(3067) = Jac_FULL(266,275) - JVS(3067) = -B(1357) + JVS(3067) = -B(1359) ! JVS(3068) = Jac_FULL(266,276) - JVS(3068) = -B(1359) + JVS(3068) = -B(1361) ! JVS(3069) = Jac_FULL(266,277) JVS(3069) = 0 ! JVS(3070) = Jac_FULL(266,278) - JVS(3070) = -B(1361) + JVS(3070) = -B(1363) ! JVS(3071) = Jac_FULL(266,279) JVS(3071) = 0 ! JVS(3072) = Jac_FULL(266,280) @@ -9340,7 +9344,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3073) = Jac_FULL(266,281) JVS(3073) = 0 ! JVS(3074) = Jac_FULL(266,282) - JVS(3074) = -B(1363) + JVS(3074) = -B(1365) ! JVS(3075) = Jac_FULL(266,283) JVS(3075) = B(593) ! JVS(3076) = Jac_FULL(267,72) @@ -9354,7 +9358,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3080) = Jac_FULL(267,231) JVS(3080) = B(483) ! JVS(3081) = Jac_FULL(267,259) - JVS(3081) = B(485)+B(1276) + JVS(3081) = B(485)+B(1278) ! JVS(3082) = Jac_FULL(267,263) JVS(3082) = 0 ! JVS(3083) = Jac_FULL(267,264) @@ -9364,7 +9368,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3085) = Jac_FULL(267,266) JVS(3085) = 0 ! JVS(3086) = Jac_FULL(267,267) - JVS(3086) = -B(481)-B(1302)-B(1304)-B(1306)-B(1308)-B(1310)-B(1458) + JVS(3086) = -B(481)-B(1304)-B(1306)-B(1308)-B(1310)-B(1312)-B(1460) ! JVS(3087) = Jac_FULL(267,268) JVS(3087) = 0 ! JVS(3088) = Jac_FULL(267,269) @@ -9372,11 +9376,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3089) = Jac_FULL(267,270) JVS(3089) = 0 ! JVS(3090) = Jac_FULL(267,271) - JVS(3090) = -B(1303) + JVS(3090) = -B(1305) ! JVS(3091) = Jac_FULL(267,272) - JVS(3091) = -B(1305) + JVS(3091) = -B(1307) ! JVS(3092) = Jac_FULL(267,273) - JVS(3092) = B(1277) + JVS(3092) = B(1279) ! JVS(3093) = Jac_FULL(267,274) JVS(3093) = 0 ! JVS(3094) = Jac_FULL(267,275) @@ -9386,7 +9390,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3096) = Jac_FULL(267,277) JVS(3096) = B(519) ! JVS(3097) = Jac_FULL(267,278) - JVS(3097) = -B(1307) + JVS(3097) = -B(1309) ! JVS(3098) = Jac_FULL(267,279) JVS(3098) = B(468)+B(476)+B(478)-B(482)+B(484)+B(486) ! JVS(3099) = Jac_FULL(267,280) @@ -9394,7 +9398,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3100) = Jac_FULL(267,281) JVS(3100) = B(520) ! JVS(3101) = Jac_FULL(267,282) - JVS(3101) = -B(1309) + JVS(3101) = -B(1311) ! JVS(3102) = Jac_FULL(267,283) JVS(3102) = 0 ! JVS(3103) = Jac_FULL(267,284) @@ -9402,7 +9406,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3104) = Jac_FULL(267,285) JVS(3104) = 0 ! JVS(3105) = Jac_FULL(267,286) - JVS(3105) = -B(1311) + JVS(3105) = -B(1313) ! JVS(3106) = Jac_FULL(267,287) JVS(3106) = 0 ! JVS(3107) = Jac_FULL(268,42) @@ -9424,7 +9428,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3115) = Jac_FULL(268,55) JVS(3115) = -B(449) ! JVS(3116) = Jac_FULL(268,57) - JVS(3116) = -B(371)-B(373)+B(1493) + JVS(3116) = -B(371)-B(373)+B(1495) ! JVS(3117) = Jac_FULL(268,61) JVS(3117) = 0 ! JVS(3118) = Jac_FULL(268,70) @@ -9465,7 +9469,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) JVS(3135) = -B(363)-B(365)-B(367)-B(369)-B(372)-B(374)-B(376)-B(378)-B(380)-B(391)-B(393)-B(429)-B(431)-B(434)-B(436)& &-B(438)-B(440)-B(442)-B(444)-B(446)-B(448)-B(450)-B(452)-B(454)-B(456)-B(458)-B(460)-B(462)-B(464)-B(466) ! JVS(3136) = Jac_FULL(268,269) - JVS(3136) = -B(392)-B(394)+B(1399) + JVS(3136) = -B(392)-B(394)+B(1401) ! JVS(3137) = Jac_FULL(268,270) JVS(3137) = 0 ! JVS(3138) = Jac_FULL(268,271) @@ -9584,22 +9588,22 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) JVS(3194) = -B(391)-B(393) ! JVS(3195) = Jac_FULL(269,269) JVS(3195) = -B(2)-B(9)-B(17)-B(25)-B(27)-B(29)-B(31)-B(34)-B(217)-B(319)-B(383)-B(392)-B(394)-B(412)-B(507)-B(618)& - &-B(652)-B(682)-B(684)-B(692)-B(736)-B(754)-B(1033)-B(1039)-B(1143)-B(1192)-B(1221)-B(1235)-B(1240)-B(1326)& - &-B(1328)-B(1330)-B(1398)-B(1399) + &-B(652)-B(682)-B(684)-B(692)-B(736)-B(754)-B(1033)-B(1039)-B(1143)-B(1192)-B(1221)-B(1235)-B(1240)-B(1328)& + &-B(1330)-B(1332)-B(1400)-B(1401) ! JVS(3196) = Jac_FULL(269,270) JVS(3196) = -B(32) ! JVS(3197) = Jac_FULL(269,271) JVS(3197) = 0 ! JVS(3198) = Jac_FULL(269,272) - JVS(3198) = -B(1327) + JVS(3198) = -B(1329) ! JVS(3199) = Jac_FULL(269,273) JVS(3199) = 0 ! JVS(3200) = Jac_FULL(269,274) JVS(3200) = 0 ! JVS(3201) = Jac_FULL(269,275) - JVS(3201) = -B(1329) + JVS(3201) = -B(1331) ! JVS(3202) = Jac_FULL(269,276) - JVS(3202) = -B(1331) + JVS(3202) = -B(1333) ! JVS(3203) = Jac_FULL(269,277) JVS(3203) = 0 ! JVS(3204) = Jac_FULL(269,278) @@ -9625,47 +9629,47 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3214) = Jac_FULL(270,49) JVS(3214) = B(153) ! JVS(3215) = Jac_FULL(270,50) - JVS(3215) = B(1444) + JVS(3215) = B(1446) ! JVS(3216) = Jac_FULL(270,58) - JVS(3216) = B(1505) + JVS(3216) = B(1507) ! JVS(3217) = Jac_FULL(270,59) - JVS(3217) = B(1503) + JVS(3217) = B(1505) ! JVS(3218) = Jac_FULL(270,61) JVS(3218) = -B(423) ! JVS(3219) = Jac_FULL(270,63) - JVS(3219) = B(104)+0.7*B(1415) + JVS(3219) = B(104)+0.7*B(1417) ! JVS(3220) = Jac_FULL(270,64) JVS(3220) = B(1159) ! JVS(3221) = Jac_FULL(270,71) - JVS(3221) = B(310)+B(1491) + JVS(3221) = B(310)+B(1493) ! JVS(3222) = Jac_FULL(270,86) - JVS(3222) = B(749)+B(1508) + JVS(3222) = B(749)+B(1510) ! JVS(3223) = Jac_FULL(270,87) - JVS(3223) = B(745)+B(1506) + JVS(3223) = B(745)+B(1508) ! JVS(3224) = Jac_FULL(270,88) - JVS(3224) = B(747)+B(1507) + JVS(3224) = B(747)+B(1509) ! JVS(3225) = Jac_FULL(270,89) - JVS(3225) = B(751)+B(1509) + JVS(3225) = B(751)+B(1511) ! JVS(3226) = Jac_FULL(270,90) JVS(3226) = B(609) ! JVS(3227) = Jac_FULL(270,95) JVS(3227) = B(1207)+B(1208) ! JVS(3228) = Jac_FULL(270,101) - JVS(3228) = B(78)+B(79)+B(1409) + JVS(3228) = B(78)+B(79)+B(1411) ! JVS(3229) = Jac_FULL(270,112) - JVS(3229) = B(1430) + JVS(3229) = B(1432) ! JVS(3230) = Jac_FULL(270,117) JVS(3230) = B(895) ! JVS(3231) = Jac_FULL(270,120) JVS(3231) = B(891) ! JVS(3232) = Jac_FULL(270,131) - JVS(3232) = B(1501) + JVS(3232) = B(1503) ! JVS(3233) = Jac_FULL(270,135) JVS(3233) = 0 ! JVS(3234) = Jac_FULL(270,136) - JVS(3234) = B(901)+B(1533) + JVS(3234) = B(901)+B(1535) ! JVS(3235) = Jac_FULL(270,137) - JVS(3235) = B(905)+B(1534) + JVS(3235) = B(905)+B(1536) ! JVS(3236) = Jac_FULL(270,141) JVS(3236) = B(1052)-B(1056) ! JVS(3237) = Jac_FULL(270,142) @@ -9677,7 +9681,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3240) = Jac_FULL(270,146) JVS(3240) = B(1020) ! JVS(3241) = Jac_FULL(270,147) - JVS(3241) = B(994)+B(1538) + JVS(3241) = B(994)+B(1540) ! JVS(3242) = Jac_FULL(270,148) JVS(3242) = B(929) ! JVS(3243) = Jac_FULL(270,149) @@ -9691,17 +9695,17 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3247) = Jac_FULL(270,164) JVS(3247) = B(937) ! JVS(3248) = Jac_FULL(270,169) - JVS(3248) = B(89)+B(1412) + JVS(3248) = B(89)+B(1414) ! JVS(3249) = Jac_FULL(270,172) - JVS(3249) = B(1443) + JVS(3249) = B(1445) ! JVS(3250) = Jac_FULL(270,174) - JVS(3250) = B(1499) + JVS(3250) = B(1501) ! JVS(3251) = Jac_FULL(270,175) JVS(3251) = 0.995*B(1150)+B(1152) ! JVS(3252) = Jac_FULL(270,176) JVS(3252) = B(1201)-B(1203) ! JVS(3253) = Jac_FULL(270,177) - JVS(3253) = B(1536) + JVS(3253) = B(1538) ! JVS(3254) = Jac_FULL(270,178) JVS(3254) = B(1173)+B(1175) ! JVS(3255) = Jac_FULL(270,179) @@ -9725,17 +9729,17 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3264) = Jac_FULL(270,191) JVS(3264) = B(657)-B(659) ! JVS(3265) = Jac_FULL(270,194) - JVS(3265) = B(639)+B(1513) + JVS(3265) = B(639)+B(1515) ! JVS(3266) = Jac_FULL(270,195) - JVS(3266) = B(1522) + JVS(3266) = B(1524) ! JVS(3267) = Jac_FULL(270,196) - JVS(3267) = B(1500) + JVS(3267) = B(1502) ! JVS(3268) = Jac_FULL(270,197) JVS(3268) = 2*B(141)+B(194)+B(283)+B(293) ! JVS(3269) = Jac_FULL(270,198) - JVS(3269) = B(1437) + JVS(3269) = B(1439) ! JVS(3270) = Jac_FULL(270,199) - JVS(3270) = B(590)+2*B(591)+B(1479) + JVS(3270) = B(590)+2*B(591)+B(1481) ! JVS(3271) = Jac_FULL(270,200) JVS(3271) = B(1078) ! JVS(3272) = Jac_FULL(270,201) @@ -9745,13 +9749,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3274) = Jac_FULL(270,204) JVS(3274) = B(123) ! JVS(3275) = Jac_FULL(270,205) - JVS(3275) = B(637)+B(1124)+B(1498) + JVS(3275) = B(637)+B(1124)+B(1500) ! JVS(3276) = Jac_FULL(270,206) JVS(3276) = 0.5*B(1224)+B(1226) ! JVS(3277) = Jac_FULL(270,209) - JVS(3277) = B(1120)+B(1548)+B(1549) + JVS(3277) = B(1120)+B(1550)+B(1551) ! JVS(3278) = Jac_FULL(270,210) - JVS(3278) = B(911)+B(1535) + JVS(3278) = B(911)+B(1537) ! JVS(3279) = Jac_FULL(270,211) JVS(3279) = B(707)+B(723)+0.5*B(728) ! JVS(3280) = Jac_FULL(270,212) @@ -9759,7 +9763,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3281) = Jac_FULL(270,213) JVS(3281) = B(109) ! JVS(3282) = Jac_FULL(270,216) - JVS(3282) = B(907)+B(1532) + JVS(3282) = B(907)+B(1534) ! JVS(3283) = Jac_FULL(270,217) JVS(3283) = 0.058*B(1004)+1.065*B(1008) ! JVS(3284) = Jac_FULL(270,220) @@ -9777,7 +9781,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3290) = Jac_FULL(270,230) JVS(3290) = B(643)-B(645) ! JVS(3291) = Jac_FULL(270,231) - JVS(3291) = B(483)+B(1455) + JVS(3291) = B(483)+B(1457) ! JVS(3292) = Jac_FULL(270,233) JVS(3292) = B(119) ! JVS(3293) = Jac_FULL(270,234) @@ -9785,13 +9789,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3294) = Jac_FULL(270,235) JVS(3294) = B(113) ! JVS(3295) = Jac_FULL(270,236) - JVS(3295) = B(1016)+B(1539) + JVS(3295) = B(1016)+B(1541) ! JVS(3296) = Jac_FULL(270,237) - JVS(3296) = 0.31*B(1042)+0.7*B(1521) + JVS(3296) = 0.31*B(1042)+0.7*B(1523) ! JVS(3297) = Jac_FULL(270,238) - JVS(3297) = 0.022*B(1122)+0.3*B(1546)+B(1547) + JVS(3297) = 0.022*B(1122)+0.3*B(1548)+B(1549) ! JVS(3298) = Jac_FULL(270,239) - JVS(3298) = 0.565*B(1024)+1.555*B(1540) + JVS(3298) = 0.565*B(1024)+1.555*B(1542) ! JVS(3299) = Jac_FULL(270,240) JVS(3299) = 0.527*B(955)+1.86*B(959)+0.563*B(960)+0.611*B(965)+B(967)+2*B(971)+2*B(975) ! JVS(3300) = Jac_FULL(270,241) @@ -9827,15 +9831,15 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3315) = Jac_FULL(270,258) JVS(3315) = 0 ! JVS(3316) = Jac_FULL(270,259) - JVS(3316) = B(1457) + JVS(3316) = B(1459) ! JVS(3317) = Jac_FULL(270,260) - JVS(3317) = B(1406) + JVS(3317) = B(1408) ! JVS(3318) = Jac_FULL(270,261) JVS(3318) = 0 ! JVS(3319) = Jac_FULL(270,262) JVS(3319) = 0 ! JVS(3320) = Jac_FULL(270,263) - JVS(3320) = B(48)+B(187)+B(195)-B(308)+0.5*B(718)+0.611*B(966)+0.7*B(1106) + JVS(3320) = B(48)+B(187)+B(195)-B(308)+0.5*B(718)+0.611*B(966)+0.7*B(1106)+B(1254) ! JVS(3321) = Jac_FULL(270,264) JVS(3321) = 0 ! JVS(3322) = Jac_FULL(270,265) @@ -9848,7 +9852,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) JVS(3325) = B(25)-B(31) ! JVS(3326) = Jac_FULL(270,270) JVS(3326) = -B(32)-B(68)-B(76)-B(87)-B(103)-B(152)-B(309)-B(353)-B(355)-B(399)-B(405)-B(424)-B(523)-B(589)-B(595)& - &-B(646)-B(660)-B(1057)-B(1063)-B(1096)-B(1204)-B(1211)-B(1223)-B(1255)-B(1401) + &-B(646)-B(660)-B(1057)-B(1063)-B(1096)-B(1204)-B(1211)-B(1223)-B(1257)-B(1403) ! JVS(3327) = Jac_FULL(270,271) JVS(3327) = 0 ! JVS(3328) = Jac_FULL(270,272) @@ -9880,7 +9884,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) JVS(3338) = 0 ! JVS(3339) = Jac_FULL(270,283) JVS(3339) = B(82)+2*B(84)+B(86)-B(88)+2*B(307)+B(341)+B(401)+B(680)+B(704)+B(724)+2*B(726)+2*B(972)+B(974)+2*B(1104)& - &+B(1125)+B(1153)+B(1176)+B(1215)+B(1227)+B(1410) + &+B(1125)+B(1153)+B(1176)+B(1215)+B(1227)+B(1255)+B(1412) ! JVS(3340) = Jac_FULL(270,284) JVS(3340) = -B(400)+B(402)+B(404)-B(406) ! JVS(3341) = Jac_FULL(270,285) @@ -9910,9 +9914,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3353) = Jac_FULL(271,157) JVS(3353) = B(559) ! JVS(3354) = Jac_FULL(271,169) - JVS(3354) = -B(1261) + JVS(3354) = -B(1263) ! JVS(3355) = Jac_FULL(271,172) - JVS(3355) = -B(1274) + JVS(3355) = -B(1276) ! JVS(3356) = Jac_FULL(271,186) JVS(3356) = B(503) ! JVS(3357) = Jac_FULL(271,207) @@ -9934,7 +9938,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3365) = Jac_FULL(271,230) JVS(3365) = 0 ! JVS(3366) = Jac_FULL(271,231) - JVS(3366) = -B(1294) + JVS(3366) = -B(1296) ! JVS(3367) = Jac_FULL(271,232) JVS(3367) = 0 ! JVS(3368) = Jac_FULL(271,233) @@ -9984,13 +9988,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3390) = Jac_FULL(271,255) JVS(3390) = 0 ! JVS(3391) = Jac_FULL(271,256) - JVS(3391) = -B(1314) + JVS(3391) = -B(1316) ! JVS(3392) = Jac_FULL(271,257) JVS(3392) = 0 ! JVS(3393) = Jac_FULL(271,258) JVS(3393) = 0 ! JVS(3394) = Jac_FULL(271,259) - JVS(3394) = -B(1278) + JVS(3394) = -B(1280) ! JVS(3395) = Jac_FULL(271,260) JVS(3395) = 0 ! JVS(3396) = Jac_FULL(271,261) @@ -10002,7 +10006,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3399) = Jac_FULL(271,266) JVS(3399) = 0 ! JVS(3400) = Jac_FULL(271,267) - JVS(3400) = -B(1302)+B(1310) + JVS(3400) = -B(1304)+B(1312) ! JVS(3401) = Jac_FULL(271,268) JVS(3401) = -0.91*B(429) ! JVS(3402) = Jac_FULL(271,269) @@ -10010,7 +10014,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3403) = Jac_FULL(271,270) JVS(3403) = 0 ! JVS(3404) = Jac_FULL(271,271) - JVS(3404) = -B(5)-B(12)-0.91*B(430)-B(479)-B(1262)-B(1275)-B(1279)-B(1295)-B(1303)-B(1315) + JVS(3404) = -B(5)-B(12)-0.91*B(430)-B(479)-B(1264)-B(1277)-B(1281)-B(1297)-B(1305)-B(1317) ! JVS(3405) = Jac_FULL(271,272) JVS(3405) = 0 ! JVS(3406) = Jac_FULL(271,273) @@ -10041,7 +10045,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) JVS(3418) = B(504)+B(506)+B(509)+B(512)+B(514)+2*B(548)+B(550)+B(552)+B(554)+B(558)+B(560)+B(566)+B(568)+B(570)+B(572)& &+B(574)+B(576)+B(578)+B(580)+B(582) ! JVS(3419) = Jac_FULL(271,286) - JVS(3419) = B(1311) + JVS(3419) = B(1313) ! JVS(3420) = Jac_FULL(271,287) JVS(3420) = 0 ! JVS(3421) = Jac_FULL(272,121) @@ -10051,7 +10055,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3423) = Jac_FULL(272,219) JVS(3423) = B(347) ! JVS(3424) = Jac_FULL(272,231) - JVS(3424) = -B(1300) + JVS(3424) = -B(1302) ! JVS(3425) = Jac_FULL(272,234) JVS(3425) = 0 ! JVS(3426) = Jac_FULL(272,249) @@ -10067,11 +10071,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3431) = Jac_FULL(272,255) JVS(3431) = 0 ! JVS(3432) = Jac_FULL(272,256) - JVS(3432) = -B(1312)+B(1324) + JVS(3432) = -B(1314)+B(1326) ! JVS(3433) = Jac_FULL(272,257) JVS(3433) = 0 ! JVS(3434) = Jac_FULL(272,259) - JVS(3434) = -B(1280) + JVS(3434) = -B(1282) ! JVS(3435) = Jac_FULL(272,261) JVS(3435) = B(345) ! JVS(3436) = Jac_FULL(272,262) @@ -10079,17 +10083,17 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3437) = Jac_FULL(272,263) JVS(3437) = 0 ! JVS(3438) = Jac_FULL(272,267) - JVS(3438) = -B(1304) + JVS(3438) = -B(1306) ! JVS(3439) = Jac_FULL(272,268) JVS(3439) = -0.8*B(431) ! JVS(3440) = Jac_FULL(272,269) - JVS(3440) = -B(1326) + JVS(3440) = -B(1328) ! JVS(3441) = Jac_FULL(272,270) JVS(3441) = 0 ! JVS(3442) = Jac_FULL(272,271) JVS(3442) = 0 ! JVS(3443) = Jac_FULL(272,272) - JVS(3443) = -B(325)-B(337)-0.8*B(432)-B(1281)-B(1301)-B(1305)-B(1313)-B(1327)-B(1332)-B(1333) + JVS(3443) = -B(325)-B(337)-0.8*B(432)-B(1283)-B(1303)-B(1307)-B(1315)-B(1329)-B(1334)-B(1335) ! JVS(3444) = Jac_FULL(272,273) JVS(3444) = 0 ! JVS(3445) = Jac_FULL(272,274) @@ -10117,7 +10121,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3456) = Jac_FULL(272,285) JVS(3456) = 0 ! JVS(3457) = Jac_FULL(272,286) - JVS(3457) = B(1325) + JVS(3457) = B(1327) ! JVS(3458) = Jac_FULL(272,287) JVS(3458) = B(324)+B(344)+B(346)+B(348)+B(350)+B(352)+B(584) ! JVS(3459) = Jac_FULL(273,39) @@ -10145,9 +10149,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3470) = Jac_FULL(273,157) JVS(3470) = B(107) ! JVS(3471) = Jac_FULL(273,169) - JVS(3471) = -B(1259) + JVS(3471) = -B(1261) ! JVS(3472) = Jac_FULL(273,172) - JVS(3472) = -B(1272) + JVS(3472) = -B(1274) ! JVS(3473) = Jac_FULL(273,173) JVS(3473) = B(415) ! JVS(3474) = Jac_FULL(273,186) @@ -10233,13 +10237,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3514) = Jac_FULL(273,255) JVS(3514) = B(149) ! JVS(3515) = Jac_FULL(273,256) - JVS(3515) = B(1312)+B(1314)+B(1316)+B(1318) + JVS(3515) = B(1314)+B(1316)+B(1318)+B(1320) ! JVS(3516) = Jac_FULL(273,257) JVS(3516) = 0 ! JVS(3517) = Jac_FULL(273,258) JVS(3517) = 0 ! JVS(3518) = Jac_FULL(273,259) - JVS(3518) = -B(1276) + JVS(3518) = -B(1278) ! JVS(3519) = Jac_FULL(273,260) JVS(3519) = B(70) ! JVS(3520) = Jac_FULL(273,261) @@ -10253,9 +10257,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3524) = Jac_FULL(273,265) JVS(3524) = 0 ! JVS(3525) = Jac_FULL(273,266) - JVS(3525) = -B(1346) + JVS(3525) = -B(1348) ! JVS(3526) = Jac_FULL(273,267) - JVS(3526) = B(481)+B(1302)+B(1304)+B(1306)+B(1308) + JVS(3526) = B(481)+B(1304)+B(1306)+B(1308)+B(1310) ! JVS(3527) = Jac_FULL(273,268) JVS(3527) = -B(363) ! JVS(3528) = Jac_FULL(273,269) @@ -10263,11 +10267,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3529) = Jac_FULL(273,270) JVS(3529) = 0 ! JVS(3530) = Jac_FULL(273,271) - JVS(3530) = B(479)+B(1303)+B(1315) + JVS(3530) = B(479)+B(1305)+B(1317) ! JVS(3531) = Jac_FULL(273,272) - JVS(3531) = B(325)+B(1305)+B(1313) + JVS(3531) = B(325)+B(1307)+B(1315) ! JVS(3532) = Jac_FULL(273,273) - JVS(3532) = -B(364)-B(648)-2*B(650)-B(664)-B(666)-B(1260)-B(1273)-B(1277)-B(1347) + JVS(3532) = -B(364)-B(648)-2*B(650)-B(664)-B(666)-B(1262)-B(1275)-B(1279)-B(1349) ! JVS(3533) = Jac_FULL(273,274) JVS(3533) = 0 ! JVS(3534) = Jac_FULL(273,275) @@ -10277,7 +10281,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3536) = Jac_FULL(273,277) JVS(3536) = 0 ! JVS(3537) = Jac_FULL(273,278) - JVS(3537) = B(1307)+B(1317) + JVS(3537) = B(1309)+B(1319) ! JVS(3538) = Jac_FULL(273,279) JVS(3538) = B(35)+B(37)+B(40)+B(47)+B(59)+B(61)+B(63)+B(65)+B(67)+B(71)+B(75)+B(80)+B(91)+B(99)+B(108)+B(146)+B(148)& &+B(150)+B(159)+B(177)+B(326)+B(362)+B(385)+B(480)+B(482)+B(488)+B(494)+B(496)+B(498)+B(500)+B(502)+B(624)& @@ -10285,9 +10289,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3539) = Jac_FULL(273,280) JVS(3539) = 0 ! JVS(3540) = Jac_FULL(273,281) - JVS(3540) = B(38)+B(416)+B(1254) + JVS(3540) = B(38)+B(416)+B(1256) ! JVS(3541) = Jac_FULL(273,282) - JVS(3541) = B(1309)+B(1319) + JVS(3541) = B(1311)+B(1321) ! JVS(3542) = Jac_FULL(273,283) JVS(3542) = 0 ! JVS(3543) = Jac_FULL(273,284) @@ -10311,7 +10315,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3552) = Jac_FULL(274,97) JVS(3552) = 0.44*B(437) ! JVS(3553) = Jac_FULL(274,172) - JVS(3553) = B(1443) + JVS(3553) = B(1445) ! JVS(3554) = Jac_FULL(274,223) JVS(3554) = -B(601)-B(603) ! JVS(3555) = Jac_FULL(274,256) @@ -10335,7 +10339,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3564) = Jac_FULL(274,273) JVS(3564) = 0 ! JVS(3565) = Jac_FULL(274,274) - JVS(3565) = -B(321)-2*B(327)-2*B(328)-B(329)-B(339)-B(356)-B(425)-B(537)-B(539)-B(541)-B(600)-B(602)-B(604)-B(1440) + JVS(3565) = -B(321)-2*B(327)-2*B(328)-B(329)-B(339)-B(356)-B(425)-B(537)-B(539)-B(541)-B(600)-B(602)-B(604)-B(1442) ! JVS(3566) = Jac_FULL(274,275) JVS(3566) = 0 ! JVS(3567) = Jac_FULL(274,276) @@ -10363,33 +10367,33 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3578) = Jac_FULL(274,287) JVS(3578) = B(320)+B(342) ! JVS(3579) = Jac_FULL(275,199) - JVS(3579) = -B(1348) + JVS(3579) = -B(1350) ! JVS(3580) = Jac_FULL(275,231) - JVS(3580) = -B(1296) + JVS(3580) = -B(1298) ! JVS(3581) = Jac_FULL(275,256) - JVS(3581) = -B(1320) + JVS(3581) = -B(1322) ! JVS(3582) = Jac_FULL(275,259) - JVS(3582) = -B(1282) + JVS(3582) = -B(1284) ! JVS(3583) = Jac_FULL(275,264) - JVS(3583) = -B(1364) + JVS(3583) = -B(1366) ! JVS(3584) = Jac_FULL(275,265) JVS(3584) = 0 ! JVS(3585) = Jac_FULL(275,266) - JVS(3585) = -B(1356) + JVS(3585) = -B(1358) ! JVS(3586) = Jac_FULL(275,269) - JVS(3586) = -B(1328) + JVS(3586) = -B(1330) ! JVS(3587) = Jac_FULL(275,270) JVS(3587) = 0 ! JVS(3588) = Jac_FULL(275,271) JVS(3588) = 0 ! JVS(3589) = Jac_FULL(275,272) - JVS(3589) = B(1332) + JVS(3589) = B(1334) ! JVS(3590) = Jac_FULL(275,273) JVS(3590) = 0 ! JVS(3591) = Jac_FULL(275,274) JVS(3591) = 0 ! JVS(3592) = Jac_FULL(275,275) - JVS(3592) = -B(1283)-B(1297)-B(1321)-B(1329)-B(1349)-B(1357)-B(1365) + JVS(3592) = -B(1285)-B(1299)-B(1323)-B(1331)-B(1351)-B(1359)-B(1367) ! JVS(3593) = Jac_FULL(275,276) JVS(3593) = 0 ! JVS(3594) = Jac_FULL(275,277) @@ -10415,27 +10419,27 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3604) = Jac_FULL(275,287) JVS(3604) = 0 ! JVS(3605) = Jac_FULL(276,199) - JVS(3605) = -B(1350) + JVS(3605) = -B(1352) ! JVS(3606) = Jac_FULL(276,231) - JVS(3606) = -B(1298) + JVS(3606) = -B(1300) ! JVS(3607) = Jac_FULL(276,256) - JVS(3607) = -B(1322) + JVS(3607) = -B(1324) ! JVS(3608) = Jac_FULL(276,259) - JVS(3608) = -B(1284) + JVS(3608) = -B(1286) ! JVS(3609) = Jac_FULL(276,264) - JVS(3609) = -B(1366) + JVS(3609) = -B(1368) ! JVS(3610) = Jac_FULL(276,265) JVS(3610) = 0 ! JVS(3611) = Jac_FULL(276,266) - JVS(3611) = -B(1358) + JVS(3611) = -B(1360) ! JVS(3612) = Jac_FULL(276,269) - JVS(3612) = -B(1330) + JVS(3612) = -B(1332) ! JVS(3613) = Jac_FULL(276,270) JVS(3613) = 0 ! JVS(3614) = Jac_FULL(276,271) JVS(3614) = 0 ! JVS(3615) = Jac_FULL(276,272) - JVS(3615) = B(1333) + JVS(3615) = B(1335) ! JVS(3616) = Jac_FULL(276,273) JVS(3616) = 0 ! JVS(3617) = Jac_FULL(276,274) @@ -10443,7 +10447,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3618) = Jac_FULL(276,275) JVS(3618) = 0 ! JVS(3619) = Jac_FULL(276,276) - JVS(3619) = -B(1285)-B(1299)-B(1323)-B(1331)-B(1351)-B(1359)-B(1367) + JVS(3619) = -B(1287)-B(1301)-B(1325)-B(1333)-B(1353)-B(1361)-B(1369) ! JVS(3620) = Jac_FULL(276,277) JVS(3620) = 0 ! JVS(3621) = Jac_FULL(276,278) @@ -10493,7 +10497,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3643) = Jac_FULL(277,103) JVS(3643) = 2*B(535) ! JVS(3644) = Jac_FULL(277,107) - JVS(3644) = B(1453) + JVS(3644) = B(1455) ! JVS(3645) = Jac_FULL(277,192) JVS(3645) = 0.75*B(433) ! JVS(3646) = Jac_FULL(277,213) @@ -10517,7 +10521,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3655) = Jac_FULL(277,257) JVS(3655) = 0 ! JVS(3656) = Jac_FULL(277,259) - JVS(3656) = B(543)+B(1457) + JVS(3656) = B(543)+B(1459) ! JVS(3657) = Jac_FULL(277,261) JVS(3657) = 0 ! JVS(3658) = Jac_FULL(277,262) @@ -10553,7 +10557,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) JVS(3672) = 0 ! JVS(3673) = Jac_FULL(277,277) JVS(3673) = -B(470)-B(471)-B(473)-B(517)-B(519)-B(521)-B(524)-2*B(525)-2*B(526)-2*B(527)-2*B(531)-B(538)-B(540)-B(542)& - &-B(612)-B(614)-B(616)-B(1452) + &-B(612)-B(614)-B(616)-B(1454) ! JVS(3674) = Jac_FULL(277,278) JVS(3674) = 0 ! JVS(3675) = Jac_FULL(277,279) @@ -10577,15 +10581,15 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3684) = Jac_FULL(278,144) JVS(3684) = B(4) ! JVS(3685) = Jac_FULL(278,169) - JVS(3685) = -B(1264) + JVS(3685) = -B(1266) ! JVS(3686) = Jac_FULL(278,199) - JVS(3686) = -B(1352) + JVS(3686) = -B(1354) ! JVS(3687) = Jac_FULL(278,231) - JVS(3687) = -B(1290) + JVS(3687) = -B(1292) ! JVS(3688) = Jac_FULL(278,256) - JVS(3688) = -B(1316) + JVS(3688) = -B(1318) ! JVS(3689) = Jac_FULL(278,259) - JVS(3689) = -B(1286) + JVS(3689) = -B(1288) ! JVS(3690) = Jac_FULL(278,260) JVS(3690) = 0 ! JVS(3691) = Jac_FULL(278,261) @@ -10595,13 +10599,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3693) = Jac_FULL(278,263) JVS(3693) = 0 ! JVS(3694) = Jac_FULL(278,264) - JVS(3694) = -B(1368) + JVS(3694) = -B(1370) ! JVS(3695) = Jac_FULL(278,265) JVS(3695) = 0 ! JVS(3696) = Jac_FULL(278,266) - JVS(3696) = -B(1360) + JVS(3696) = -B(1362) ! JVS(3697) = Jac_FULL(278,267) - JVS(3697) = -B(1306) + JVS(3697) = -B(1308) ! JVS(3698) = Jac_FULL(278,268) JVS(3698) = 0 ! JVS(3699) = Jac_FULL(278,269) @@ -10623,9 +10627,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3707) = Jac_FULL(278,277) JVS(3707) = 0 ! JVS(3708) = Jac_FULL(278,278) - JVS(3708) = -B(1265)-B(1268)-B(1287)-B(1291)-B(1307)-B(1317)-B(1353)-B(1361)-B(1369) + JVS(3708) = -B(1267)-B(1270)-B(1289)-B(1293)-B(1309)-B(1319)-B(1355)-B(1363)-B(1371) ! JVS(3709) = Jac_FULL(278,279) - JVS(3709) = -B(1269) + JVS(3709) = -B(1271) ! JVS(3710) = Jac_FULL(278,280) JVS(3710) = 0 ! JVS(3711) = Jac_FULL(278,281) @@ -10657,9 +10661,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3724) = Jac_FULL(279,65) JVS(3724) = -B(623) ! JVS(3725) = Jac_FULL(279,66) - JVS(3725) = -B(264)+B(1438) + JVS(3725) = -B(264)+B(1440) ! JVS(3726) = Jac_FULL(279,67) - JVS(3726) = -B(1205)+B(1552) + JVS(3726) = -B(1205)+B(1554) ! JVS(3727) = Jac_FULL(279,68) JVS(3727) = -B(491) ! JVS(3728) = Jac_FULL(279,70) @@ -10687,7 +10691,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3739) = Jac_FULL(279,82) JVS(3739) = -B(311)-B(313) ! JVS(3740) = Jac_FULL(279,83) - JVS(3740) = -0.5*B(1128)+2*B(1510) + JVS(3740) = -0.5*B(1128)+2*B(1512) ! JVS(3741) = Jac_FULL(279,84) JVS(3741) = -0.3*B(1110) ! JVS(3742) = Jac_FULL(279,85) @@ -10701,13 +10705,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3746) = Jac_FULL(279,89) JVS(3746) = -B(751) ! JVS(3747) = Jac_FULL(279,91) - JVS(3747) = -0.209*B(256)+B(1434) + JVS(3747) = -0.209*B(256)+B(1436) ! JVS(3748) = Jac_FULL(279,92) - JVS(3748) = -0.36*B(252)+B(1432) + JVS(3748) = -0.36*B(252)+B(1434) ! JVS(3749) = Jac_FULL(279,93) - JVS(3749) = -0.209*B(254)+B(1433) + JVS(3749) = -0.209*B(254)+B(1435) ! JVS(3750) = Jac_FULL(279,94) - JVS(3750) = -B(258)+B(1436) + JVS(3750) = -B(258)+B(1438) ! JVS(3751) = Jac_FULL(279,95) JVS(3751) = -B(1208) ! JVS(3752) = Jac_FULL(279,97) @@ -10717,7 +10721,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3754) = Jac_FULL(279,100) JVS(3754) = -B(487) ! JVS(3755) = Jac_FULL(279,101) - JVS(3755) = -B(79)+B(1408) + JVS(3755) = -B(79)+B(1410) ! JVS(3756) = Jac_FULL(279,104) JVS(3756) = -B(1126) ! JVS(3757) = Jac_FULL(279,105) @@ -10727,19 +10731,19 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3759) = Jac_FULL(279,107) JVS(3759) = -B(475) ! JVS(3760) = Jac_FULL(279,108) - JVS(3760) = 2*B(1495) + JVS(3760) = 2*B(1497) ! JVS(3761) = Jac_FULL(279,109) - JVS(3761) = -0.36*B(250)+B(1431) + JVS(3761) = -0.36*B(250)+B(1433) ! JVS(3762) = Jac_FULL(279,110) JVS(3762) = -B(1185) ! JVS(3763) = Jac_FULL(279,111) - JVS(3763) = -0.209*B(260)+B(1435) + JVS(3763) = -0.209*B(260)+B(1437) ! JVS(3764) = Jac_FULL(279,112) - JVS(3764) = -0.209*B(248)+B(1430) + JVS(3764) = -0.209*B(248)+B(1432) ! JVS(3765) = Jac_FULL(279,113) JVS(3765) = -B(125) ! JVS(3766) = Jac_FULL(279,114) - JVS(3766) = -B(1161)+B(1550) + JVS(3766) = -B(1161)+B(1552) ! JVS(3767) = Jac_FULL(279,115) JVS(3767) = -B(858) ! JVS(3768) = Jac_FULL(279,116) @@ -10749,19 +10753,19 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3770) = Jac_FULL(279,118) JVS(3770) = -B(1181) ! JVS(3771) = Jac_FULL(279,119) - JVS(3771) = -0.51*B(705)+B(1497) + JVS(3771) = -0.51*B(705)+B(1499) ! JVS(3772) = Jac_FULL(279,120) JVS(3772) = B(891)+2*B(893) ! JVS(3773) = Jac_FULL(279,121) JVS(3773) = -B(115)-B(117) ! JVS(3774) = Jac_FULL(279,122) - JVS(3774) = -0.556*B(1114)+0.546*B(1545) + JVS(3774) = -0.556*B(1114)+0.546*B(1547) ! JVS(3775) = Jac_FULL(279,124) JVS(3775) = -B(333) ! JVS(3776) = Jac_FULL(279,125) - JVS(3776) = B(1530) + JVS(3776) = B(1532) ! JVS(3777) = Jac_FULL(279,126) - JVS(3777) = B(1531) + JVS(3777) = B(1533) ! JVS(3778) = Jac_FULL(279,127) JVS(3778) = -B(860)-B(862) ! JVS(3779) = Jac_FULL(279,128) @@ -10773,9 +10777,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3782) = Jac_FULL(279,131) JVS(3782) = -B(743) ! JVS(3783) = Jac_FULL(279,133) - JVS(3783) = -0.415*B(1086)+0.75*B(1520) + JVS(3783) = -0.415*B(1086)+0.75*B(1522) ! JVS(3784) = Jac_FULL(279,134) - JVS(3784) = -B(58)+B(1403) + JVS(3784) = -B(58)+B(1405) ! JVS(3785) = Jac_FULL(279,136) JVS(3785) = -B(899)-B(901) ! JVS(3786) = Jac_FULL(279,137) @@ -10785,7 +10789,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3788) = Jac_FULL(279,139) JVS(3788) = -B(621) ! JVS(3789) = Jac_FULL(279,140) - JVS(3789) = 1.25*B(1543) + JVS(3789) = 1.25*B(1545) ! JVS(3790) = Jac_FULL(279,141) JVS(3790) = B(1054) ! JVS(3791) = Jac_FULL(279,142) @@ -10799,7 +10803,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3795) = Jac_FULL(279,146) JVS(3795) = B(1022) ! JVS(3796) = Jac_FULL(279,147) - JVS(3796) = -B(988)-B(994)-B(998)+B(1537) + JVS(3796) = -B(988)-B(994)-B(998)+B(1539) ! JVS(3797) = Jac_FULL(279,148) JVS(3797) = 0.599*B(927) ! JVS(3798) = Jac_FULL(279,149) @@ -10809,9 +10813,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3800) = Jac_FULL(279,151) JVS(3800) = -B(669)+0.85*B(683) ! JVS(3801) = Jac_FULL(279,152) - JVS(3801) = B(1517) + JVS(3801) = B(1519) ! JVS(3802) = Jac_FULL(279,153) - JVS(3802) = -B(821)-B(829)+B(1524) + JVS(3802) = -B(821)-B(829)+B(1526) ! JVS(3803) = Jac_FULL(279,154) JVS(3803) = -B(198) ! JVS(3804) = Jac_FULL(279,155) @@ -10819,13 +10823,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3805) = Jac_FULL(279,157) JVS(3805) = -B(107) ! JVS(3806) = Jac_FULL(279,158) - JVS(3806) = -B(825)-B(831)+B(1525) + JVS(3806) = -B(825)-B(831)+B(1527) ! JVS(3807) = Jac_FULL(279,159) - JVS(3807) = B(1544) + JVS(3807) = B(1546) ! JVS(3808) = Jac_FULL(279,160) - JVS(3808) = -0.715*B(1064)+1.75*B(1518) + JVS(3808) = -0.715*B(1064)+1.75*B(1520) ! JVS(3809) = Jac_FULL(279,161) - JVS(3809) = -0.255*B(835)+B(1527) + JVS(3809) = -0.255*B(835)+B(1529) ! JVS(3810) = Jac_FULL(279,162) JVS(3810) = 0.518*B(920) ! JVS(3811) = Jac_FULL(279,163) @@ -10837,11 +10841,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3814) = Jac_FULL(279,166) JVS(3814) = -B(1072) ! JVS(3815) = Jac_FULL(279,167) - JVS(3815) = -0.595*B(833)+B(1526) + JVS(3815) = -0.595*B(833)+B(1528) ! JVS(3816) = Jac_FULL(279,168) - JVS(3816) = B(1511) + JVS(3816) = B(1513) ! JVS(3817) = Jac_FULL(279,171) - JVS(3817) = B(1523) + JVS(3817) = B(1525) ! JVS(3818) = Jac_FULL(279,172) JVS(3818) = 0 ! JVS(3819) = Jac_FULL(279,173) @@ -10853,7 +10857,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3822) = Jac_FULL(279,176) JVS(3822) = 0.2*B(1199) ! JVS(3823) = Jac_FULL(279,177) - JVS(3823) = -B(986)-B(996)+0.67*B(1536) + JVS(3823) = -B(986)-B(996)+0.67*B(1538) ! JVS(3824) = Jac_FULL(279,178) JVS(3824) = B(1171) ! JVS(3825) = Jac_FULL(279,179) @@ -10861,11 +10865,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3826) = Jac_FULL(279,180) JVS(3826) = B(844)+0.275*B(849) ! JVS(3827) = Jac_FULL(279,182) - JVS(3827) = 0.085*B(807)+1.662*B(1528) + JVS(3827) = 0.085*B(807)+1.662*B(1530) ! JVS(3828) = Jac_FULL(279,183) JVS(3828) = B(852)+1.3*B(856) ! JVS(3829) = Jac_FULL(279,184) - JVS(3829) = 0.165*B(809)+1.637*B(1529) + JVS(3829) = 0.165*B(809)+1.637*B(1531) ! JVS(3830) = Jac_FULL(279,185) JVS(3830) = B(1002)+0.646*B(1006)+0.096*B(1012) ! JVS(3831) = Jac_FULL(279,186) @@ -10873,7 +10877,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3832) = Jac_FULL(279,187) JVS(3832) = 0 ! JVS(3833) = Jac_FULL(279,188) - JVS(3833) = -B(74)+B(1407) + JVS(3833) = -B(74)+B(1409) ! JVS(3834) = Jac_FULL(279,189) JVS(3834) = 0.065*B(815) ! JVS(3835) = Jac_FULL(279,190) @@ -10883,7 +10887,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3837) = Jac_FULL(279,192) JVS(3837) = -B(467) ! JVS(3838) = Jac_FULL(279,193) - JVS(3838) = -B(62)+B(1492) + JVS(3838) = -B(62)+B(1494) ! JVS(3839) = Jac_FULL(279,194) JVS(3839) = -B(639) ! JVS(3840) = Jac_FULL(279,195) @@ -10901,7 +10905,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3846) = Jac_FULL(279,201) JVS(3846) = 0.59*B(1082)+B(1088) ! JVS(3847) = Jac_FULL(279,202) - JVS(3847) = -0.5*B(1112)+0.5*B(1541)+B(1542) + JVS(3847) = -0.5*B(1112)+0.5*B(1543)+B(1544) ! JVS(3848) = Jac_FULL(279,203) JVS(3848) = 0.5*B(1084) ! JVS(3849) = Jac_FULL(279,204) @@ -10913,11 +10917,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3852) = Jac_FULL(279,207) JVS(3852) = -B(90) ! JVS(3853) = Jac_FULL(279,208) - JVS(3853) = -B(39)+B(407)+2*B(1402) + JVS(3853) = -B(39)+B(407)+2*B(1404) ! JVS(3854) = Jac_FULL(279,209) - JVS(3854) = -B(1120)+B(1548) + JVS(3854) = -B(1120)+B(1550) ! JVS(3855) = Jac_FULL(279,210) - JVS(3855) = -B(911)-B(913)-0.4*B(917)+0.55*B(1535) + JVS(3855) = -B(911)-B(913)-0.4*B(917)+0.55*B(1537) ! JVS(3856) = Jac_FULL(279,211) JVS(3856) = 0 ! JVS(3857) = Jac_FULL(279,212) @@ -10929,7 +10933,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3860) = Jac_FULL(279,215) JVS(3860) = -B(147) ! JVS(3861) = Jac_FULL(279,216) - JVS(3861) = -B(907)-B(909)-0.4*B(915)+0.55*B(1532) + JVS(3861) = -B(907)-B(909)-0.4*B(915)+0.55*B(1534) ! JVS(3862) = Jac_FULL(279,217) JVS(3862) = B(1003)+1.147*B(1004)+0.435*B(1008) ! JVS(3863) = Jac_FULL(279,218) @@ -10949,9 +10953,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3870) = Jac_FULL(279,225) JVS(3870) = B(869)+0.65*B(870) ! JVS(3871) = Jac_FULL(279,226) - JVS(3871) = B(1516) + JVS(3871) = B(1518) ! JVS(3872) = Jac_FULL(279,227) - JVS(3872) = B(1519) + JVS(3872) = B(1521) ! JVS(3873) = Jac_FULL(279,228) JVS(3873) = -B(226) ! JVS(3874) = Jac_FULL(279,229) @@ -10961,7 +10965,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3876) = Jac_FULL(279,231) JVS(3876) = -B(483) ! JVS(3877) = Jac_FULL(279,232) - JVS(3877) = -0.773*B(218)+0.07*B(1420) + JVS(3877) = -0.773*B(218)+0.07*B(1422) ! JVS(3878) = Jac_FULL(279,233) JVS(3878) = 0 ! JVS(3879) = Jac_FULL(279,234) @@ -10969,11 +10973,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3880) = Jac_FULL(279,235) JVS(3880) = 0 ! JVS(3881) = Jac_FULL(279,236) - JVS(3881) = -B(1016)-0.756*B(1018)+0.645*B(1539) + JVS(3881) = -B(1016)-0.756*B(1018)+0.645*B(1541) ! JVS(3882) = Jac_FULL(279,237) - JVS(3882) = -0.98*B(1042)+0.01*B(1521) + JVS(3882) = -0.98*B(1042)+0.01*B(1523) ! JVS(3883) = Jac_FULL(279,238) - JVS(3883) = -0.7*B(1122)+B(1546)+0.3*B(1547) + JVS(3883) = -0.7*B(1122)+B(1548)+0.3*B(1549) ! JVS(3884) = Jac_FULL(279,239) JVS(3884) = -B(1024) ! JVS(3885) = Jac_FULL(279,240) @@ -11009,7 +11013,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3900) = Jac_FULL(279,255) JVS(3900) = -B(149) ! JVS(3901) = Jac_FULL(279,256) - JVS(3901) = B(335)+B(1441) + JVS(3901) = B(335)+B(1443) ! JVS(3902) = Jac_FULL(279,257) JVS(3902) = 0.5*B(1130) ! JVS(3903) = Jac_FULL(279,258) @@ -11017,7 +11021,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3904) = Jac_FULL(279,259) JVS(3904) = -B(485) ! JVS(3905) = Jac_FULL(279,260) - JVS(3905) = -B(70)+B(1406) + JVS(3905) = -B(70)+B(1408) ! JVS(3906) = Jac_FULL(279,261) JVS(3906) = -B(98) ! JVS(3907) = Jac_FULL(279,262) @@ -11025,13 +11029,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3908) = Jac_FULL(279,263) JVS(3908) = -B(56)+0.5*B(786)+0.5*B(790) ! JVS(3909) = Jac_FULL(279,264) - JVS(3909) = -B(625)+B(1475) + JVS(3909) = -B(625)+B(1477) ! JVS(3910) = Jac_FULL(279,265) JVS(3910) = 0 ! JVS(3911) = Jac_FULL(279,266) JVS(3911) = 0 ! JVS(3912) = Jac_FULL(279,267) - JVS(3912) = -B(481)+B(1458) + JVS(3912) = -B(481)+B(1460) ! JVS(3913) = Jac_FULL(279,268) JVS(3913) = 2*B(363)+B(369)+B(376)+0.67*B(429)+0.65*B(431) ! JVS(3914) = Jac_FULL(279,269) @@ -11054,7 +11058,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3922) = Jac_FULL(279,277) JVS(3922) = -B(471)-B(473) ! JVS(3923) = Jac_FULL(279,278) - JVS(3923) = -B(1268) + JVS(3923) = -B(1270) ! JVS(3924) = Jac_FULL(279,279) JVS(3924) = -B(24)-B(28)-2*B(35)-2*B(36)-B(37)-B(40)-B(45)-B(47)-B(57)-B(59)-B(63)-B(67)-B(69)-B(71)-B(72)-B(75)-B(80)& &-B(85)-B(91)-B(93)-B(99)-B(108)-B(116)-B(118)-B(126)-B(146)-B(148)-B(150)-B(159)-B(177)-B(197)-B(199)& @@ -11068,7 +11072,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) &-B(997)-B(999)-B(1017)-0.756*B(1019)-B(1025)-B(1031)-B(1035)-B(1037)-0.98*B(1043)-B(1049)-0.715*B(1065)& &-B(1069)-B(1073)-B(1075)-0.415*B(1087)-B(1109)-0.3*B(1111)-0.5*B(1113)-0.556*B(1115)-B(1121)-0.7*B(1123)& &-B(1127)-0.5*B(1129)-B(1145)-0.364*B(1147)-B(1160)-B(1162)-B(1166)-B(1168)-B(1170)-B(1182)-B(1186)-B(1190)& - &-B(1196)-B(1206)-B(1209)-B(1219)-B(1225)-0.75*B(1233)-0.75*B(1238)-B(1269)-B(1270) + &-B(1196)-B(1206)-B(1209)-B(1219)-B(1225)-0.75*B(1233)-0.75*B(1238)-B(1271)-B(1272) ! JVS(3925) = Jac_FULL(279,280) JVS(3925) = B(41)-B(73)+0.55*B(798)+0.55*B(806)+B(853)+B(892)+B(896)+0.435*B(1009)+0.096*B(1013) ! JVS(3926) = Jac_FULL(279,281) @@ -11078,7 +11082,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) &+B(1023)+0.82*B(1029)+B(1055)+B(1061)+0.665*B(1077)+0.59*B(1083)+0.5*B(1085)+0.5*B(1098)+0.5*B(1131)& &+B(1172)+0.2*B(1200) ! JVS(3927) = Jac_FULL(279,282) - JVS(3927) = -B(1271) + JVS(3927) = -B(1273) ! JVS(3928) = Jac_FULL(279,283) JVS(3928) = B(82)-B(86)+0.68*B(1041) ! JVS(3929) = Jac_FULL(279,284) @@ -11090,7 +11094,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3932) = Jac_FULL(279,287) JVS(3932) = 0 ! JVS(3933) = Jac_FULL(280,56) - JVS(3933) = 2*B(587)+B(1478) + JVS(3933) = 2*B(587)+B(1480) ! JVS(3934) = Jac_FULL(280,57) JVS(3934) = 2*B(373) ! JVS(3935) = Jac_FULL(280,61) @@ -11138,7 +11142,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(3956) = Jac_FULL(280,187) JVS(3956) = -B(1212) ! JVS(3957) = Jac_FULL(280,188) - JVS(3957) = B(1407) + JVS(3957) = B(1409) ! JVS(3958) = Jac_FULL(280,190) JVS(3958) = -B(886)-B(888) ! JVS(3959) = Jac_FULL(280,191) @@ -11250,7 +11254,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4012) = Jac_FULL(280,269) JVS(4012) = -B(25) ! JVS(4013) = Jac_FULL(280,270) - JVS(4013) = B(94)+B(399)+B(1401) + JVS(4013) = B(94)+B(399)+B(1403) ! JVS(4014) = Jac_FULL(280,271) JVS(4014) = 0 ! JVS(4015) = Jac_FULL(280,272) @@ -11276,13 +11280,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) &-B(848)-B(853)-B(855)-B(873)-B(875)-B(879)-B(881)-B(887)-B(889)-B(892)-B(896)-B(923)-B(925)-B(930)-B(932)& &-B(938)-B(940)-B(944)-B(946)-B(950)-B(952)-B(976)-B(978)-B(980)-B(982)-B(1009)-B(1011)-B(1013)-B(1015)& &-B(1021)-B(1027)-B(1053)-B(1059)-B(1079)-B(1081)-B(1090)-B(1092)-B(1094)-B(1100)-B(1151)-B(1174)-B(1202)& - &-B(1213)-B(1496) + &-B(1213)-B(1498) ! JVS(4024) = Jac_FULL(280,281) JVS(4024) = -B(42) ! JVS(4025) = Jac_FULL(280,282) JVS(4025) = 0 ! JVS(4026) = Jac_FULL(280,283) - JVS(4026) = -B(84)+B(95)+B(1411) + JVS(4026) = -B(84)+B(95)+B(1413) ! JVS(4027) = Jac_FULL(280,284) JVS(4027) = B(400)-B(404) ! JVS(4028) = Jac_FULL(280,285) @@ -11298,7 +11302,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4033) = Jac_FULL(281,68) JVS(4033) = B(491)+B(551) ! JVS(4034) = Jac_FULL(281,71) - JVS(4034) = B(1490) + JVS(4034) = B(1492) ! JVS(4035) = Jac_FULL(281,73) JVS(4035) = B(489)+B(549) ! JVS(4036) = Jac_FULL(281,76) @@ -11308,43 +11312,43 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4038) = Jac_FULL(281,83) JVS(4038) = 0.5*B(1128) ! JVS(4039) = Jac_FULL(281,86) - JVS(4039) = B(1508) + JVS(4039) = B(1510) ! JVS(4040) = Jac_FULL(281,87) - JVS(4040) = B(1506) + JVS(4040) = B(1508) ! JVS(4041) = Jac_FULL(281,88) - JVS(4041) = B(1507) + JVS(4041) = B(1509) ! JVS(4042) = Jac_FULL(281,89) - JVS(4042) = B(1509) + JVS(4042) = B(1511) ! JVS(4043) = Jac_FULL(281,91) - JVS(4043) = B(1434) + JVS(4043) = B(1436) ! JVS(4044) = Jac_FULL(281,92) - JVS(4044) = B(1432) + JVS(4044) = B(1434) ! JVS(4045) = Jac_FULL(281,93) - JVS(4045) = B(1433) + JVS(4045) = B(1435) ! JVS(4046) = Jac_FULL(281,94) - JVS(4046) = B(1436) + JVS(4046) = B(1438) ! JVS(4047) = Jac_FULL(281,97) JVS(4047) = B(361) ! JVS(4048) = Jac_FULL(281,99) - JVS(4048) = B(1551) + JVS(4048) = B(1553) ! JVS(4049) = Jac_FULL(281,100) JVS(4049) = B(487)+B(547) ! JVS(4050) = Jac_FULL(281,101) - JVS(4050) = B(78)+B(1409) + JVS(4050) = B(78)+B(1411) ! JVS(4051) = Jac_FULL(281,102) JVS(4051) = B(1156)+B(1157) ! JVS(4052) = Jac_FULL(281,104) - JVS(4052) = B(1512) + JVS(4052) = B(1514) ! JVS(4053) = Jac_FULL(281,106) JVS(4053) = B(819) ! JVS(4054) = Jac_FULL(281,109) - JVS(4054) = B(1431) + JVS(4054) = B(1433) ! JVS(4055) = Jac_FULL(281,110) JVS(4055) = 0.727*B(1185) ! JVS(4056) = Jac_FULL(281,111) - JVS(4056) = B(1435) + JVS(4056) = B(1437) ! JVS(4057) = Jac_FULL(281,112) - JVS(4057) = B(1430) + JVS(4057) = B(1432) ! JVS(4058) = Jac_FULL(281,114) JVS(4058) = 0 ! JVS(4059) = Jac_FULL(281,115) @@ -11356,17 +11360,17 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4062) = Jac_FULL(281,118) JVS(4062) = 0.8*B(1181) ! JVS(4063) = Jac_FULL(281,119) - JVS(4063) = B(1497) + JVS(4063) = B(1499) ! JVS(4064) = Jac_FULL(281,120) JVS(4064) = -B(893) ! JVS(4065) = Jac_FULL(281,122) - JVS(4065) = 0.444*B(1114)+1.454*B(1545) + JVS(4065) = 0.444*B(1114)+1.454*B(1547) ! JVS(4066) = Jac_FULL(281,123) JVS(4066) = B(983) ! JVS(4067) = Jac_FULL(281,125) - JVS(4067) = B(1530) + JVS(4067) = B(1532) ! JVS(4068) = Jac_FULL(281,126) - JVS(4068) = B(1531) + JVS(4068) = B(1533) ! JVS(4069) = Jac_FULL(281,127) JVS(4069) = B(860) ! JVS(4070) = Jac_FULL(281,128) @@ -11376,15 +11380,15 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4072) = Jac_FULL(281,130) JVS(4072) = B(1074) ! JVS(4073) = Jac_FULL(281,134) - JVS(4073) = B(1403) + JVS(4073) = B(1405) ! JVS(4074) = Jac_FULL(281,136) - JVS(4074) = B(1533) + JVS(4074) = B(1535) ! JVS(4075) = Jac_FULL(281,137) - JVS(4075) = B(1534) + JVS(4075) = B(1536) ! JVS(4076) = Jac_FULL(281,138) JVS(4076) = B(1191) ! JVS(4077) = Jac_FULL(281,140) - JVS(4077) = 0.75*B(1543) + JVS(4077) = 0.75*B(1545) ! JVS(4078) = Jac_FULL(281,141) JVS(4078) = -B(1054) ! JVS(4079) = Jac_FULL(281,142) @@ -11396,7 +11400,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4082) = Jac_FULL(281,146) JVS(4082) = 0.33*B(1020)-0.67*B(1022) ! JVS(4083) = Jac_FULL(281,147) - JVS(4083) = 0.159*B(1537) + JVS(4083) = 0.159*B(1539) ! JVS(4084) = Jac_FULL(281,148) JVS(4084) = B(926)-0.401*B(927)+B(929) ! JVS(4085) = Jac_FULL(281,150) @@ -11404,21 +11408,21 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4086) = Jac_FULL(281,151) JVS(4086) = 0.1*B(683) ! JVS(4087) = Jac_FULL(281,152) - JVS(4087) = 0.571*B(1517) + JVS(4087) = 0.571*B(1519) ! JVS(4088) = Jac_FULL(281,153) - JVS(4088) = 0.25*B(829)+B(1524) + JVS(4088) = 0.25*B(829)+B(1526) ! JVS(4089) = Jac_FULL(281,154) JVS(4089) = B(198) ! JVS(4090) = Jac_FULL(281,155) JVS(4090) = 0.33*B(1232)+0.1*B(1234)+0.2*B(1236) ! JVS(4091) = Jac_FULL(281,158) - JVS(4091) = 0.33*B(831)+B(1525) + JVS(4091) = 0.33*B(831)+B(1527) ! JVS(4092) = Jac_FULL(281,159) - JVS(4092) = B(1544) + JVS(4092) = B(1546) ! JVS(4093) = Jac_FULL(281,160) - JVS(4093) = 0.715*B(1064)+0.125*B(1518) + JVS(4093) = 0.715*B(1064)+0.125*B(1520) ! JVS(4094) = Jac_FULL(281,161) - JVS(4094) = 0.042*B(835)+B(1527) + JVS(4094) = 0.042*B(835)+B(1529) ! JVS(4095) = Jac_FULL(281,162) JVS(4095) = B(919)-0.941*B(920)+0.272*B(922) ! JVS(4096) = Jac_FULL(281,163) @@ -11428,13 +11432,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4098) = Jac_FULL(281,165) JVS(4098) = 0.1*B(691) ! JVS(4099) = Jac_FULL(281,166) - JVS(4099) = B(1072)+B(1514) + JVS(4099) = B(1072)+B(1516) ! JVS(4100) = Jac_FULL(281,167) - JVS(4100) = 0.024*B(833)+B(1526) + JVS(4100) = 0.024*B(833)+B(1528) ! JVS(4101) = Jac_FULL(281,168) - JVS(4101) = B(1511) + JVS(4101) = B(1513) ! JVS(4102) = Jac_FULL(281,171) - JVS(4102) = B(1523) + JVS(4102) = B(1525) ! JVS(4103) = Jac_FULL(281,173) JVS(4103) = B(409)-B(413)-B(415)-B(417) ! JVS(4104) = Jac_FULL(281,175) @@ -11442,7 +11446,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4105) = Jac_FULL(281,176) JVS(4105) = -B(1199)+B(1230) ! JVS(4106) = Jac_FULL(281,177) - JVS(4106) = 0.33*B(1536) + JVS(4106) = 0.33*B(1538) ! JVS(4107) = Jac_FULL(281,178) JVS(4107) = B(1173)+B(1175)+2*B(1177)+B(1179) ! JVS(4108) = Jac_FULL(281,179) @@ -11450,13 +11454,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4109) = Jac_FULL(281,180) JVS(4109) = B(845)-0.725*B(849) ! JVS(4110) = Jac_FULL(281,181) - JVS(4110) = 1.5*B(1515) + JVS(4110) = 1.5*B(1517) ! JVS(4111) = Jac_FULL(281,182) - JVS(4111) = 0.085*B(807)+0.112*B(1528) + JVS(4111) = 0.085*B(807)+0.112*B(1530) ! JVS(4112) = Jac_FULL(281,183) JVS(4112) = -B(856) ! JVS(4113) = Jac_FULL(281,184) - JVS(4113) = 0.165*B(809)+0.182*B(1529) + JVS(4113) = 0.165*B(809)+0.182*B(1531) ! JVS(4114) = Jac_FULL(281,185) JVS(4114) = -0.42*B(1006)+0.904*B(1012) ! JVS(4115) = Jac_FULL(281,186) @@ -11468,33 +11472,33 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4118) = Jac_FULL(281,190) JVS(4118) = -0.35*B(884)+B(888)+B(890) ! JVS(4119) = Jac_FULL(281,195) - JVS(4119) = B(1522) + JVS(4119) = B(1524) ! JVS(4120) = Jac_FULL(281,197) JVS(4120) = -B(174)+0.5*B(194) ! JVS(4121) = Jac_FULL(281,198) - JVS(4121) = 0.27*B(1437) + JVS(4121) = 0.27*B(1439) ! JVS(4122) = Jac_FULL(281,200) JVS(4122) = -0.695*B(1076)+0.242*B(1078) ! JVS(4123) = Jac_FULL(281,201) JVS(4123) = -0.493*B(1082)+0.86*B(1089) ! JVS(4124) = Jac_FULL(281,202) - JVS(4124) = 0.5*B(1112)+1.5*B(1541)+B(1542) + JVS(4124) = 0.5*B(1112)+1.5*B(1543)+B(1544) ! JVS(4125) = Jac_FULL(281,203) JVS(4125) = -B(1084) ! JVS(4126) = Jac_FULL(281,204) JVS(4126) = B(123)+B(162)-B(210)+B(238) ! JVS(4127) = Jac_FULL(281,205) - JVS(4127) = B(1498) + JVS(4127) = B(1500) ! JVS(4128) = Jac_FULL(281,206) - JVS(4128) = B(1554) + JVS(4128) = B(1556) ! JVS(4129) = Jac_FULL(281,207) JVS(4129) = B(90) ! JVS(4130) = Jac_FULL(281,208) JVS(4130) = B(39)+B(407)+B(511) ! JVS(4131) = Jac_FULL(281,209) - JVS(4131) = B(1549) + JVS(4131) = B(1551) ! JVS(4132) = Jac_FULL(281,210) - JVS(4132) = 0.4*B(917)+0.45*B(1535) + JVS(4132) = 0.4*B(917)+0.45*B(1537) ! JVS(4133) = Jac_FULL(281,211) JVS(4133) = B(707)-B(711)+2*B(715)+B(719)+B(723)+B(727)+0.5*B(728) ! JVS(4134) = Jac_FULL(281,212) @@ -11504,11 +11508,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4136) = Jac_FULL(281,214) JVS(4136) = B(92)+B(565) ! JVS(4137) = Jac_FULL(281,216) - JVS(4137) = 0.4*B(915)+0.45*B(1532) + JVS(4137) = 0.4*B(915)+0.45*B(1534) ! JVS(4138) = Jac_FULL(281,217) JVS(4138) = -0.674*B(1004)+0.5*B(1008) ! JVS(4139) = Jac_FULL(281,218) - JVS(4139) = B(224)+B(228)+2*B(1421) + JVS(4139) = B(224)+B(228)+2*B(1423) ! JVS(4140) = Jac_FULL(281,220) JVS(4140) = 0.16*B(753)+0.4*B(759)+0.7*B(761) ! JVS(4141) = Jac_FULL(281,221) @@ -11520,17 +11524,17 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4144) = Jac_FULL(281,225) JVS(4144) = B(868)-0.35*B(870)+B(872) ! JVS(4145) = Jac_FULL(281,226) - JVS(4145) = 0.47*B(1516) + JVS(4145) = 0.47*B(1518) ! JVS(4146) = Jac_FULL(281,227) - JVS(4146) = B(1519) + JVS(4146) = B(1521) ! JVS(4147) = Jac_FULL(281,228) - JVS(4147) = B(1424) + JVS(4147) = B(1426) ! JVS(4148) = Jac_FULL(281,229) JVS(4148) = -0.621*B(947)+B(949) ! JVS(4149) = Jac_FULL(281,230) JVS(4149) = 0 ! JVS(4150) = Jac_FULL(281,232) - JVS(4150) = 0.773*B(218)+1.73*B(1420) + JVS(4150) = 0.773*B(218)+1.73*B(1422) ! JVS(4151) = Jac_FULL(281,233) JVS(4151) = B(119)+B(160)-B(208)+B(236) ! JVS(4152) = Jac_FULL(281,234) @@ -11538,13 +11542,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4153) = Jac_FULL(281,235) JVS(4153) = B(113)+B(180)+2*B(201)-B(206)+B(299)+B(563) ! JVS(4154) = Jac_FULL(281,236) - JVS(4154) = 0.295*B(1018)+0.161*B(1539) + JVS(4154) = 0.295*B(1018)+0.161*B(1541) ! JVS(4155) = Jac_FULL(281,237) - JVS(4155) = 0.29*B(1521) + JVS(4155) = 0.29*B(1523) ! JVS(4156) = Jac_FULL(281,238) - JVS(4156) = 0.62*B(1122)+0.7*B(1546)+0.7*B(1547) + JVS(4156) = 0.62*B(1122)+0.7*B(1548)+0.7*B(1549) ! JVS(4157) = Jac_FULL(281,239) - JVS(4157) = 0.228*B(1540) + JVS(4157) = 0.228*B(1542) ! JVS(4158) = Jac_FULL(281,240) JVS(4158) = -B(955)+0.089*B(960)+0.611*B(965) ! JVS(4159) = Jac_FULL(281,241) @@ -11554,13 +11558,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4161) = Jac_FULL(281,243) JVS(4161) = -0.937*B(767)-B(769)+0.7*B(774)+2*B(776)+2*B(778)+B(780)+B(782)+2*B(787)+1.5*B(789)+B(801)+0.45*B(805) ! JVS(4162) = Jac_FULL(281,244) - JVS(4162) = 0.1*B(1032)+B(1426) + JVS(4162) = 0.1*B(1032)+B(1428) ! JVS(4163) = Jac_FULL(281,245) JVS(4163) = -B(1097)+0.7*B(1105) ! JVS(4164) = Jac_FULL(281,246) - JVS(4164) = B(232)+B(1429) + JVS(4164) = B(232)+B(1431) ! JVS(4165) = Jac_FULL(281,247) - JVS(4165) = 0.036*B(1034)+B(1428) + JVS(4165) = 0.036*B(1034)+B(1430) ! JVS(4166) = Jac_FULL(281,248) JVS(4166) = -B(168)+0.3*B(188) ! JVS(4167) = Jac_FULL(281,249) @@ -11576,20 +11580,20 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4172) = Jac_FULL(281,254) JVS(4172) = 0.28*B(216) ! JVS(4173) = Jac_FULL(281,255) - JVS(4173) = B(1416) + JVS(4173) = B(1418) ! JVS(4174) = Jac_FULL(281,257) JVS(4174) = B(237)+B(239)+B(269)+0.27*B(274)+B(280)+B(298)+B(300)+0.5*B(678)+0.5*B(702)+B(720)+0.159*B(970)-B(1130)& &+B(1180) ! JVS(4175) = Jac_FULL(281,258) JVS(4175) = B(44) ! JVS(4176) = Jac_FULL(281,261) - JVS(4176) = 0.05*B(98)+B(1413) + JVS(4176) = 0.05*B(98)+B(1415) ! JVS(4177) = Jac_FULL(281,262) - JVS(4177) = B(66)+B(96)+B(343)+B(427)+B(505)+B(1404) + JVS(4177) = B(66)+B(96)+B(343)+B(427)+B(505)+B(1406) ! JVS(4178) = Jac_FULL(281,263) JVS(4178) = B(33)+B(48)-B(52)+2*B(55)+1.74*B(56)+B(161)+B(163)+B(179)+B(181)+0.64*B(185)+0.5*B(187)+0.3*B(189)+0.5& &*B(191)+B(193)+0.5*B(195)+B(245)+B(270)+B(469)+B(555)+B(676)+B(700)+2*B(716)+0.5*B(718)+2*B(784)+1.5*B(786)& - &+2*B(788)+1.5*B(790)+0.336*B(964)+0.611*B(966)+0.7*B(1106)+0.6*B(1155)+2*B(1178)+B(1229)+B(1231) + &+2*B(788)+1.5*B(790)+0.336*B(964)+0.611*B(966)+0.7*B(1106)+0.6*B(1155)+2*B(1178)+B(1229)+B(1231)+B(1254) ! JVS(4179) = Jac_FULL(281,264) JVS(4179) = 0 ! JVS(4180) = Jac_FULL(281,265) @@ -11636,11 +11640,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) &-B(698)-B(712)-B(714)-0.937*B(764)-B(766)-0.937*B(768)-B(770)-0.725*B(843)-0.725*B(850)-B(857)-0.35*B(871)& &-0.35*B(883)-0.35*B(885)-B(894)-B(898)-0.941*B(921)-0.401*B(928)-0.418*B(936)-0.494*B(942)-0.621*B(948)& &-B(956)-B(958)-0.674*B(1005)-0.42*B(1007)-0.67*B(1023)-0.27*B(1029)-B(1055)-B(1061)-0.695*B(1077)-0.493& - &*B(1083)-B(1085)-B(1098)-B(1131)-B(1149)-B(1200)-B(1217)-B(1254) + &*B(1083)-B(1085)-B(1098)-B(1131)-B(1149)-B(1200)-B(1217)-B(1256) ! JVS(4196) = Jac_FULL(281,282) JVS(4196) = 0 ! JVS(4197) = Jac_FULL(281,283) - JVS(4197) = -B(82)+B(86)+B(97)+B(229)+B(680)+B(704)+B(724)+0.159*B(974)+B(1176) + JVS(4197) = -B(82)+B(86)+B(97)+B(229)+B(680)+B(704)+B(724)+0.159*B(974)+B(1176)+B(1255) ! JVS(4198) = Jac_FULL(281,284) JVS(4198) = -B(390)+B(408)+B(428) ! JVS(4199) = Jac_FULL(281,285) @@ -11652,15 +11656,15 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4202) = Jac_FULL(282,135) JVS(4202) = B(11) ! JVS(4203) = Jac_FULL(282,169) - JVS(4203) = -B(1266) + JVS(4203) = -B(1268) ! JVS(4204) = Jac_FULL(282,199) - JVS(4204) = -B(1354) + JVS(4204) = -B(1356) ! JVS(4205) = Jac_FULL(282,231) - JVS(4205) = -B(1292) + JVS(4205) = -B(1294) ! JVS(4206) = Jac_FULL(282,256) - JVS(4206) = -B(1318) + JVS(4206) = -B(1320) ! JVS(4207) = Jac_FULL(282,259) - JVS(4207) = -B(1288) + JVS(4207) = -B(1290) ! JVS(4208) = Jac_FULL(282,260) JVS(4208) = 0 ! JVS(4209) = Jac_FULL(282,261) @@ -11670,13 +11674,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4211) = Jac_FULL(282,263) JVS(4211) = 0 ! JVS(4212) = Jac_FULL(282,264) - JVS(4212) = -B(1370) + JVS(4212) = -B(1372) ! JVS(4213) = Jac_FULL(282,265) JVS(4213) = 0 ! JVS(4214) = Jac_FULL(282,266) - JVS(4214) = -B(1362) + JVS(4214) = -B(1364) ! JVS(4215) = Jac_FULL(282,267) - JVS(4215) = -B(1308) + JVS(4215) = -B(1310) ! JVS(4216) = Jac_FULL(282,268) JVS(4216) = 0 ! JVS(4217) = Jac_FULL(282,269) @@ -11700,13 +11704,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4226) = Jac_FULL(282,278) JVS(4226) = 0 ! JVS(4227) = Jac_FULL(282,279) - JVS(4227) = -B(1270) + JVS(4227) = -B(1272) ! JVS(4228) = Jac_FULL(282,280) JVS(4228) = 0 ! JVS(4229) = Jac_FULL(282,281) JVS(4229) = 0 ! JVS(4230) = Jac_FULL(282,282) - JVS(4230) = -B(1267)-B(1271)-B(1289)-B(1293)-B(1309)-B(1319)-B(1355)-B(1363)-B(1371) + JVS(4230) = -B(1269)-B(1273)-B(1291)-B(1295)-B(1311)-B(1321)-B(1357)-B(1365)-B(1373) ! JVS(4231) = Jac_FULL(282,283) JVS(4231) = 0 ! JVS(4232) = Jac_FULL(282,284) @@ -11718,15 +11722,15 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4235) = Jac_FULL(282,287) JVS(4235) = 0 ! JVS(4236) = Jac_FULL(283,63) - JVS(4236) = 0.3*B(1415) + JVS(4236) = 0.3*B(1417) ! JVS(4237) = Jac_FULL(283,71) - JVS(4237) = B(1490) + JVS(4237) = B(1492) ! JVS(4238) = Jac_FULL(283,82) JVS(4238) = -B(315) ! JVS(4239) = Jac_FULL(283,99) JVS(4239) = -B(1197) ! JVS(4240) = Jac_FULL(283,101) - JVS(4240) = B(1408) + JVS(4240) = B(1410) ! JVS(4241) = Jac_FULL(283,110) JVS(4241) = -B(1187) ! JVS(4242) = Jac_FULL(283,113) @@ -11750,9 +11754,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4251) = Jac_FULL(283,165) JVS(4251) = -B(693) ! JVS(4252) = Jac_FULL(283,169) - JVS(4252) = B(89)+B(1412) + JVS(4252) = B(89)+B(1414) ! JVS(4253) = Jac_FULL(283,172) - JVS(4253) = B(331)+B(1442) + JVS(4253) = B(331)+B(1444) ! JVS(4254) = Jac_FULL(283,174) JVS(4254) = -B(739) ! JVS(4255) = Jac_FULL(283,175) @@ -11848,7 +11852,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4300) = Jac_FULL(283,258) JVS(4300) = 0 ! JVS(4301) = Jac_FULL(283,259) - JVS(4301) = B(485)+B(543)+B(545)+B(1456) + JVS(4301) = B(485)+B(543)+B(545)+B(1458) ! JVS(4302) = Jac_FULL(283,260) JVS(4302) = B(70) ! JVS(4303) = Jac_FULL(283,261) @@ -11856,11 +11860,11 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4304) = Jac_FULL(283,262) JVS(4304) = -B(96) ! JVS(4305) = Jac_FULL(283,263) - JVS(4305) = 0 + JVS(4305) = -B(1254) ! JVS(4306) = Jac_FULL(283,265) JVS(4306) = B(597) ! JVS(4307) = Jac_FULL(283,266) - JVS(4307) = B(598)+B(1480) + JVS(4307) = B(598)+B(1482) ! JVS(4308) = Jac_FULL(283,268) JVS(4308) = 0 ! JVS(4309) = Jac_FULL(283,269) @@ -11894,8 +11898,8 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4323) = Jac_FULL(283,283) JVS(4323) = -B(82)-B(84)-B(86)-B(88)-B(95)-B(97)-B(101)-B(144)-B(157)-B(183)-B(223)-B(229)-B(231)-B(267)-2*B(307)& &-B(316)-B(341)-B(401)-B(593)-B(680)-B(686)-B(688)-B(694)-B(704)-B(724)-B(726)-B(738)-B(740)-B(954)-B(972)& - &-B(974)-B(1041)-B(1104)-B(1125)-B(1153)-B(1176)-B(1184)-B(1188)-B(1194)-B(1198)-B(1215)-B(1227)-B(1256)& - &-B(1257)-B(1258)-B(1410)-B(1411) + &-B(974)-B(1041)-B(1104)-B(1125)-B(1153)-B(1176)-B(1184)-B(1188)-B(1194)-B(1198)-B(1215)-B(1227)-B(1255)& + &-B(1258)-B(1259)-B(1260)-B(1412)-B(1413) ! JVS(4324) = Jac_FULL(283,284) JVS(4324) = -B(402)+B(406)+B(544) ! JVS(4325) = Jac_FULL(283,285) @@ -11939,7 +11943,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4344) = Jac_FULL(284,81) JVS(4344) = 0.28*B(443) ! JVS(4345) = Jac_FULL(284,107) - JVS(4345) = B(1453) + JVS(4345) = B(1455) ! JVS(4346) = Jac_FULL(284,173) JVS(4346) = B(415) ! JVS(4347) = Jac_FULL(284,186) @@ -11951,7 +11955,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4350) = Jac_FULL(284,220) JVS(4350) = 0 ! JVS(4351) = Jac_FULL(284,223) - JVS(4351) = B(1476) + JVS(4351) = B(1478) ! JVS(4352) = Jac_FULL(284,230) JVS(4352) = 0 ! JVS(4353) = Jac_FULL(284,231) @@ -11989,9 +11993,9 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) &+0.12*B(446)+0.14*B(448)+0.36*B(450)+0.59*B(452)+0.31*B(454)+0.26*B(456)+0.21*B(458)+0.25*B(460)+0.25& &*B(462)+0.7*B(464)+0.25*B(466) ! JVS(4369) = Jac_FULL(284,269) - JVS(4369) = -B(383)+2*B(394)+B(1398) + JVS(4369) = -B(383)+2*B(394)+B(1400) ! JVS(4370) = Jac_FULL(284,270) - JVS(4370) = -B(399)-B(405)+B(424)+B(1401) + JVS(4370) = -B(399)-B(405)+B(424)+B(1403) ! JVS(4371) = Jac_FULL(284,271) JVS(4371) = 0.09*B(430) ! JVS(4372) = Jac_FULL(284,272) @@ -11999,25 +12003,25 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4373) = Jac_FULL(284,273) JVS(4373) = 0 ! JVS(4374) = Jac_FULL(284,274) - JVS(4374) = -B(425)+B(1440) + JVS(4374) = -B(425)+B(1442) ! JVS(4375) = Jac_FULL(284,275) JVS(4375) = 0 ! JVS(4376) = Jac_FULL(284,276) JVS(4376) = 0 ! JVS(4377) = Jac_FULL(284,277) - JVS(4377) = -B(517)+B(1452) + JVS(4377) = -B(517)+B(1454) ! JVS(4378) = Jac_FULL(284,278) JVS(4378) = 0 ! JVS(4379) = Jac_FULL(284,279) JVS(4379) = B(35)-B(387) ! JVS(4380) = Jac_FULL(284,280) - JVS(4380) = -B(403)+B(422)+B(1496) + JVS(4380) = -B(403)+B(422)+B(1498) ! JVS(4381) = Jac_FULL(284,281) JVS(4381) = -B(389)+B(416) ! JVS(4382) = Jac_FULL(284,282) JVS(4382) = 0 ! JVS(4383) = Jac_FULL(284,283) - JVS(4383) = -B(401)+B(1410) + JVS(4383) = -B(401)+B(1412) ! JVS(4384) = Jac_FULL(284,284) JVS(4384) = -B(336)-B(338)-B(381)-B(384)-B(388)-B(390)-B(396)-B(400)-B(402)-B(404)-B(406)-B(408)-B(426)-B(428)-B(518)& &-B(544) @@ -12028,43 +12032,43 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4387) = Jac_FULL(284,287) JVS(4387) = 0 ! JVS(4388) = Jac_FULL(285,3) - JVS(4388) = B(1484) + JVS(4388) = B(1486) ! JVS(4389) = Jac_FULL(285,39) - JVS(4389) = 3*B(493)+3*B(1459) + JVS(4389) = 3*B(493)+3*B(1461) ! JVS(4390) = Jac_FULL(285,42) - JVS(4390) = 0.75*B(461)+2*B(1464) + JVS(4390) = 0.75*B(461)+2*B(1466) ! JVS(4391) = Jac_FULL(285,46) - JVS(4391) = B(1465) + JVS(4391) = B(1467) ! JVS(4392) = Jac_FULL(285,48) - JVS(4392) = 1.5*B(459)+3*B(1463) + JVS(4392) = 1.5*B(459)+3*B(1465) ! JVS(4393) = Jac_FULL(285,51) - JVS(4393) = 2.58*B(435)+4*B(1460) + JVS(4393) = 2.58*B(435)+4*B(1462) ! JVS(4394) = Jac_FULL(285,52) - JVS(4394) = 1.76*B(445)+3*B(1461) + JVS(4394) = 1.76*B(445)+3*B(1463) ! JVS(4395) = Jac_FULL(285,53) - JVS(4395) = 0.86*B(447)+2*B(1462) + JVS(4395) = 0.86*B(447)+2*B(1464) ! JVS(4396) = Jac_FULL(285,55) - JVS(4396) = 0.31*B(449)+B(1471) + JVS(4396) = 0.31*B(449)+B(1473) ! JVS(4397) = Jac_FULL(285,68) JVS(4397) = 3*B(491)+2*B(551) ! JVS(4398) = Jac_FULL(285,72) - JVS(4398) = B(1454) + JVS(4398) = B(1456) ! JVS(4399) = Jac_FULL(285,73) - JVS(4399) = 2*B(489)+B(549)+2*B(1449) + JVS(4399) = 2*B(489)+B(549)+2*B(1451) ! JVS(4400) = Jac_FULL(285,78) - JVS(4400) = 0.79*B(457)+2*B(501)+2*B(1466) + JVS(4400) = 0.79*B(457)+2*B(501)+2*B(1468) ! JVS(4401) = Jac_FULL(285,79) - JVS(4401) = 0.69*B(453)+2*B(497)+2*B(1467) + JVS(4401) = 0.69*B(453)+2*B(497)+2*B(1469) ! JVS(4402) = Jac_FULL(285,80) - JVS(4402) = B(499)+B(1468) + JVS(4402) = B(499)+B(1470) ! JVS(4403) = Jac_FULL(285,81) - JVS(4403) = 0.17*B(443)+B(495)+B(1469) + JVS(4403) = 0.17*B(443)+B(495)+B(1471) ! JVS(4404) = Jac_FULL(285,98) - JVS(4404) = B(1489) + JVS(4404) = B(1491) ! JVS(4405) = Jac_FULL(285,100) - JVS(4405) = B(487)-B(547)+B(1448) + JVS(4405) = B(487)-B(547)+B(1450) ! JVS(4406) = Jac_FULL(285,103) - JVS(4406) = B(530)-B(533)-B(535)+B(1473) + JVS(4406) = B(530)-B(533)-B(535)+B(1475) ! JVS(4407) = Jac_FULL(285,113) JVS(4407) = -B(579) ! JVS(4408) = Jac_FULL(285,121) @@ -12072,7 +12076,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4409) = Jac_FULL(285,129) JVS(4409) = -B(567) ! JVS(4410) = Jac_FULL(285,132) - JVS(4410) = B(1450) + JVS(4410) = B(1452) ! JVS(4411) = Jac_FULL(285,134) JVS(4411) = -B(557) ! JVS(4412) = Jac_FULL(285,157) @@ -12082,7 +12086,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4414) = Jac_FULL(285,186) JVS(4414) = -B(503) ! JVS(4415) = Jac_FULL(285,192) - JVS(4415) = 0.75*B(433)+B(467)+2*B(1451) + JVS(4415) = 0.75*B(433)+B(467)+2*B(1453) ! JVS(4416) = Jac_FULL(285,199) JVS(4416) = 0 ! JVS(4417) = Jac_FULL(285,207) @@ -12106,7 +12110,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4426) = Jac_FULL(285,230) JVS(4426) = 0 ! JVS(4427) = Jac_FULL(285,231) - JVS(4427) = B(1455) + JVS(4427) = B(1457) ! JVS(4428) = Jac_FULL(285,232) JVS(4428) = 0 ! JVS(4429) = Jac_FULL(285,233) @@ -12162,7 +12166,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4454) = Jac_FULL(285,258) JVS(4454) = 0 ! JVS(4455) = Jac_FULL(285,259) - JVS(4455) = -B(545)+B(1456) + JVS(4455) = -B(545)+B(1458) ! JVS(4456) = Jac_FULL(285,261) JVS(4456) = 0 ! JVS(4457) = Jac_FULL(285,262) @@ -12176,7 +12180,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4461) = Jac_FULL(285,266) JVS(4461) = 0 ! JVS(4462) = Jac_FULL(285,267) - JVS(4462) = B(1458) + JVS(4462) = B(1460) ! JVS(4463) = Jac_FULL(285,268) JVS(4463) = 0.67*B(429)+0.75*B(434)+2.58*B(436)+0.17*B(444)+1.76*B(446)+0.86*B(448)+0.31*B(450)+0.69*B(454)+0.79& &*B(458)+1.5*B(460)+0.75*B(462) @@ -12197,7 +12201,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4471) = Jac_FULL(285,276) JVS(4471) = 0 ! JVS(4472) = Jac_FULL(285,277) - JVS(4472) = B(471)+B(517)+B(521)+B(526)+B(527)+B(614)+B(1452) + JVS(4472) = B(471)+B(517)+B(521)+B(526)+B(527)+B(614)+B(1454) ! JVS(4473) = Jac_FULL(285,278) JVS(4473) = 0 ! JVS(4474) = Jac_FULL(285,279) @@ -12220,13 +12224,13 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4482) = Jac_FULL(285,287) JVS(4482) = 0 ! JVS(4483) = Jac_FULL(286,62) - JVS(4483) = B(395)+B(397)+B(1494) + JVS(4483) = B(395)+B(397)+B(1496) ! JVS(4484) = Jac_FULL(286,82) JVS(4484) = B(311)+0.75*B(313)+B(315) ! JVS(4485) = Jac_FULL(286,85) JVS(4485) = B(22)-B(23) ! JVS(4486) = Jac_FULL(286,108) - JVS(4486) = B(1495) + JVS(4486) = B(1497) ! JVS(4487) = Jac_FULL(286,135) JVS(4487) = -B(8) ! JVS(4488) = Jac_FULL(286,144) @@ -12246,7 +12250,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4495) = Jac_FULL(286,254) JVS(4495) = 0 ! JVS(4496) = Jac_FULL(286,256) - JVS(4496) = -B(1324) + JVS(4496) = -B(1326) ! JVS(4497) = Jac_FULL(286,257) JVS(4497) = 0 ! JVS(4498) = Jac_FULL(286,258) @@ -12262,7 +12266,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4503) = Jac_FULL(286,266) JVS(4503) = 0 ! JVS(4504) = Jac_FULL(286,267) - JVS(4504) = -B(1310) + JVS(4504) = -B(1312) ! JVS(4505) = Jac_FULL(286,268) JVS(4505) = 0 ! JVS(4506) = Jac_FULL(286,269) @@ -12300,37 +12304,37 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4522) = Jac_FULL(286,285) JVS(4522) = 0 ! JVS(4523) = Jac_FULL(286,286) - JVS(4523) = -B(3)-B(10)-B(16)-B(18)-B(19)-B(21)-B(318)-B(654)-B(662)-B(1311)-B(1325) + JVS(4523) = -B(3)-B(10)-B(16)-B(18)-B(19)-B(21)-B(318)-B(654)-B(662)-B(1313)-B(1327) ! JVS(4524) = Jac_FULL(286,287) JVS(4524) = 0 ! JVS(4525) = Jac_FULL(287,2) - JVS(4525) = B(1485) + JVS(4525) = B(1487) ! JVS(4526) = Jac_FULL(287,44) - JVS(4526) = B(1470) + JVS(4526) = B(1472) ! JVS(4527) = Jac_FULL(287,45) - JVS(4527) = 0.75*B(465)+2*B(1472) + JVS(4527) = 0.75*B(465)+2*B(1474) ! JVS(4528) = Jac_FULL(287,50) - JVS(4528) = B(1444) + JVS(4528) = B(1446) ! JVS(4529) = Jac_FULL(287,55) - JVS(4529) = 0.33*B(449)+B(1471) + JVS(4529) = 0.33*B(449)+B(1473) ! JVS(4530) = Jac_FULL(287,69) - JVS(4530) = B(1488) + JVS(4530) = B(1490) ! JVS(4531) = Jac_FULL(287,70) - JVS(4531) = 2*B(359)+0.95*B(439)+2*B(1446) + JVS(4531) = 2*B(359)+0.95*B(439)+2*B(1448) ! JVS(4532) = Jac_FULL(287,74) - JVS(4532) = 3*B(357)+1.36*B(441)+3*B(1445) + JVS(4532) = 3*B(357)+1.36*B(441)+3*B(1447) ! JVS(4533) = Jac_FULL(287,97) - JVS(4533) = B(361)+0.56*B(437)+B(1447) + JVS(4533) = B(361)+0.56*B(437)+B(1449) ! JVS(4534) = Jac_FULL(287,121) JVS(4534) = -B(351) ! JVS(4535) = Jac_FULL(287,124) - JVS(4535) = B(333)+2*B(1439) + JVS(4535) = B(333)+2*B(1441) ! JVS(4536) = Jac_FULL(287,132) - JVS(4536) = B(1450) + JVS(4536) = B(1452) ! JVS(4537) = Jac_FULL(287,157) JVS(4537) = -B(349) ! JVS(4538) = Jac_FULL(287,172) - JVS(4538) = -B(331)+B(1442) + JVS(4538) = -B(331)+B(1444) ! JVS(4539) = Jac_FULL(287,199) JVS(4539) = 0 ! JVS(4540) = Jac_FULL(287,219) @@ -12354,7 +12358,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4549) = Jac_FULL(287,255) JVS(4549) = 0 ! JVS(4550) = Jac_FULL(287,256) - JVS(4550) = B(1441) + JVS(4550) = B(1443) ! JVS(4551) = Jac_FULL(287,257) JVS(4551) = 0 ! JVS(4552) = Jac_FULL(287,259) @@ -12386,7 +12390,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(4565) = Jac_FULL(287,273) JVS(4565) = 0 ! JVS(4566) = Jac_FULL(287,274) - JVS(4566) = 2*B(327)+B(329)+B(339)+B(425)+B(537)+B(539)+B(600)+B(602)+B(604)+B(1440) + JVS(4566) = 2*B(327)+B(329)+B(339)+B(425)+B(537)+B(539)+B(600)+B(602)+B(604)+B(1442) ! JVS(4567) = Jac_FULL(287,275) JVS(4567) = 0 ! JVS(4568) = Jac_FULL(287,276) @@ -13102,9 +13106,9 @@ SUBROUTINE Jac_SP_Vec ( JVS, UV, JUV ) &+JVS(4262)*UV(205)+JVS(4263)*UV(206)+JVS(4265)*UV(211)+JVS(4266)*UV(212)+JVS(4268)*UV(218)+JVS(4269)*UV(220)& &+JVS(4270)*UV(221)+JVS(4271)*UV(222)+JVS(4275)*UV(228)+JVS(4277)*UV(230)+JVS(4279)*UV(234)+JVS(4281)*UV(237)& &+JVS(4284)*UV(240)+JVS(4285)*UV(241)+JVS(4289)*UV(245)+JVS(4291)*UV(247)+JVS(4297)*UV(254)+JVS(4298)*UV(255)& - &+JVS(4301)*UV(259)+JVS(4302)*UV(260)+JVS(4303)*UV(261)+JVS(4304)*UV(262)+JVS(4306)*UV(265)+JVS(4307)*UV(266)& - &+JVS(4309)*UV(269)+JVS(4310)*UV(270)+JVS(4319)*UV(279)+JVS(4320)*UV(280)+JVS(4321)*UV(281)+JVS(4323)*UV(283)& - &+JVS(4324)*UV(284)+JVS(4325)*UV(285)+JVS(4327)*UV(287) + &+JVS(4301)*UV(259)+JVS(4302)*UV(260)+JVS(4303)*UV(261)+JVS(4304)*UV(262)+JVS(4305)*UV(263)+JVS(4306)*UV(265)& + &+JVS(4307)*UV(266)+JVS(4309)*UV(269)+JVS(4310)*UV(270)+JVS(4319)*UV(279)+JVS(4320)*UV(280)+JVS(4321)*UV(281)& + &+JVS(4323)*UV(283)+JVS(4324)*UV(284)+JVS(4325)*UV(285)+JVS(4327)*UV(287) JUV(284) = JVS(4328)*UV(42)+JVS(4329)*UV(44)+JVS(4330)*UV(45)+JVS(4331)*UV(46)+JVS(4332)*UV(48)+JVS(4333)*UV(51)& &+JVS(4334)*UV(52)+JVS(4335)*UV(53)+JVS(4336)*UV(55)+JVS(4337)*UV(61)+JVS(4338)*UV(62)+JVS(4339)*UV(70)& &+JVS(4340)*UV(74)+JVS(4341)*UV(78)+JVS(4342)*UV(79)+JVS(4343)*UV(80)+JVS(4344)*UV(81)+JVS(4345)*UV(107)& @@ -13706,7 +13710,7 @@ SUBROUTINE JacTR_SP_Vec ( JVS, UV, JTUV ) &*UV(248)+JVS(2389)*UV(249)+JVS(2409)*UV(250)+JVS(2423)*UV(251)+JVS(2439)*UV(252)+JVS(2459)*UV(253)& &+JVS(2473)*UV(254)+JVS(2509)*UV(255)+JVS(2600)*UV(257)+JVS(2695)*UV(258)+JVS(2830)*UV(261)+JVS(2932)& &*UV(262)+JVS(2995)*UV(263)+JVS(3191)*UV(269)+JVS(3320)*UV(270)+JVS(3659)*UV(277)+JVS(3908)*UV(279)& - &+JVS(4007)*UV(280)+JVS(4178)*UV(281)+JVS(4458)*UV(285) + &+JVS(4007)*UV(280)+JVS(4178)*UV(281)+JVS(4305)*UV(283)+JVS(4458)*UV(285) JTUV(264) = JVS(300)*UV(32)+JVS(513)*UV(69)+JVS(629)*UV(98)+JVS(1763)*UV(223)+JVS(3012)*UV(264)+JVS(3041)*UV(265)& &+JVS(3523)*UV(273)+JVS(3583)*UV(275)+JVS(3609)*UV(276)+JVS(3694)*UV(278)+JVS(3909)*UV(279)+JVS(4212)& &*UV(282) diff --git a/KPP/fullchem/gckpp_Monitor.F90 b/KPP/fullchem/gckpp_Monitor.F90 index dcc8bdbf2..16ed8147b 100644 --- a/KPP/fullchem/gckpp_Monitor.F90 +++ b/KPP/fullchem/gckpp_Monitor.F90 @@ -817,267 +817,268 @@ MODULE gckpp_Monitor ' XRO2 + HO2 --> LXRO2H + HO2 ' /) ! index up to 660 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_22 = (/ & ' XRO2 + NO --> LXRO2N + NO ', & ! index 661 - ' HO2 --> H2O ', & ! index 662 - ' NO2 --> 0.5 LOx + 0.5 HNO2 + 0.5 HNO3 ', & ! index 663 - ' NO3 --> LOx + HNO3 ', & ! index 664 - ' NO3 --> 2 LOx + NIT ', & ! index 665 - ' NO3 --> 2 LOx + NITs ', & ! index 666 - ' N2O5 + H2O --> LOx + 2 HNO3 ', & ! index 667 - ' N2O5 + HCl --> LOx + ClNO2 + HNO3 ', & ! index 668 - ' N2O5 --> LOx + 2 HNO3 ', & ! index 669 - ' N2O5 + SALACL --> LOx + ClNO2 + HNO3 ', & ! index 670 - ' N2O5 + SALCCL --> LOx + ClNO2 + HNO3 ', & ! index 671 - ' SALACL + OH --> 0.5 Cl2 ', & ! index 672 - ' OH + SALCCL --> 0.5 Cl2 ', & ! index 673 - ' BrNO3 + H2O --> HOBr + HNO3 ', & ! index 674 - ' BrNO3 + HCl --> LOx + BrCl + HNO3 ', & ! index 675 - ' ClNO3 + H2O --> HNO3 + HOCl ', & ! index 676 - ' ClNO3 + HCl --> LOx + Cl2 + HNO3 ', & ! index 677 - ' ClNO3 + HBr --> LOx + BrCl + HNO3 ', & ! index 678 - ' ClNO3 + BrSALA --> LOx + BrCl + HNO3 ', & ! index 679 - ' ClNO3 + BrSALC --> LOx + BrCl + HNO3 ', & ! index 680 - ' ClNO3 + SALACL --> LOx + Cl2 + HNO3 ', & ! index 681 - ' ClNO3 + SALCCL --> LOx + Cl2 + HNO3 ', & ! index 682 - ' ClNO2 + SALACL --> LOx + HNO2 + Cl2 ', & ! index 683 - ' ClNO2 + SALCCL --> LOx + HNO2 + Cl2 ', & ! index 684 - ' ClNO2 + HCl --> LOx + HNO2 + Cl2 ', & ! index 685 - ' ClNO2 + BrSALA --> LOx + BrCl + HNO2 ', & ! index 686 - ' ClNO2 + BrSALC --> LOx + BrCl + HNO2 ', & ! index 687 - ' ClNO2 + HBr --> LOx + BrCl + HNO2 ', & ! index 688 - ' HOCl + HCl --> LOx + Cl2 + H2O ', & ! index 689 - ' HOCl + HBr --> LOx + BrCl + H2O ' /) ! index up to 690 + ' MO2 + NO3 --> LOx + CH2O + NO2 + HO2 ', & ! index 662 + ' HO2 --> H2O ', & ! index 663 + ' NO2 --> 0.5 LOx + 0.5 HNO2 + 0.5 HNO3 ', & ! index 664 + ' NO3 --> LOx + HNO3 ', & ! index 665 + ' NO3 --> 2 LOx + NIT ', & ! index 666 + ' NO3 --> 2 LOx + NITs ', & ! index 667 + ' N2O5 + H2O --> LOx + 2 HNO3 ', & ! index 668 + ' N2O5 + HCl --> LOx + ClNO2 + HNO3 ', & ! index 669 + ' N2O5 --> LOx + 2 HNO3 ', & ! index 670 + ' N2O5 + SALACL --> LOx + ClNO2 + HNO3 ', & ! index 671 + ' N2O5 + SALCCL --> LOx + ClNO2 + HNO3 ', & ! index 672 + ' SALACL + OH --> 0.5 Cl2 ', & ! index 673 + ' OH + SALCCL --> 0.5 Cl2 ', & ! index 674 + ' BrNO3 + H2O --> HOBr + HNO3 ', & ! index 675 + ' BrNO3 + HCl --> LOx + BrCl + HNO3 ', & ! index 676 + ' ClNO3 + H2O --> HNO3 + HOCl ', & ! index 677 + ' ClNO3 + HCl --> LOx + Cl2 + HNO3 ', & ! index 678 + ' ClNO3 + HBr --> LOx + BrCl + HNO3 ', & ! index 679 + ' ClNO3 + BrSALA --> LOx + BrCl + HNO3 ', & ! index 680 + ' ClNO3 + BrSALC --> LOx + BrCl + HNO3 ', & ! index 681 + ' ClNO3 + SALACL --> LOx + Cl2 + HNO3 ', & ! index 682 + ' ClNO3 + SALCCL --> LOx + Cl2 + HNO3 ', & ! index 683 + ' ClNO2 + SALACL --> LOx + HNO2 + Cl2 ', & ! index 684 + ' ClNO2 + SALCCL --> LOx + HNO2 + Cl2 ', & ! index 685 + ' ClNO2 + HCl --> LOx + HNO2 + Cl2 ', & ! index 686 + ' ClNO2 + BrSALA --> LOx + BrCl + HNO2 ', & ! index 687 + ' ClNO2 + BrSALC --> LOx + BrCl + HNO2 ', & ! index 688 + ' ClNO2 + HBr --> LOx + BrCl + HNO2 ', & ! index 689 + ' HOCl + HCl --> LOx + Cl2 + H2O ' /) ! index up to 690 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_23 = (/ & - ' HOCl + SALACL --> LOx + Cl2 + H2O ', & ! index 691 - ' HOCl + SALCCL --> LOx + Cl2 + H2O ', & ! index 692 - ' HOCl + SO2 --> SO4s + LOx + HCl ', & ! index 693 - ' HOBr + HBr --> LOx + Br2 + H2O ', & ! index 694 - ' HOBr + HCl --> LOx + BrCl + H2O ', & ! index 695 - ' HOBr + SALACL --> LOx + BrCl + H2O ', & ! index 696 - ' HOBr + SALCCL --> LOx + BrCl + H2O ', & ! index 697 - ' HOBr + BrSALA --> LOx + Br2 ', & ! index 698 - ' HOBr + BrSALC --> LOx + Br2 ', & ! index 699 - ' HOBr + SO2 --> SO4s + LOx + HBr ', & ! index 700 - ' O3 + HBr --> HOBr ', & ! index 701 - ' O3 + BrSALA --> HOBr ', & ! index 702 - ' O3 + BrSALC --> HOBr ', & ! index 703 - ' HBr --> BrSALA ', & ! index 704 - ' HBr --> BrSALC ', & ! index 705 - ' HI --> AERI ', & ! index 706 - ' HI --> ISALA ', & ! index 707 - ' HI --> ISALC ', & ! index 708 - ' I2O2 --> 2 AERI + 2 LOx ', & ! index 709 - ' I2O2 --> 2 ISALA + 2 LOx ', & ! index 710 - ' I2O2 --> 2 ISALC + 2 LOx ', & ! index 711 - ' I2O3 --> 2 AERI + 3 LOx ', & ! index 712 - ' I2O3 --> 2 ISALA + 3 LOx ', & ! index 713 - ' I2O3 --> 2 ISALC + 3 LOx ', & ! index 714 - ' I2O4 --> 2 AERI + 4 LOx ', & ! index 715 - ' I2O4 --> 2 ISALA + 4 LOx ', & ! index 716 - ' I2O4 --> 2 ISALC + 4 LOx ', & ! index 717 - ' IONO2 + H2O --> HNO3 + HOI ', & ! index 718 - ' IONO + BrSALA --> LOx + IBr + HNO2 ', & ! index 719 - ' IONO + BrSALC --> LOx + IBr + HNO2 ' /) ! index up to 720 + ' HOCl + HBr --> LOx + BrCl + H2O ', & ! index 691 + ' HOCl + SALACL --> LOx + Cl2 + H2O ', & ! index 692 + ' HOCl + SALCCL --> LOx + Cl2 + H2O ', & ! index 693 + ' HOCl + SO2 --> SO4s + LOx + HCl ', & ! index 694 + ' HOBr + HBr --> LOx + Br2 + H2O ', & ! index 695 + ' HOBr + HCl --> LOx + BrCl + H2O ', & ! index 696 + ' HOBr + SALACL --> LOx + BrCl + H2O ', & ! index 697 + ' HOBr + SALCCL --> LOx + BrCl + H2O ', & ! index 698 + ' HOBr + BrSALA --> LOx + Br2 ', & ! index 699 + ' HOBr + BrSALC --> LOx + Br2 ', & ! index 700 + ' HOBr + SO2 --> SO4s + LOx + HBr ', & ! index 701 + ' O3 + HBr --> HOBr ', & ! index 702 + ' O3 + BrSALA --> HOBr ', & ! index 703 + ' O3 + BrSALC --> HOBr ', & ! index 704 + ' HBr --> BrSALA ', & ! index 705 + ' HBr --> BrSALC ', & ! index 706 + ' HI --> AERI ', & ! index 707 + ' HI --> ISALA ', & ! index 708 + ' HI --> ISALC ', & ! index 709 + ' I2O2 --> 2 AERI + 2 LOx ', & ! index 710 + ' I2O2 --> 2 ISALA + 2 LOx ', & ! index 711 + ' I2O2 --> 2 ISALC + 2 LOx ', & ! index 712 + ' I2O3 --> 2 AERI + 3 LOx ', & ! index 713 + ' I2O3 --> 2 ISALA + 3 LOx ', & ! index 714 + ' I2O3 --> 2 ISALC + 3 LOx ', & ! index 715 + ' I2O4 --> 2 AERI + 4 LOx ', & ! index 716 + ' I2O4 --> 2 ISALA + 4 LOx ', & ! index 717 + ' I2O4 --> 2 ISALC + 4 LOx ', & ! index 718 + ' IONO2 + H2O --> HNO3 + HOI ', & ! index 719 + ' IONO + BrSALA --> LOx + IBr + HNO2 ' /) ! index up to 720 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_24 = (/ & - ' IONO + SALACL --> LOx + ICl + HNO2 ', & ! index 721 - ' IONO + SALCCL --> LOx + ICl + HNO2 ', & ! index 722 - ' IONO2 + BrSALA --> LOx + IBr + HNO3 ', & ! index 723 - ' IONO2 + BrSALC --> LOx + IBr + HNO3 ', & ! index 724 - ' IONO2 + SALACL --> LOx + ICl + HNO3 ', & ! index 725 - ' IONO2 + SALCCL --> LOx + ICl + HNO3 ', & ! index 726 - ' HOI + BrSALA --> LOx + IBr ', & ! index 727 - ' HOI + BrSALC --> LOx + IBr ', & ! index 728 - ' HOI + SALACL --> LOx + ICl ', & ! index 729 - ' HOI + SALCCL --> LOx + ICl ', & ! index 730 - ' GLYX --> SOAGX ', & ! index 731 - ' MGLY --> SOAGX ', & ! index 732 - ' IEPOXA --> SOAIE ', & ! index 733 - ' IEPOXB --> SOAIE ', & ! index 734 - ' IEPOXD --> SOAIE ', & ! index 735 - ' LVOC --> LVOCOA ', & ! index 736 - ' MVKN --> LOx + IONITA ', & ! index 737 - ' R4N2 --> LOx + IONITA ', & ! index 738 - ' MONITS --> LOx + MONITA ', & ! index 739 - ' MONITU --> LOx + MONITA ', & ! index 740 - ' HONIT --> LOx + MONITA ', & ! index 741 - ' PYAC --> SOAGX ', & ! index 742 - ' HMML --> SOAIE ', & ! index 743 - ' IHN1 --> LOx + IONITA ', & ! index 744 - ' IHN2 --> LOx + IONITA ', & ! index 745 - ' IHN3 --> LOx + IONITA ', & ! index 746 - ' IHN4 --> LOx + IONITA ', & ! index 747 - ' ICHE --> SOAIE ', & ! index 748 - ' INPD --> LOx + IONITA ', & ! index 749 - ' INPB --> LOx + IONITA ' /) ! index up to 750 + ' IONO + BrSALC --> LOx + IBr + HNO2 ', & ! index 721 + ' IONO + SALACL --> LOx + ICl + HNO2 ', & ! index 722 + ' IONO + SALCCL --> LOx + ICl + HNO2 ', & ! index 723 + ' IONO2 + BrSALA --> LOx + IBr + HNO3 ', & ! index 724 + ' IONO2 + BrSALC --> LOx + IBr + HNO3 ', & ! index 725 + ' IONO2 + SALACL --> LOx + ICl + HNO3 ', & ! index 726 + ' IONO2 + SALCCL --> LOx + ICl + HNO3 ', & ! index 727 + ' HOI + BrSALA --> LOx + IBr ', & ! index 728 + ' HOI + BrSALC --> LOx + IBr ', & ! index 729 + ' HOI + SALACL --> LOx + ICl ', & ! index 730 + ' HOI + SALCCL --> LOx + ICl ', & ! index 731 + ' GLYX --> SOAGX ', & ! index 732 + ' MGLY --> SOAGX ', & ! index 733 + ' IEPOXA --> SOAIE ', & ! index 734 + ' IEPOXB --> SOAIE ', & ! index 735 + ' IEPOXD --> SOAIE ', & ! index 736 + ' LVOC --> LVOCOA ', & ! index 737 + ' MVKN --> LOx + IONITA ', & ! index 738 + ' R4N2 --> LOx + IONITA ', & ! index 739 + ' MONITS --> LOx + MONITA ', & ! index 740 + ' MONITU --> LOx + MONITA ', & ! index 741 + ' HONIT --> LOx + MONITA ', & ! index 742 + ' PYAC --> SOAGX ', & ! index 743 + ' HMML --> SOAIE ', & ! index 744 + ' IHN1 --> LOx + IONITA ', & ! index 745 + ' IHN2 --> LOx + IONITA ', & ! index 746 + ' IHN3 --> LOx + IONITA ', & ! index 747 + ' IHN4 --> LOx + IONITA ', & ! index 748 + ' ICHE --> SOAIE ', & ! index 749 + ' INPD --> LOx + IONITA ' /) ! index up to 750 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_25 = (/ & - ' IDN --> 2 LOx + IONITA ', & ! index 751 - ' ITCN --> LOx + IONITA ', & ! index 752 - ' ITHN --> LOx + IONITA ', & ! index 753 - ' MCRHNB --> LOx + IONITA ', & ! index 754 - ' MCRHN --> LOx + IONITA ', & ! index 755 - ' NPHEN --> AONITA ', & ! index 756 - ' O3 --> O + O2 ', & ! index 757 - ' O3 --> O1D + O2 ', & ! index 758 - ' O2 --> 2 POx + 2 O ', & ! index 759 - ' NO2 --> NO + O ', & ! index 760 - ' H2O2 --> 2 OH ', & ! index 761 - ' MP --> CH2O + OH + HO2 ', & ! index 762 - ' CH2O --> PCO + H + CO + HO2 ', & ! index 763 - ' CH2O --> PCO + CO + H2 ', & ! index 764 - ' HNO3 --> NO2 + OH ', & ! index 765 - ' HNO2 --> OH + NO ', & ! index 766 - ' HNO4 --> POx + OH + NO3 ', & ! index 767 - ' HNO4 --> NO2 + HO2 ', & ! index 768 - ' NO3 --> NO2 + O ', & ! index 769 - ' NO3 --> 2 LOx + NO + O2 ', & ! index 770 - ' N2O5 --> NO2 + NO3 ', & ! index 771 - ' ALD2 --> 0.88 PCO + 0.12 MCO3 + 0.88 CO + 0.88 MO2 + HO2 ', & ! index 772 - ' ALD2 --> PCO + CH4 + CO ', & ! index 773 - ' PAN --> 0.3 POx + 0.7 MCO3 + 0.3 MO2 + 0.7 NO2 + 0.3 NO3 ', & ! index 774 - ' RCHO --> PCO + 0.07 A3O2 + 0.5 OTHRO2 + 0.27 B3O2 + CO + HO2 ', & ! index 775 - ' ACET --> MCO3 + MO2 ', & ! index 776 - ' ACET --> PCO + CO + 2 MO2 ', & ! index 777 - ' MEK --> 0.06 A3O2 + 0.425 OTHRO2 + 0.15 RCO3 + 0.23 B3O2 + 0.85 MCO3 + 0.15 MO2 ', & ! index 778 - ' GLYC --> PCO + 0.1 MOH + CO + 0.9 CH2O + 0.07 OH + 1.73 HO2 ', & ! index 779 - ' GLYX --> 2 PCO + 2 CO + 2 HO2 ' /) ! index up to 780 + ' INPB --> LOx + IONITA ', & ! index 751 + ' IDN --> 2 LOx + IONITA ', & ! index 752 + ' ITCN --> LOx + IONITA ', & ! index 753 + ' ITHN --> LOx + IONITA ', & ! index 754 + ' MCRHNB --> LOx + IONITA ', & ! index 755 + ' MCRHN --> LOx + IONITA ', & ! index 756 + ' NPHEN --> AONITA ', & ! index 757 + ' O3 --> O + O2 ', & ! index 758 + ' O3 --> O1D + O2 ', & ! index 759 + ' O2 --> 2 POx + 2 O ', & ! index 760 + ' NO2 --> NO + O ', & ! index 761 + ' H2O2 --> 2 OH ', & ! index 762 + ' MP --> CH2O + OH + HO2 ', & ! index 763 + ' CH2O --> PCO + H + CO + HO2 ', & ! index 764 + ' CH2O --> PCO + CO + H2 ', & ! index 765 + ' HNO3 --> NO2 + OH ', & ! index 766 + ' HNO2 --> OH + NO ', & ! index 767 + ' HNO4 --> POx + OH + NO3 ', & ! index 768 + ' HNO4 --> NO2 + HO2 ', & ! index 769 + ' NO3 --> NO2 + O ', & ! index 770 + ' NO3 --> 2 LOx + NO + O2 ', & ! index 771 + ' N2O5 --> NO2 + NO3 ', & ! index 772 + ' ALD2 --> 0.88 PCO + 0.12 MCO3 + 0.88 CO + 0.88 MO2 + HO2 ', & ! index 773 + ' ALD2 --> PCO + CH4 + CO ', & ! index 774 + ' PAN --> 0.3 POx + 0.7 MCO3 + 0.3 MO2 + 0.7 NO2 + 0.3 NO3 ', & ! index 775 + ' RCHO --> PCO + 0.07 A3O2 + 0.5 OTHRO2 + 0.27 B3O2 + CO + HO2 ', & ! index 776 + ' ACET --> MCO3 + MO2 ', & ! index 777 + ' ACET --> PCO + CO + 2 MO2 ', & ! index 778 + ' MEK --> 0.06 A3O2 + 0.425 OTHRO2 + 0.15 RCO3 + 0.23 B3O2 + 0.85 MCO3 + 0.15 MO2 ', & ! index 779 + ' GLYC --> PCO + 0.1 MOH + CO + 0.9 CH2O + 0.07 OH + 1.73 HO2 ' /) ! index up to 780 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_26 = (/ & - ' GLYX --> 2 PCO + 2 CO + H2 ', & ! index 781 - ' GLYX --> PCO + CO + CH2O ', & ! index 782 - ' MGLY --> PCO + MCO3 + CO + HO2 ', & ! index 783 - ' MVK --> PCO + PRPE + CO ', & ! index 784 - ' MVK --> PCO + MCO3 + CO + CH2O + HO2 ', & ! index 785 - ' MVK --> RCO3 + MO2 ', & ! index 786 - ' MACR --> PCO + MCO3 + CO + CH2O + HO2 ', & ! index 787 - ' HAC --> MCO3 + CH2O + HO2 ', & ! index 788 - ' PRPN --> RCHO + NO2 + OH + HO2 ', & ! index 789 - ' ETP --> ALD2 + OH + HO2 ', & ! index 790 - ' RA3P --> RCHO + OH + HO2 ', & ! index 791 - ' RB3P --> ACET + OH + HO2 ', & ! index 792 - ' R4P --> RCHO + OH + HO2 ', & ! index 793 - ' PP --> ALD2 + CH2O + OH + HO2 ', & ! index 794 - ' RP --> ALD2 + OH + HO2 ', & ! index 795 - ' R4N2 --> 0.32 ACET + 0.19 MEK + 0.05 A3O2 + 0.32 OTHRO2 + 0.18 B3O2 + 0.13 RCHO... etc.', & ! index 796 - ' MAP --> MO2 + OH ', & ! index 797 - ' Br2 --> 2 Br ', & ! index 798 - ' BrO --> O + Br ', & ! index 799 - ' HOBr --> LOx + OH + Br ', & ! index 800 - ' BrNO3 --> NO3 + Br ', & ! index 801 - ' BrNO3 --> NO2 + BrO ', & ! index 802 - ' BrNO2 --> NO2 + Br ', & ! index 803 - ' CHBr3 --> 3 Br ', & ! index 804 - ' CH2Br2 --> 2 Br ', & ! index 805 - ' CH3Br --> MO2 + Br ', & ! index 806 - ' CH3Cl --> MO2 + Cl ', & ! index 807 - ' CH2Cl2 --> 2 Cl ', & ! index 808 - ' BrCl --> Cl + Br ', & ! index 809 - ' Cl2 --> 2 Cl ' /) ! index up to 810 + ' GLYX --> 2 PCO + 2 CO + 2 HO2 ', & ! index 781 + ' GLYX --> 2 PCO + 2 CO + H2 ', & ! index 782 + ' GLYX --> PCO + CO + CH2O ', & ! index 783 + ' MGLY --> PCO + MCO3 + CO + HO2 ', & ! index 784 + ' MVK --> PCO + PRPE + CO ', & ! index 785 + ' MVK --> PCO + MCO3 + CO + CH2O + HO2 ', & ! index 786 + ' MVK --> RCO3 + MO2 ', & ! index 787 + ' MACR --> PCO + MCO3 + CO + CH2O + HO2 ', & ! index 788 + ' HAC --> MCO3 + CH2O + HO2 ', & ! index 789 + ' PRPN --> RCHO + NO2 + OH + HO2 ', & ! index 790 + ' ETP --> ALD2 + OH + HO2 ', & ! index 791 + ' RA3P --> RCHO + OH + HO2 ', & ! index 792 + ' RB3P --> ACET + OH + HO2 ', & ! index 793 + ' R4P --> RCHO + OH + HO2 ', & ! index 794 + ' PP --> ALD2 + CH2O + OH + HO2 ', & ! index 795 + ' RP --> ALD2 + OH + HO2 ', & ! index 796 + ' R4N2 --> 0.32 ACET + 0.19 MEK + 0.05 A3O2 + 0.32 OTHRO2 + 0.18 B3O2 + 0.13 RCHO... etc.', & ! index 797 + ' MAP --> MO2 + OH ', & ! index 798 + ' Br2 --> 2 Br ', & ! index 799 + ' BrO --> O + Br ', & ! index 800 + ' HOBr --> LOx + OH + Br ', & ! index 801 + ' BrNO3 --> NO3 + Br ', & ! index 802 + ' BrNO3 --> NO2 + BrO ', & ! index 803 + ' BrNO2 --> NO2 + Br ', & ! index 804 + ' CHBr3 --> 3 Br ', & ! index 805 + ' CH2Br2 --> 2 Br ', & ! index 806 + ' CH3Br --> MO2 + Br ', & ! index 807 + ' CH3Cl --> MO2 + Cl ', & ! index 808 + ' CH2Cl2 --> 2 Cl ', & ! index 809 + ' BrCl --> Cl + Br ' /) ! index up to 810 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_27 = (/ & - ' ClO --> O + Cl ', & ! index 811 - ' OClO --> ClO + O ', & ! index 812 - ' Cl2O2 --> 2 LOx + ClOO + Cl ', & ! index 813 - ' ClNO2 --> NO2 + Cl ', & ! index 814 - ' ClNO3 --> NO3 + Cl ', & ! index 815 - ' ClNO3 --> NO2 + ClO ', & ! index 816 - ' HOCl --> LOx + OH + Cl ', & ! index 817 - ' CH3CCl3 --> 3 Cl ', & ! index 818 - ' CCl4 --> 4 Cl ', & ! index 819 - ' CFC11 --> 3 Cl ', & ! index 820 - ' CFC12 --> 2 Cl ', & ! index 821 - ' CFC113 --> 3 Cl ', & ! index 822 - ' CFC114 --> 2 Cl ', & ! index 823 - ' CFC115 --> Cl ', & ! index 824 - ' HCFC123 --> 2 Cl ', & ! index 825 - ' HCFC141b --> 2 Cl ', & ! index 826 - ' HCFC142b --> Cl ', & ! index 827 - ' HCFC22 --> Cl ', & ! index 828 - ' H1301 --> Br ', & ! index 829 - ' H1211 --> Cl + Br ', & ! index 830 - ' H2402 --> 2 Br ', & ! index 831 - ' ClOO --> Cl + O2 ', & ! index 832 - ' I2 --> 2 I ', & ! index 833 - ' HOI --> LOx + I + OH ', & ! index 834 - ' IO --> I + O ', & ! index 835 - ' OIO --> 2 LOx + I + O2 ', & ! index 836 - ' INO --> I + NO ', & ! index 837 - ' IONO --> I + NO2 ', & ! index 838 - ' IONO2 --> I + NO3 ', & ! index 839 - ' I2O2 --> OIO + I ' /) ! index up to 840 + ' Cl2 --> 2 Cl ', & ! index 811 + ' ClO --> O + Cl ', & ! index 812 + ' OClO --> ClO + O ', & ! index 813 + ' Cl2O2 --> 2 LOx + ClOO + Cl ', & ! index 814 + ' ClNO2 --> NO2 + Cl ', & ! index 815 + ' ClNO3 --> NO3 + Cl ', & ! index 816 + ' ClNO3 --> NO2 + ClO ', & ! index 817 + ' HOCl --> LOx + OH + Cl ', & ! index 818 + ' CH3CCl3 --> 3 Cl ', & ! index 819 + ' CCl4 --> 4 Cl ', & ! index 820 + ' CFC11 --> 3 Cl ', & ! index 821 + ' CFC12 --> 2 Cl ', & ! index 822 + ' CFC113 --> 3 Cl ', & ! index 823 + ' CFC114 --> 2 Cl ', & ! index 824 + ' CFC115 --> Cl ', & ! index 825 + ' HCFC123 --> 2 Cl ', & ! index 826 + ' HCFC141b --> 2 Cl ', & ! index 827 + ' HCFC142b --> Cl ', & ! index 828 + ' HCFC22 --> Cl ', & ! index 829 + ' H1301 --> Br ', & ! index 830 + ' H1211 --> Cl + Br ', & ! index 831 + ' H2402 --> 2 Br ', & ! index 832 + ' ClOO --> Cl + O2 ', & ! index 833 + ' I2 --> 2 I ', & ! index 834 + ' HOI --> LOx + I + OH ', & ! index 835 + ' IO --> I + O ', & ! index 836 + ' OIO --> 2 LOx + I + O2 ', & ! index 837 + ' INO --> I + NO ', & ! index 838 + ' IONO --> I + NO2 ', & ! index 839 + ' IONO2 --> I + NO3 ' /) ! index up to 840 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_28 = (/ & - ' CH3I --> I ', & ! index 841 - ' CH2I2 --> 2 I ', & ! index 842 - ' CH2ICl --> I + Cl ', & ! index 843 - ' CH2IBr --> I + Br ', & ! index 844 - ' I2O4 --> 2 OIO ', & ! index 845 - ' I2O3 --> OIO + IO ', & ! index 846 - ' IBr --> I + Br ', & ! index 847 - ' ICl --> I + Cl ', & ! index 848 - ' MPN --> POx + CH2O + HO2 + NO3 ', & ! index 849 - ' MPN --> MO2 + NO2 ', & ! index 850 - ' ATOOH --> MCO3 + CH2O + OH ', & ! index 851 - ' N2O --> POx + O1D + N2 ', & ! index 852 - ' OCS --> PCO + CO + SO2 ', & ! index 853 - ' SO4 --> 2 OH + SO2 ', & ! index 854 - ' NO --> POx + N + O ', & ! index 855 - ' PIP --> RCHO + OH + HO2 ', & ! index 856 - ' ETHLN --> PCO + CO + CH2O + NO2 + HO2 ', & ! index 857 - ' MONITS --> MEK + NO2 ', & ! index 858 - ' MONITU --> RCHO + NO2 ', & ! index 859 - ' HONIT --> HAC + NO2 ', & ! index 860 - ' NITs --> HNO2 ', & ! index 861 - ' NITs --> POx + NO2 ', & ! index 862 - ' NIT --> HNO2 ', & ! index 863 - ' NIT --> POx + NO2 ', & ! index 864 - ' MENO3 --> POx + CH2O + NO2 + HO2 ', & ! index 865 - ' ETNO3 --> POx + ALD2 + NO2 + HO2 ', & ! index 866 - ' IPRNO3 --> POx + ACET + NO2 + HO2 ', & ! index 867 - ' NPRNO3 --> POx + RCHO + NO2 + HO2 ', & ! index 868 - ' HMHP --> CH2O + 2 OH ', & ! index 869 - ' HPETHNL --> PCO + CO + CH2O + OH + HO2 ' /) ! index up to 870 + ' I2O2 --> OIO + I ', & ! index 841 + ' CH3I --> I ', & ! index 842 + ' CH2I2 --> 2 I ', & ! index 843 + ' CH2ICl --> I + Cl ', & ! index 844 + ' CH2IBr --> I + Br ', & ! index 845 + ' I2O4 --> 2 OIO ', & ! index 846 + ' I2O3 --> OIO + IO ', & ! index 847 + ' IBr --> I + Br ', & ! index 848 + ' ICl --> I + Cl ', & ! index 849 + ' MPN --> POx + CH2O + HO2 + NO3 ', & ! index 850 + ' MPN --> MO2 + NO2 ', & ! index 851 + ' ATOOH --> MCO3 + CH2O + OH ', & ! index 852 + ' N2O --> POx + O1D + N2 ', & ! index 853 + ' OCS --> PCO + CO + SO2 ', & ! index 854 + ' SO4 --> 2 OH + SO2 ', & ! index 855 + ' NO --> POx + N + O ', & ! index 856 + ' PIP --> RCHO + OH + HO2 ', & ! index 857 + ' ETHLN --> PCO + CO + CH2O + NO2 + HO2 ', & ! index 858 + ' MONITS --> MEK + NO2 ', & ! index 859 + ' MONITU --> RCHO + NO2 ', & ! index 860 + ' HONIT --> HAC + NO2 ', & ! index 861 + ' NITs --> HNO2 ', & ! index 862 + ' NITs --> POx + NO2 ', & ! index 863 + ' NIT --> HNO2 ', & ! index 864 + ' NIT --> POx + NO2 ', & ! index 865 + ' MENO3 --> POx + CH2O + NO2 + HO2 ', & ! index 866 + ' ETNO3 --> POx + ALD2 + NO2 + HO2 ', & ! index 867 + ' IPRNO3 --> POx + ACET + NO2 + HO2 ', & ! index 868 + ' NPRNO3 --> POx + RCHO + NO2 + HO2 ', & ! index 869 + ' HMHP --> CH2O + 2 OH ' /) ! index up to 870 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_29 = (/ & - ' PYAC --> CO2 + MCO3 + HO2 ', & ! index 871 - ' PROPNN --> MCO3 + CH2O + NO2 ', & ! index 872 - ' MVKHC --> PCO + MCO3 + CO + CH2O + HO2 ', & ! index 873 - ' MVKHCB --> 0.5 PCO + 0.5 GLYX + 0.5 MGLY + 0.5 MCO3 + 0.5 CO + 1.5 HO2 ', & ! index 874 - ' MVKHP --> 0.47 MGLY + 0.53 GLYC + 0.53 MCO3 + 0.47 CH2O + OH + 0.47 HO2 ', & ! index 875 - ' MVKPC --> 0.571 PCO + 0.429 GLYX + 0.571 MGLY + 0.429 MCO3 + 0.571 CO + OH + 0.571 HO2 ', & ! index 876 - ' MCRENOL --> 0.875 PCO + 0.75 PYAC + 0.125 GLYX + 0.125 MGLY + 0.125 MCO3 + 0.875 C... etc.', & ! index 877 - ' MCRHP --> 0.77 PCO + 0.23 MGLY + 0.77 HAC + 0.77 CO + 0.23 CH2O + OH + HO2 ', & ! index 878 - ' MACR1OOH --> 1.238 CO2 + 0.25 MACR1OOH + 0.262 MCO3 + 0.75 CH2O + 0.488 MO2 + 0.75 OH ', & ! index 879 - ' MVKN --> 0.3 ETHLN + 0.69 GLYC + 1.01 MCO3 + 0.7 NO2 + 0.01 OH + 0.29 HO2 ', & ! index 880 - ' MCRHN --> PCO + HAC + CO + NO2 + HO2 ', & ! index 881 - ' MCRHNB --> PCO + PROPNN + CO + OH + HO2 ', & ! index 882 - ' RIPA --> MVK + CH2O + OH + HO2 ', & ! index 883 - ' RIPB --> MACR + CH2O + OH + HO2 ', & ! index 884 - ' RIPC --> HC5A + OH + HO2 ', & ! index 885 - ' RIPD --> HC5A + OH + HO2 ', & ! index 886 - ' HPALD1 --> 0.888 PCO + 0.112 IDC + 0.224 C4HVP1 + 0.112 MVKPC + 0.552 MCRENOL + 0... etc.', & ! index 887 - ' HPALD2 --> 0.818 PCO + 0.182 IDC + 0.182 C4HVP2 + 0.182 MVKPC + 0.455 MCRENOL + 0... etc.', & ! index 888 - ' HPALD3 --> PCO + MVK + CO + OH + HO2 ', & ! index 889 - ' HPALD4 --> PCO + MACR + CO + OH + HO2 ', & ! index 890 - ' IHN1 --> 0.55 PCO + 0.45 HC5A + 0.55 MVKHP + 0.55 CO + NO2 + 0.55 OH + 0.45 HO2 ', & ! index 891 - ' IHN2 --> MVK + CH2O + NO2 + HO2 ', & ! index 892 - ' IHN3 --> MACR + CH2O + NO2 + HO2 ', & ! index 893 - ' IHN4 --> 0.55 PCO + 0.45 HC5A + 0.55 MCRHP + 0.55 CO + NO2 + 0.55 OH + 0.45 HO2 ', & ! index 894 - ' INPB --> 0.903 MVK + 0.097 MACR + CH2O + NO2 + 0.67 OH + 0.33 HO2 ', & ! index 895 - ' INPD --> 0.841 INA + 0.159 ICN + OH + 0.159 HO2 ', & ! index 896 - ' INPD --> 0.841 IHOO1 + 0.159 IHOO4 + NO2 ', & ! index 897 - ' ICN --> 0.839 PCO + 0.161 IDC + 0.068 C4HVP1 + 0.128 C4HVP2 + 0.162 MVKPC + 0.... etc.', & ! index 898 - ' IDN --> 0.01 POx + 0.227 INA + 0.5 GLYC + 0.228 ICN + 0.05 MVK + 0.5 HAC + 0.0... etc.', & ! index 899 - ' ICPDH --> PCO + 0.35 MVKDH + 0.15 MCRDH + 0.5 MCRHP + CO + 0.5 OH + 1.5 HO2 ' /) ! index up to 900 - CHARACTER(LEN=100), PARAMETER, DIMENSION(13) :: EQN_NAMES_30 = (/ & - ' ICPDH --> 0.122 PCO + 0.122 MCRDH + 0.1 MVKHCB + 0.438 GLYX + 0.088 MGLY + 0.088... etc.', & ! index 901 - ' IDHDP --> 0.75 ICPDH + 0.25 GLYC + 0.25 HAC + 1.25 OH + 0.75 HO2 ', & ! index 902 - ' IDHPE --> 0.571 GLYX + 0.429 MGLY + 0.429 GLYC + 0.571 HAC + OH + HO2 ', & ! index 903 - ' IDCHP --> PCO + 0.454 MVKPC + 0.391 MVKHC + 0.155 MVKHCB + CO + 0.546 OH + 1.454 HO2 ', & ! index 904 - ' ITHN --> 0.5 MCRHN + 0.15 ETHLN + 0.3 GLYC + 0.05 MVKN + 0.45 HAC + 0.55 CH2O +... etc.', & ! index 905 - ' ITHN --> 0.5 HPETHNL + 0.05 ATOOH + 0.15 MCRHP + 0.35 GLYC + 0.8 HAC + 0.15 CH2... etc.', & ! index 906 - ' ITCN --> MGLY + GLYC + NO2 + OH ', & ! index 907 - ' ITCN --> PCO + 0.5 MVKHP + 0.5 MCRHP + CO + NO2 + HO2 ', & ! index 908 - ' ETHP --> ETO + OH ', & ! index 909 - ' BALD --> PCO + BENZO2 + CO + HO2 ', & ! index 910 - ' BZCO3H --> CO2 + BENZO2 + OH ', & ! index 911 - ' BENZP --> BENZO ', & ! index 912 - ' NPHEN --> CO2 + PCO + AROMP4 + HNO2 + CO + HO2 ' /) ! index up to 913 - CHARACTER(LEN=100), PARAMETER, DIMENSION(913) :: EQN_NAMES = (/& + ' HPETHNL --> PCO + CO + CH2O + OH + HO2 ', & ! index 871 + ' PYAC --> CO2 + MCO3 + HO2 ', & ! index 872 + ' PROPNN --> MCO3 + CH2O + NO2 ', & ! index 873 + ' MVKHC --> PCO + MCO3 + CO + CH2O + HO2 ', & ! index 874 + ' MVKHCB --> 0.5 PCO + 0.5 GLYX + 0.5 MGLY + 0.5 MCO3 + 0.5 CO + 1.5 HO2 ', & ! index 875 + ' MVKHP --> 0.47 MGLY + 0.53 GLYC + 0.53 MCO3 + 0.47 CH2O + OH + 0.47 HO2 ', & ! index 876 + ' MVKPC --> 0.571 PCO + 0.429 GLYX + 0.571 MGLY + 0.429 MCO3 + 0.571 CO + OH + 0.571 HO2 ', & ! index 877 + ' MCRENOL --> 0.875 PCO + 0.75 PYAC + 0.125 GLYX + 0.125 MGLY + 0.125 MCO3 + 0.875 C... etc.', & ! index 878 + ' MCRHP --> 0.77 PCO + 0.23 MGLY + 0.77 HAC + 0.77 CO + 0.23 CH2O + OH + HO2 ', & ! index 879 + ' MACR1OOH --> 1.238 CO2 + 0.25 MACR1OOH + 0.262 MCO3 + 0.75 CH2O + 0.488 MO2 + 0.75 OH ', & ! index 880 + ' MVKN --> 0.3 ETHLN + 0.69 GLYC + 1.01 MCO3 + 0.7 NO2 + 0.01 OH + 0.29 HO2 ', & ! index 881 + ' MCRHN --> PCO + HAC + CO + NO2 + HO2 ', & ! index 882 + ' MCRHNB --> PCO + PROPNN + CO + OH + HO2 ', & ! index 883 + ' RIPA --> MVK + CH2O + OH + HO2 ', & ! index 884 + ' RIPB --> MACR + CH2O + OH + HO2 ', & ! index 885 + ' RIPC --> HC5A + OH + HO2 ', & ! index 886 + ' RIPD --> HC5A + OH + HO2 ', & ! index 887 + ' HPALD1 --> 0.888 PCO + 0.112 IDC + 0.224 C4HVP1 + 0.112 MVKPC + 0.552 MCRENOL + 0... etc.', & ! index 888 + ' HPALD2 --> 0.818 PCO + 0.182 IDC + 0.182 C4HVP2 + 0.182 MVKPC + 0.455 MCRENOL + 0... etc.', & ! index 889 + ' HPALD3 --> PCO + MVK + CO + OH + HO2 ', & ! index 890 + ' HPALD4 --> PCO + MACR + CO + OH + HO2 ', & ! index 891 + ' IHN1 --> 0.55 PCO + 0.45 HC5A + 0.55 MVKHP + 0.55 CO + NO2 + 0.55 OH + 0.45 HO2 ', & ! index 892 + ' IHN2 --> MVK + CH2O + NO2 + HO2 ', & ! index 893 + ' IHN3 --> MACR + CH2O + NO2 + HO2 ', & ! index 894 + ' IHN4 --> 0.55 PCO + 0.45 HC5A + 0.55 MCRHP + 0.55 CO + NO2 + 0.55 OH + 0.45 HO2 ', & ! index 895 + ' INPB --> 0.903 MVK + 0.097 MACR + CH2O + NO2 + 0.67 OH + 0.33 HO2 ', & ! index 896 + ' INPD --> 0.841 INA + 0.159 ICN + OH + 0.159 HO2 ', & ! index 897 + ' INPD --> 0.841 IHOO1 + 0.159 IHOO4 + NO2 ', & ! index 898 + ' ICN --> 0.839 PCO + 0.161 IDC + 0.068 C4HVP1 + 0.128 C4HVP2 + 0.162 MVKPC + 0.... etc.', & ! index 899 + ' IDN --> 0.01 POx + 0.227 INA + 0.5 GLYC + 0.228 ICN + 0.05 MVK + 0.5 HAC + 0.0... etc.' /) ! index up to 900 + CHARACTER(LEN=100), PARAMETER, DIMENSION(14) :: EQN_NAMES_30 = (/ & + ' ICPDH --> PCO + 0.35 MVKDH + 0.15 MCRDH + 0.5 MCRHP + CO + 0.5 OH + 1.5 HO2 ', & ! index 901 + ' ICPDH --> 0.122 PCO + 0.122 MCRDH + 0.1 MVKHCB + 0.438 GLYX + 0.088 MGLY + 0.088... etc.', & ! index 902 + ' IDHDP --> 0.75 ICPDH + 0.25 GLYC + 0.25 HAC + 1.25 OH + 0.75 HO2 ', & ! index 903 + ' IDHPE --> 0.571 GLYX + 0.429 MGLY + 0.429 GLYC + 0.571 HAC + OH + HO2 ', & ! index 904 + ' IDCHP --> PCO + 0.454 MVKPC + 0.391 MVKHC + 0.155 MVKHCB + CO + 0.546 OH + 1.454 HO2 ', & ! index 905 + ' ITHN --> 0.5 MCRHN + 0.15 ETHLN + 0.3 GLYC + 0.05 MVKN + 0.45 HAC + 0.55 CH2O +... etc.', & ! index 906 + ' ITHN --> 0.5 HPETHNL + 0.05 ATOOH + 0.15 MCRHP + 0.35 GLYC + 0.8 HAC + 0.15 CH2... etc.', & ! index 907 + ' ITCN --> MGLY + GLYC + NO2 + OH ', & ! index 908 + ' ITCN --> PCO + 0.5 MVKHP + 0.5 MCRHP + CO + NO2 + HO2 ', & ! index 909 + ' ETHP --> ETO + OH ', & ! index 910 + ' BALD --> PCO + BENZO2 + CO + HO2 ', & ! index 911 + ' BZCO3H --> CO2 + BENZO2 + OH ', & ! index 912 + ' BENZP --> BENZO ', & ! index 913 + ' NPHEN --> CO2 + PCO + AROMP4 + HNO2 + CO + HO2 ' /) ! index up to 914 + CHARACTER(LEN=100), PARAMETER, DIMENSION(914) :: EQN_NAMES = (/& EQN_NAMES_0, EQN_NAMES_1, EQN_NAMES_2, EQN_NAMES_3, EQN_NAMES_4, & EQN_NAMES_5, EQN_NAMES_6, EQN_NAMES_7, EQN_NAMES_8, EQN_NAMES_9, & EQN_NAMES_10, EQN_NAMES_11, EQN_NAMES_12, EQN_NAMES_13, EQN_NAMES_14, & diff --git a/KPP/fullchem/gckpp_Parameters.F90 b/KPP/fullchem/gckpp_Parameters.F90 index f0c219009..d8e1d438c 100644 --- a/KPP/fullchem/gckpp_Parameters.F90 +++ b/KPP/fullchem/gckpp_Parameters.F90 @@ -43,13 +43,13 @@ MODULE gckpp_Parameters ! NFIX - Number of Fixed species INTEGER, PARAMETER :: NFIX = 4 ! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 913 + INTEGER, PARAMETER :: NREACT = 914 ! NVARST - Starting of variables in conc. vect. INTEGER, PARAMETER :: NVARST = 1 ! NFIXST - Starting of fixed in conc. vect. INTEGER, PARAMETER :: NFIXST = 288 ! NONZERO - Number of nonzero entries in Jacobian - INTEGER, PARAMETER :: NONZERO = 3486 + INTEGER, PARAMETER :: NONZERO = 3487 ! LU_NONZERO - Number of nonzero entries in LU factoriz. of Jacobian INTEGER, PARAMETER :: LU_NONZERO = 4579 ! CNVAR - (NVAR+1) Number of elements in compressed row format diff --git a/KPP/fullchem/gckpp_Rates.F90 b/KPP/fullchem/gckpp_Rates.F90 index 7c157ccad..ef5e36519 100644 --- a/KPP/fullchem/gckpp_Rates.F90 +++ b/KPP/fullchem/gckpp_Rates.F90 @@ -862,258 +862,259 @@ SUBROUTINE Update_RCONST ( ) RCONST(659) = (GCARR_abc(2.60d-12,0.0d0,350.0d0)) RCONST(660) = (GCARR_abc(1.40d-12,0.0d0,700.0d0)) RCONST(661) = (GCARR_abc(2.60d-12,0.0d0,350.0d0)) - RCONST(662) = (HO2uptk1stOrd(State_Het)) - RCONST(663) = (NO2uptk1stOrdAndCloud(State_Het)) - RCONST(664) = (NO3uptk1stOrdAndCloud(State_Het)) - RCONST(665) = (NO3hypsisClonSALA(State_Het)) - RCONST(666) = (NO3hypsisClonSALC(State_Het)) - RCONST(667) = (N2O5uptkByH2O(State_Het)) - RCONST(668) = (N2O5uptkByStratHCl(State_Het)) - RCONST(669) = (N2O5uptkByCloud(State_Het)) - RCONST(670) = (N2O5uptkBySALACl(State_Het)) - RCONST(671) = (N2O5uptkBySALCCl(State_Het)) - RCONST(672) = (OHuptkBySALACl(State_Het)) - RCONST(673) = (OHuptkBySALCCl(State_Het)) - RCONST(674) = (BrNO3uptkByH2O(State_Het)) - RCONST(675) = (BrNO3uptkByHCl(State_Het)) - RCONST(676) = (ClNO3uptkByH2O(State_Het)) - RCONST(677) = (ClNO3uptkByHCl(State_Het)) - RCONST(678) = (ClNO3uptkByHBr(State_Het)) - RCONST(679) = (ClNO3uptkByBrSALA(State_Het)) - RCONST(680) = (ClNO3uptkByBrSALC(State_Het)) - RCONST(681) = (ClNO3uptkBySALACL(State_Het)) - RCONST(682) = (ClNO3uptkBySALCCL(State_Het)) - RCONST(683) = (ClNO2uptkBySALACL(State_Het)) - RCONST(684) = (ClNO2uptkBySALCCL(State_Het)) - RCONST(685) = (ClNO2uptkByHCl(State_Het)) - RCONST(686) = (ClNO2uptkByBrSALA(State_Het)) - RCONST(687) = (ClNO2uptkByBrSALC(State_Het)) - RCONST(688) = (ClNO2uptkByHBr(State_Het)) - RCONST(689) = (HOClUptkByHCl(State_Het)) - RCONST(690) = (HOClUptkByHBr(State_Het)) - RCONST(691) = (HOClUptkBySALACL(State_Het)) - RCONST(692) = (HOClUptkBySALCCL(State_Het)) - RCONST(693) = (HOClUptkByHSO3m(State_Het)+HOClUptkBySO3mm(State_Het)) - RCONST(694) = (HOBrUptkByHBr(State_Het)) - RCONST(695) = (HOBrUptkByHCl(State_Het)) - RCONST(696) = (HOBrUptkBySALACL(State_Het)) - RCONST(697) = (HOBrUptkBySALCCL(State_Het)) - RCONST(698) = (HOBrUptkByBrSALA(State_Het)) - RCONST(699) = (HOBrUptkByBrSALC(State_Het)) - RCONST(700) = (HOBrUptkByHSO3m(State_Het)+HOBrUptkBySO3mm(State_Het)) - RCONST(701) = (O3uptkByHBr(State_Het)) - RCONST(702) = (O3uptkByBrSALA(State_Het)) - RCONST(703) = (O3uptkByBrSALC(State_Het)) - RCONST(704) = (HBrUptkBySALA(State_Het)) - RCONST(705) = (HBrUptkBySALC(State_Het)) - RCONST(706) = (IuptkBySulf1stOrd(SR_MW(ind_HI),0.10_dp,State_Het)) - RCONST(707) = (IuptkBySALA1stOrd(SR_MW(ind_HI),0.10_dp,State_Het)) - RCONST(708) = (IuptkBySALC1stOrd(SR_MW(ind_HI),0.10_dp,State_Het)) - RCONST(709) = (IuptkBySulf1stOrd(SR_MW(ind_I2O2),0.02_dp,State_Het)) - RCONST(710) = (IuptkBySALA1stOrd(SR_MW(ind_I2O2),0.02_dp,State_Het)) - RCONST(711) = (IuptkBySALC1stOrd(SR_MW(ind_I2O2),0.02_dp,State_Het)) - RCONST(712) = (IuptkBySulf1stOrd(SR_MW(ind_I2O3),0.02_dp,State_Het)) - RCONST(713) = (IuptkBySALA1stOrd(SR_MW(ind_I2O3),0.02_dp,State_Het)) - RCONST(714) = (IuptkBySALC1stOrd(SR_MW(ind_I2O3),0.02_dp,State_Het)) - RCONST(715) = (IuptkBySulf1stOrd(SR_MW(ind_I2O4),0.02_dp,State_Het)) - RCONST(716) = (IuptkBySALA1stOrd(SR_MW(ind_I2O4),0.02_dp,State_Het)) - RCONST(717) = (IuptkBySALC1stOrd(SR_MW(ind_I2O4),0.02_dp,State_Het)) - RCONST(718) = (IONO2uptkByH2O(State_Het)) - RCONST(719) = (IbrkdnByAcidBrSALA(SR_MW(ind_IONO),C(ind_IONO),0.02_dp,State_Het)) - RCONST(720) = (IbrkdnByAcidBrSALC(SR_MW(ind_IONO),C(ind_IONO),0.02_dp,State_Het)) - RCONST(721) = (IbrkdnByAcidSALACl(SR_MW(ind_IONO),C(ind_IONO),0.02_dp,State_Het)) - RCONST(722) = (IbrkdnByAcidSALCCl(SR_MW(ind_IONO),C(ind_IONO),0.02_dp,State_Het)) - RCONST(723) = (IbrkdnByAcidBrSALA(SR_MW(ind_IONO2),C(ind_IONO2),0.01_dp,State_Het)) - RCONST(724) = (IbrkdnByAcidBrSALC(SR_MW(ind_IONO2),C(ind_IONO2),0.01_dp,State_Het)) - RCONST(725) = (IbrkdnByAcidSALACl(SR_MW(ind_IONO2),C(ind_IONO2),0.01_dp,State_Het)) - RCONST(726) = (IbrkdnByAcidSALCCl(SR_MW(ind_IONO2),C(ind_IONO2),0.01_dp,State_Het)) - RCONST(727) = (IbrkdnByAcidBrSALA(SR_MW(ind_HOI),C(ind_HOI),0.01_dp,State_Het)) - RCONST(728) = (IbrkdnByAcidBrSALC(SR_MW(ind_HOI),C(ind_HOI),0.01_dp,State_Het)) - RCONST(729) = (IbrkdnByAcidSALACl(SR_MW(ind_HOI),C(ind_HOI),0.01_dp,State_Het)) - RCONST(730) = (IbrkdnByAcidSALCCl(SR_MW(ind_HOI),C(ind_HOI),0.01_dp,State_Het)) - RCONST(731) = (GLYXuptk1stOrd(SR_MW(ind_GLYX),State_Het)) - RCONST(732) = (MGLYuptk1stOrd(SR_MW(ind_MGLY),State_Het)) - RCONST(733) = (IEPOXuptk1stOrd(SR_MW(ind_IEPOXA),.FALSE.,State_Het)) - RCONST(734) = (IEPOXuptk1stOrd(SR_MW(ind_IEPOXB),.FALSE.,State_Het)) - RCONST(735) = (IEPOXuptk1stOrd(SR_MW(ind_IEPOXD),.FALSE.,State_Het)) - RCONST(736) = (VOCuptk1stOrd(SR_MW(ind_LVOC),1.0_dp,State_Het)) - RCONST(737) = (VOCuptk1stOrd(SR_MW(ind_MVKN),5.0E-3_dp,State_Het)) - RCONST(738) = (VOCuptk1stOrd(SR_MW(ind_R4N2),5.0E-3_dp,State_Het)) - RCONST(739) = (VOCuptk1stOrd(SR_MW(ind_MONITS),1.0E-2_dp,State_Het)) - RCONST(740) = (VOCuptk1stOrd(SR_MW(ind_MONITU),1.0E-2_dp,State_Het)) - RCONST(741) = (VOCuptk1stOrd(SR_MW(ind_HONIT),1.0E-2_dp,State_Het)) - RCONST(742) = (MGLYuptk1stOrd(SR_MW(ind_PYAC),State_Het)) - RCONST(743) = (IEPOXuptk1stOrd(SR_MW(ind_HMML),.TRUE.,State_Het)) - RCONST(744) = (VOCuptk1stOrd(SR_MW(ind_IHN1),5.0E-3_dp,State_Het)) - RCONST(745) = (VOCuptk1stOrd(SR_MW(ind_IHN2),5.0E-2_dp,State_Het)) - RCONST(746) = (VOCuptk1stOrd(SR_MW(ind_IHN3),5.0E-3_dp,State_Het)) - RCONST(747) = (VOCuptk1stOrd(SR_MW(ind_IHN4),5.0E-3_dp,State_Het)) - RCONST(748) = (IEPOXuptk1stOrd(SR_MW(ind_ICHE),.FALSE.,State_Het)) - RCONST(749) = (VOCuptk1stOrd(SR_MW(ind_INPD),5.0E-3_dp,State_Het)) - RCONST(750) = (VOCuptk1stOrd(SR_MW(ind_INPB),5.0E-3_dp,State_Het)) - RCONST(751) = (VOCuptk1stOrd(SR_MW(ind_IDN),5.0E-3_dp,State_Het)) - RCONST(752) = (VOCuptk1stOrd(SR_MW(ind_ITCN),5.0E-3_dp,State_Het)) - RCONST(753) = (VOCuptk1stOrd(SR_MW(ind_ITHN),5.0E-3_dp,State_Het)) - RCONST(754) = (VOCuptk1stOrd(SR_MW(ind_MCRHNB),5.0E-3_dp,State_Het)) - RCONST(755) = (VOCuptk1stOrd(SR_MW(ind_MCRHN),5.0E-3_dp,State_Het)) - RCONST(756) = (VOCuptk1stOrd(SR_MW(ind_NPHEN),1.0E-2_dp,State_Het)) - RCONST(757) = (PHOTOL(2)) - RCONST(758) = (PHOTOL(3)) - RCONST(759) = (PHOTOL(1)) - RCONST(760) = (PHOTOL(11)) - RCONST(761) = (PHOTOL(9)) - RCONST(762) = (PHOTOL(10)) - RCONST(763) = (PHOTOL(7)) - RCONST(764) = (PHOTOL(8)) - RCONST(765) = (PHOTOL(16)) - RCONST(766) = (PHOTOL(15)) - RCONST(767) = (PHOTOL(17)) - RCONST(768) = (PHOTOL(18)) - RCONST(769) = (PHOTOL(12)) - RCONST(770) = (PHOTOL(13)) - RCONST(771) = (PHOTOL(14)) - RCONST(772) = (PHOTOL(61)) - RCONST(773) = (PHOTOL(62)) - RCONST(774) = (PHOTOL(59)) - RCONST(775) = (PHOTOL(70)) - RCONST(776) = (PHOTOL(76)) - RCONST(777) = (PHOTOL(77)) - RCONST(778) = (PHOTOL(69)) - RCONST(779) = (PHOTOL(68)) - RCONST(780) = (PHOTOL(72)) - RCONST(781) = (PHOTOL(73)) - RCONST(782) = (PHOTOL(74)) - RCONST(783) = (PHOTOL(71)) - RCONST(784) = (PHOTOL(63)) - RCONST(785) = (PHOTOL(64)) - RCONST(786) = (PHOTOL(65)) - RCONST(787) = (PHOTOL(66)) - RCONST(788) = (PHOTOL(75)) - RCONST(789) = (PHOTOL(79)) - RCONST(790) = (PHOTOL(80)) - RCONST(791) = (PHOTOL(81)) - RCONST(792) = (PHOTOL(82)) - RCONST(793) = (PHOTOL(83)) - RCONST(794) = (PHOTOL(84)) - RCONST(795) = (PHOTOL(85)) - RCONST(796) = (PHOTOL(98)) - RCONST(797) = (PHOTOL(99)) - RCONST(798) = (PHOTOL(23)) - RCONST(799) = (PHOTOL(28)) - RCONST(800) = (PHOTOL(32)) - RCONST(801) = (PHOTOL(29)) - RCONST(802) = (PHOTOL(30)) - RCONST(803) = (PHOTOL(31)) - RCONST(804) = (PHOTOL(56)) - RCONST(805) = (PHOTOL(55)) - RCONST(806) = (PHOTOL(50)) - RCONST(807) = (PHOTOL(43)) - RCONST(808) = (PHOTOL(45)) - RCONST(809) = (PHOTOL(33)) - RCONST(810) = (PHOTOL(22)) - RCONST(811) = (PHOTOL(27)) - RCONST(812) = (PHOTOL(25)) - RCONST(813) = (PHOTOL(26)) - RCONST(814) = (PHOTOL(21)) - RCONST(815) = (PHOTOL(19)) - RCONST(816) = (PHOTOL(20)) - RCONST(817) = (PHOTOL(24)) - RCONST(818) = (PHOTOL(44)) - RCONST(819) = (PHOTOL(42)) - RCONST(820) = (PHOTOL(37)) - RCONST(821) = (PHOTOL(38)) - RCONST(822) = (PHOTOL(39)) - RCONST(823) = (PHOTOL(40)) - RCONST(824) = (PHOTOL(41)) - RCONST(825) = (PHOTOL(47)) - RCONST(826) = (PHOTOL(48)) - RCONST(827) = (PHOTOL(49)) - RCONST(828) = (PHOTOL(46)) - RCONST(829) = (PHOTOL(53)) - RCONST(830) = (PHOTOL(51)) - RCONST(831) = (PHOTOL(54)) - RCONST(832) = (PHOTOL(101)) - RCONST(833) = (PHOTOL(114)) - RCONST(834) = (PHOTOL(115)) - RCONST(835) = (PHOTOL(116)) - RCONST(836) = (PHOTOL(117)) - RCONST(837) = (PHOTOL(118)) - RCONST(838) = (PHOTOL(119)) - RCONST(839) = (PHOTOL(120)) - RCONST(840) = (PHOTOL(121)) - RCONST(841) = (PHOTOL(122)) - RCONST(842) = (PHOTOL(123)) - RCONST(843) = (PHOTOL(124)) - RCONST(844) = (PHOTOL(125)) - RCONST(845) = (PHOTOL(126)) - RCONST(846) = (PHOTOL(127)) - RCONST(847) = (PHOTOL(128)) - RCONST(848) = (PHOTOL(129)) - RCONST(849) = (PHOTOL(103)) - RCONST(850) = (PHOTOL(104)) - RCONST(851) = (PHOTOL(97)) - RCONST(852) = (PHOTOL(36)) - RCONST(853) = (PHOTOL(34)) - RCONST(854) = (PHOTOL(100)) - RCONST(855) = (PHOTOL(6)) - RCONST(856) = (PHOTOL(105)) - RCONST(857) = (PHOTOL(107)) - RCONST(858) = (PHOTOL(111)) - RCONST(859) = (PHOTOL(112)) - RCONST(860) = (PHOTOL(113)) - RCONST(861) = (PHOTOL(130)) - RCONST(862) = (PHOTOL(131)) - RCONST(863) = (PHOTOL(132)) - RCONST(864) = (PHOTOL(133)) - RCONST(865) = (PHOTOL(134)) - RCONST(866) = (PHOTOL(135)) - RCONST(867) = (PHOTOL(136)) - RCONST(868) = (PHOTOL(137)) - RCONST(869) = (PHOTOL(86)) - RCONST(870) = (PHOTOL(87)) - RCONST(871) = (PHOTOL(88)) - RCONST(872) = (PHOTOL(89)) - RCONST(873) = (PHOTOL(90)) - RCONST(874) = (PHOTOL(91)) - RCONST(875) = (PHOTOL(92)) - RCONST(876) = (PHOTOL(93)) - RCONST(877) = (PHOTOL(94)) - RCONST(878) = (PHOTOL(95)) - RCONST(879) = (PHOTOL(96)) - RCONST(880) = (PHOTOL(108)) - RCONST(881) = (PHOTOL(109)) - RCONST(882) = (PHOTOL(110)) - RCONST(883) = (PHOTOL(138)) - RCONST(884) = (PHOTOL(139)) - RCONST(885) = (PHOTOL(140)) - RCONST(886) = (PHOTOL(141)) - RCONST(887) = (PHOTOL(142)) - RCONST(888) = (PHOTOL(143)) - RCONST(889) = (PHOTOL(144)) - RCONST(890) = (PHOTOL(145)) - RCONST(891) = (PHOTOL(146)) - RCONST(892) = (PHOTOL(147)) - RCONST(893) = (PHOTOL(148)) - RCONST(894) = (PHOTOL(149)) - RCONST(895) = (PHOTOL(150)) - RCONST(896) = (PHOTOL(151)) - RCONST(897) = (PHOTOL(152)) - RCONST(898) = (PHOTOL(106)) - RCONST(899) = (PHOTOL(78)) - RCONST(900) = (PHOTOL(153)) - RCONST(901) = (PHOTOL(154)) - RCONST(902) = (PHOTOL(155)) - RCONST(903) = (PHOTOL(156)) - RCONST(904) = (PHOTOL(157)) - RCONST(905) = (PHOTOL(158)) - RCONST(906) = (PHOTOL(159)) - RCONST(907) = (PHOTOL(160)) - RCONST(908) = (PHOTOL(161)) - RCONST(909) = (PHOTOL(162)) - RCONST(910) = (PHOTOL(163)) - RCONST(911) = (PHOTOL(164)) - RCONST(912) = (PHOTOL(165)) - RCONST(913) = (PHOTOL(166)) + RCONST(662) = (1.20d-12) + RCONST(663) = (HO2uptk1stOrd(State_Het)) + RCONST(664) = (NO2uptk1stOrdAndCloud(State_Het)) + RCONST(665) = (NO3uptk1stOrdAndCloud(State_Het)) + RCONST(666) = (NO3hypsisClonSALA(State_Het)) + RCONST(667) = (NO3hypsisClonSALC(State_Het)) + RCONST(668) = (N2O5uptkByH2O(State_Het)) + RCONST(669) = (N2O5uptkByStratHCl(State_Het)) + RCONST(670) = (N2O5uptkByCloud(State_Het)) + RCONST(671) = (N2O5uptkBySALACl(State_Het)) + RCONST(672) = (N2O5uptkBySALCCl(State_Het)) + RCONST(673) = (OHuptkBySALACl(State_Het)) + RCONST(674) = (OHuptkBySALCCl(State_Het)) + RCONST(675) = (BrNO3uptkByH2O(State_Het)) + RCONST(676) = (BrNO3uptkByHCl(State_Het)) + RCONST(677) = (ClNO3uptkByH2O(State_Het)) + RCONST(678) = (ClNO3uptkByHCl(State_Het)) + RCONST(679) = (ClNO3uptkByHBr(State_Het)) + RCONST(680) = (ClNO3uptkByBrSALA(State_Het)) + RCONST(681) = (ClNO3uptkByBrSALC(State_Het)) + RCONST(682) = (ClNO3uptkBySALACL(State_Het)) + RCONST(683) = (ClNO3uptkBySALCCL(State_Het)) + RCONST(684) = (ClNO2uptkBySALACL(State_Het)) + RCONST(685) = (ClNO2uptkBySALCCL(State_Het)) + RCONST(686) = (ClNO2uptkByHCl(State_Het)) + RCONST(687) = (ClNO2uptkByBrSALA(State_Het)) + RCONST(688) = (ClNO2uptkByBrSALC(State_Het)) + RCONST(689) = (ClNO2uptkByHBr(State_Het)) + RCONST(690) = (HOClUptkByHCl(State_Het)) + RCONST(691) = (HOClUptkByHBr(State_Het)) + RCONST(692) = (HOClUptkBySALACL(State_Het)) + RCONST(693) = (HOClUptkBySALCCL(State_Het)) + RCONST(694) = (HOClUptkByHSO3m(State_Het)+HOClUptkBySO3mm(State_Het)) + RCONST(695) = (HOBrUptkByHBr(State_Het)) + RCONST(696) = (HOBrUptkByHCl(State_Het)) + RCONST(697) = (HOBrUptkBySALACL(State_Het)) + RCONST(698) = (HOBrUptkBySALCCL(State_Het)) + RCONST(699) = (HOBrUptkByBrSALA(State_Het)) + RCONST(700) = (HOBrUptkByBrSALC(State_Het)) + RCONST(701) = (HOBrUptkByHSO3m(State_Het)+HOBrUptkBySO3mm(State_Het)) + RCONST(702) = (O3uptkByHBr(State_Het)) + RCONST(703) = (O3uptkByBrSALA(State_Het)) + RCONST(704) = (O3uptkByBrSALC(State_Het)) + RCONST(705) = (HBrUptkBySALA(State_Het)) + RCONST(706) = (HBrUptkBySALC(State_Het)) + RCONST(707) = (IuptkBySulf1stOrd(SR_MW(ind_HI),0.10_dp,State_Het)) + RCONST(708) = (IuptkBySALA1stOrd(SR_MW(ind_HI),0.10_dp,State_Het)) + RCONST(709) = (IuptkBySALC1stOrd(SR_MW(ind_HI),0.10_dp,State_Het)) + RCONST(710) = (IuptkBySulf1stOrd(SR_MW(ind_I2O2),0.02_dp,State_Het)) + RCONST(711) = (IuptkBySALA1stOrd(SR_MW(ind_I2O2),0.02_dp,State_Het)) + RCONST(712) = (IuptkBySALC1stOrd(SR_MW(ind_I2O2),0.02_dp,State_Het)) + RCONST(713) = (IuptkBySulf1stOrd(SR_MW(ind_I2O3),0.02_dp,State_Het)) + RCONST(714) = (IuptkBySALA1stOrd(SR_MW(ind_I2O3),0.02_dp,State_Het)) + RCONST(715) = (IuptkBySALC1stOrd(SR_MW(ind_I2O3),0.02_dp,State_Het)) + RCONST(716) = (IuptkBySulf1stOrd(SR_MW(ind_I2O4),0.02_dp,State_Het)) + RCONST(717) = (IuptkBySALA1stOrd(SR_MW(ind_I2O4),0.02_dp,State_Het)) + RCONST(718) = (IuptkBySALC1stOrd(SR_MW(ind_I2O4),0.02_dp,State_Het)) + RCONST(719) = (IONO2uptkByH2O(State_Het)) + RCONST(720) = (IbrkdnByAcidBrSALA(SR_MW(ind_IONO),C(ind_IONO),0.02_dp,State_Het)) + RCONST(721) = (IbrkdnByAcidBrSALC(SR_MW(ind_IONO),C(ind_IONO),0.02_dp,State_Het)) + RCONST(722) = (IbrkdnByAcidSALACl(SR_MW(ind_IONO),C(ind_IONO),0.02_dp,State_Het)) + RCONST(723) = (IbrkdnByAcidSALCCl(SR_MW(ind_IONO),C(ind_IONO),0.02_dp,State_Het)) + RCONST(724) = (IbrkdnByAcidBrSALA(SR_MW(ind_IONO2),C(ind_IONO2),0.01_dp,State_Het)) + RCONST(725) = (IbrkdnByAcidBrSALC(SR_MW(ind_IONO2),C(ind_IONO2),0.01_dp,State_Het)) + RCONST(726) = (IbrkdnByAcidSALACl(SR_MW(ind_IONO2),C(ind_IONO2),0.01_dp,State_Het)) + RCONST(727) = (IbrkdnByAcidSALCCl(SR_MW(ind_IONO2),C(ind_IONO2),0.01_dp,State_Het)) + RCONST(728) = (IbrkdnByAcidBrSALA(SR_MW(ind_HOI),C(ind_HOI),0.01_dp,State_Het)) + RCONST(729) = (IbrkdnByAcidBrSALC(SR_MW(ind_HOI),C(ind_HOI),0.01_dp,State_Het)) + RCONST(730) = (IbrkdnByAcidSALACl(SR_MW(ind_HOI),C(ind_HOI),0.01_dp,State_Het)) + RCONST(731) = (IbrkdnByAcidSALCCl(SR_MW(ind_HOI),C(ind_HOI),0.01_dp,State_Het)) + RCONST(732) = (GLYXuptk1stOrd(SR_MW(ind_GLYX),State_Het)) + RCONST(733) = (MGLYuptk1stOrd(SR_MW(ind_MGLY),State_Het)) + RCONST(734) = (IEPOXuptk1stOrd(SR_MW(ind_IEPOXA),.FALSE.,State_Het)) + RCONST(735) = (IEPOXuptk1stOrd(SR_MW(ind_IEPOXB),.FALSE.,State_Het)) + RCONST(736) = (IEPOXuptk1stOrd(SR_MW(ind_IEPOXD),.FALSE.,State_Het)) + RCONST(737) = (VOCuptk1stOrd(SR_MW(ind_LVOC),1.0_dp,State_Het)) + RCONST(738) = (VOCuptk1stOrd(SR_MW(ind_MVKN),5.0E-3_dp,State_Het)) + RCONST(739) = (VOCuptk1stOrd(SR_MW(ind_R4N2),5.0E-3_dp,State_Het)) + RCONST(740) = (VOCuptk1stOrd(SR_MW(ind_MONITS),1.0E-2_dp,State_Het)) + RCONST(741) = (VOCuptk1stOrd(SR_MW(ind_MONITU),1.0E-2_dp,State_Het)) + RCONST(742) = (VOCuptk1stOrd(SR_MW(ind_HONIT),1.0E-2_dp,State_Het)) + RCONST(743) = (MGLYuptk1stOrd(SR_MW(ind_PYAC),State_Het)) + RCONST(744) = (IEPOXuptk1stOrd(SR_MW(ind_HMML),.TRUE.,State_Het)) + RCONST(745) = (VOCuptk1stOrd(SR_MW(ind_IHN1),5.0E-3_dp,State_Het)) + RCONST(746) = (VOCuptk1stOrd(SR_MW(ind_IHN2),5.0E-2_dp,State_Het)) + RCONST(747) = (VOCuptk1stOrd(SR_MW(ind_IHN3),5.0E-3_dp,State_Het)) + RCONST(748) = (VOCuptk1stOrd(SR_MW(ind_IHN4),5.0E-3_dp,State_Het)) + RCONST(749) = (IEPOXuptk1stOrd(SR_MW(ind_ICHE),.FALSE.,State_Het)) + RCONST(750) = (VOCuptk1stOrd(SR_MW(ind_INPD),5.0E-3_dp,State_Het)) + RCONST(751) = (VOCuptk1stOrd(SR_MW(ind_INPB),5.0E-3_dp,State_Het)) + RCONST(752) = (VOCuptk1stOrd(SR_MW(ind_IDN),5.0E-3_dp,State_Het)) + RCONST(753) = (VOCuptk1stOrd(SR_MW(ind_ITCN),5.0E-3_dp,State_Het)) + RCONST(754) = (VOCuptk1stOrd(SR_MW(ind_ITHN),5.0E-3_dp,State_Het)) + RCONST(755) = (VOCuptk1stOrd(SR_MW(ind_MCRHNB),5.0E-3_dp,State_Het)) + RCONST(756) = (VOCuptk1stOrd(SR_MW(ind_MCRHN),5.0E-3_dp,State_Het)) + RCONST(757) = (VOCuptk1stOrd(SR_MW(ind_NPHEN),1.0E-2_dp,State_Het)) + RCONST(758) = (PHOTOL(2)) + RCONST(759) = (PHOTOL(3)) + RCONST(760) = (PHOTOL(1)) + RCONST(761) = (PHOTOL(11)) + RCONST(762) = (PHOTOL(9)) + RCONST(763) = (PHOTOL(10)) + RCONST(764) = (PHOTOL(7)) + RCONST(765) = (PHOTOL(8)) + RCONST(766) = (PHOTOL(16)) + RCONST(767) = (PHOTOL(15)) + RCONST(768) = (PHOTOL(17)) + RCONST(769) = (PHOTOL(18)) + RCONST(770) = (PHOTOL(12)) + RCONST(771) = (PHOTOL(13)) + RCONST(772) = (PHOTOL(14)) + RCONST(773) = (PHOTOL(61)) + RCONST(774) = (PHOTOL(62)) + RCONST(775) = (PHOTOL(59)) + RCONST(776) = (PHOTOL(70)) + RCONST(777) = (PHOTOL(76)) + RCONST(778) = (PHOTOL(77)) + RCONST(779) = (PHOTOL(69)) + RCONST(780) = (PHOTOL(68)) + RCONST(781) = (PHOTOL(72)) + RCONST(782) = (PHOTOL(73)) + RCONST(783) = (PHOTOL(74)) + RCONST(784) = (PHOTOL(71)) + RCONST(785) = (PHOTOL(63)) + RCONST(786) = (PHOTOL(64)) + RCONST(787) = (PHOTOL(65)) + RCONST(788) = (PHOTOL(66)) + RCONST(789) = (PHOTOL(75)) + RCONST(790) = (PHOTOL(79)) + RCONST(791) = (PHOTOL(80)) + RCONST(792) = (PHOTOL(81)) + RCONST(793) = (PHOTOL(82)) + RCONST(794) = (PHOTOL(83)) + RCONST(795) = (PHOTOL(84)) + RCONST(796) = (PHOTOL(85)) + RCONST(797) = (PHOTOL(98)) + RCONST(798) = (PHOTOL(99)) + RCONST(799) = (PHOTOL(23)) + RCONST(800) = (PHOTOL(28)) + RCONST(801) = (PHOTOL(32)) + RCONST(802) = (PHOTOL(29)) + RCONST(803) = (PHOTOL(30)) + RCONST(804) = (PHOTOL(31)) + RCONST(805) = (PHOTOL(56)) + RCONST(806) = (PHOTOL(55)) + RCONST(807) = (PHOTOL(50)) + RCONST(808) = (PHOTOL(43)) + RCONST(809) = (PHOTOL(45)) + RCONST(810) = (PHOTOL(33)) + RCONST(811) = (PHOTOL(22)) + RCONST(812) = (PHOTOL(27)) + RCONST(813) = (PHOTOL(25)) + RCONST(814) = (PHOTOL(26)) + RCONST(815) = (PHOTOL(21)) + RCONST(816) = (PHOTOL(19)) + RCONST(817) = (PHOTOL(20)) + RCONST(818) = (PHOTOL(24)) + RCONST(819) = (PHOTOL(44)) + RCONST(820) = (PHOTOL(42)) + RCONST(821) = (PHOTOL(37)) + RCONST(822) = (PHOTOL(38)) + RCONST(823) = (PHOTOL(39)) + RCONST(824) = (PHOTOL(40)) + RCONST(825) = (PHOTOL(41)) + RCONST(826) = (PHOTOL(47)) + RCONST(827) = (PHOTOL(48)) + RCONST(828) = (PHOTOL(49)) + RCONST(829) = (PHOTOL(46)) + RCONST(830) = (PHOTOL(53)) + RCONST(831) = (PHOTOL(51)) + RCONST(832) = (PHOTOL(54)) + RCONST(833) = (PHOTOL(101)) + RCONST(834) = (PHOTOL(114)) + RCONST(835) = (PHOTOL(115)) + RCONST(836) = (PHOTOL(116)) + RCONST(837) = (PHOTOL(117)) + RCONST(838) = (PHOTOL(118)) + RCONST(839) = (PHOTOL(119)) + RCONST(840) = (PHOTOL(120)) + RCONST(841) = (PHOTOL(121)) + RCONST(842) = (PHOTOL(122)) + RCONST(843) = (PHOTOL(123)) + RCONST(844) = (PHOTOL(124)) + RCONST(845) = (PHOTOL(125)) + RCONST(846) = (PHOTOL(126)) + RCONST(847) = (PHOTOL(127)) + RCONST(848) = (PHOTOL(128)) + RCONST(849) = (PHOTOL(129)) + RCONST(850) = (PHOTOL(103)) + RCONST(851) = (PHOTOL(104)) + RCONST(852) = (PHOTOL(97)) + RCONST(853) = (PHOTOL(36)) + RCONST(854) = (PHOTOL(34)) + RCONST(855) = (PHOTOL(100)) + RCONST(856) = (PHOTOL(6)) + RCONST(857) = (PHOTOL(105)) + RCONST(858) = (PHOTOL(107)) + RCONST(859) = (PHOTOL(111)) + RCONST(860) = (PHOTOL(112)) + RCONST(861) = (PHOTOL(113)) + RCONST(862) = (PHOTOL(130)) + RCONST(863) = (PHOTOL(131)) + RCONST(864) = (PHOTOL(132)) + RCONST(865) = (PHOTOL(133)) + RCONST(866) = (PHOTOL(134)) + RCONST(867) = (PHOTOL(135)) + RCONST(868) = (PHOTOL(136)) + RCONST(869) = (PHOTOL(137)) + RCONST(870) = (PHOTOL(86)) + RCONST(871) = (PHOTOL(87)) + RCONST(872) = (PHOTOL(88)) + RCONST(873) = (PHOTOL(89)) + RCONST(874) = (PHOTOL(90)) + RCONST(875) = (PHOTOL(91)) + RCONST(876) = (PHOTOL(92)) + RCONST(877) = (PHOTOL(93)) + RCONST(878) = (PHOTOL(94)) + RCONST(879) = (PHOTOL(95)) + RCONST(880) = (PHOTOL(96)) + RCONST(881) = (PHOTOL(108)) + RCONST(882) = (PHOTOL(109)) + RCONST(883) = (PHOTOL(110)) + RCONST(884) = (PHOTOL(138)) + RCONST(885) = (PHOTOL(139)) + RCONST(886) = (PHOTOL(140)) + RCONST(887) = (PHOTOL(141)) + RCONST(888) = (PHOTOL(142)) + RCONST(889) = (PHOTOL(143)) + RCONST(890) = (PHOTOL(144)) + RCONST(891) = (PHOTOL(145)) + RCONST(892) = (PHOTOL(146)) + RCONST(893) = (PHOTOL(147)) + RCONST(894) = (PHOTOL(148)) + RCONST(895) = (PHOTOL(149)) + RCONST(896) = (PHOTOL(150)) + RCONST(897) = (PHOTOL(151)) + RCONST(898) = (PHOTOL(152)) + RCONST(899) = (PHOTOL(106)) + RCONST(900) = (PHOTOL(78)) + RCONST(901) = (PHOTOL(153)) + RCONST(902) = (PHOTOL(154)) + RCONST(903) = (PHOTOL(155)) + RCONST(904) = (PHOTOL(156)) + RCONST(905) = (PHOTOL(157)) + RCONST(906) = (PHOTOL(158)) + RCONST(907) = (PHOTOL(159)) + RCONST(908) = (PHOTOL(160)) + RCONST(909) = (PHOTOL(161)) + RCONST(910) = (PHOTOL(162)) + RCONST(911) = (PHOTOL(163)) + RCONST(912) = (PHOTOL(164)) + RCONST(913) = (PHOTOL(165)) + RCONST(914) = (PHOTOL(166)) END SUBROUTINE Update_RCONST @@ -1133,163 +1134,163 @@ SUBROUTINE Update_PHOTO ( ) USE gckpp_Global - RCONST(757) = (PHOTOL(2)) - RCONST(758) = (PHOTOL(3)) - RCONST(759) = (PHOTOL(1)) - RCONST(760) = (PHOTOL(11)) - RCONST(761) = (PHOTOL(9)) - RCONST(762) = (PHOTOL(10)) - RCONST(763) = (PHOTOL(7)) - RCONST(764) = (PHOTOL(8)) - RCONST(765) = (PHOTOL(16)) - RCONST(766) = (PHOTOL(15)) - RCONST(767) = (PHOTOL(17)) - RCONST(768) = (PHOTOL(18)) - RCONST(769) = (PHOTOL(12)) - RCONST(770) = (PHOTOL(13)) - RCONST(771) = (PHOTOL(14)) - RCONST(772) = (PHOTOL(61)) - RCONST(773) = (PHOTOL(62)) - RCONST(774) = (PHOTOL(59)) - RCONST(775) = (PHOTOL(70)) - RCONST(776) = (PHOTOL(76)) - RCONST(777) = (PHOTOL(77)) - RCONST(778) = (PHOTOL(69)) - RCONST(779) = (PHOTOL(68)) - RCONST(780) = (PHOTOL(72)) - RCONST(781) = (PHOTOL(73)) - RCONST(782) = (PHOTOL(74)) - RCONST(783) = (PHOTOL(71)) - RCONST(784) = (PHOTOL(63)) - RCONST(785) = (PHOTOL(64)) - RCONST(786) = (PHOTOL(65)) - RCONST(787) = (PHOTOL(66)) - RCONST(788) = (PHOTOL(75)) - RCONST(789) = (PHOTOL(79)) - RCONST(790) = (PHOTOL(80)) - RCONST(791) = (PHOTOL(81)) - RCONST(792) = (PHOTOL(82)) - RCONST(793) = (PHOTOL(83)) - RCONST(794) = (PHOTOL(84)) - RCONST(795) = (PHOTOL(85)) - RCONST(796) = (PHOTOL(98)) - RCONST(797) = (PHOTOL(99)) - RCONST(798) = (PHOTOL(23)) - RCONST(799) = (PHOTOL(28)) - RCONST(800) = (PHOTOL(32)) - RCONST(801) = (PHOTOL(29)) - RCONST(802) = (PHOTOL(30)) - RCONST(803) = (PHOTOL(31)) - RCONST(804) = (PHOTOL(56)) - RCONST(805) = (PHOTOL(55)) - RCONST(806) = (PHOTOL(50)) - RCONST(807) = (PHOTOL(43)) - RCONST(808) = (PHOTOL(45)) - RCONST(809) = (PHOTOL(33)) - RCONST(810) = (PHOTOL(22)) - RCONST(811) = (PHOTOL(27)) - RCONST(812) = (PHOTOL(25)) - RCONST(813) = (PHOTOL(26)) - RCONST(814) = (PHOTOL(21)) - RCONST(815) = (PHOTOL(19)) - RCONST(816) = (PHOTOL(20)) - RCONST(817) = (PHOTOL(24)) - RCONST(818) = (PHOTOL(44)) - RCONST(819) = (PHOTOL(42)) - RCONST(820) = (PHOTOL(37)) - RCONST(821) = (PHOTOL(38)) - RCONST(822) = (PHOTOL(39)) - RCONST(823) = (PHOTOL(40)) - RCONST(824) = (PHOTOL(41)) - RCONST(825) = (PHOTOL(47)) - RCONST(826) = (PHOTOL(48)) - RCONST(827) = (PHOTOL(49)) - RCONST(828) = (PHOTOL(46)) - RCONST(829) = (PHOTOL(53)) - RCONST(830) = (PHOTOL(51)) - RCONST(831) = (PHOTOL(54)) - RCONST(832) = (PHOTOL(101)) - RCONST(833) = (PHOTOL(114)) - RCONST(834) = (PHOTOL(115)) - RCONST(835) = (PHOTOL(116)) - RCONST(836) = (PHOTOL(117)) - RCONST(837) = (PHOTOL(118)) - RCONST(838) = (PHOTOL(119)) - RCONST(839) = (PHOTOL(120)) - RCONST(840) = (PHOTOL(121)) - RCONST(841) = (PHOTOL(122)) - RCONST(842) = (PHOTOL(123)) - RCONST(843) = (PHOTOL(124)) - RCONST(844) = (PHOTOL(125)) - RCONST(845) = (PHOTOL(126)) - RCONST(846) = (PHOTOL(127)) - RCONST(847) = (PHOTOL(128)) - RCONST(848) = (PHOTOL(129)) - RCONST(849) = (PHOTOL(103)) - RCONST(850) = (PHOTOL(104)) - RCONST(851) = (PHOTOL(97)) - RCONST(852) = (PHOTOL(36)) - RCONST(853) = (PHOTOL(34)) - RCONST(854) = (PHOTOL(100)) - RCONST(855) = (PHOTOL(6)) - RCONST(856) = (PHOTOL(105)) - RCONST(857) = (PHOTOL(107)) - RCONST(858) = (PHOTOL(111)) - RCONST(859) = (PHOTOL(112)) - RCONST(860) = (PHOTOL(113)) - RCONST(861) = (PHOTOL(130)) - RCONST(862) = (PHOTOL(131)) - RCONST(863) = (PHOTOL(132)) - RCONST(864) = (PHOTOL(133)) - RCONST(865) = (PHOTOL(134)) - RCONST(866) = (PHOTOL(135)) - RCONST(867) = (PHOTOL(136)) - RCONST(868) = (PHOTOL(137)) - RCONST(869) = (PHOTOL(86)) - RCONST(870) = (PHOTOL(87)) - RCONST(871) = (PHOTOL(88)) - RCONST(872) = (PHOTOL(89)) - RCONST(873) = (PHOTOL(90)) - RCONST(874) = (PHOTOL(91)) - RCONST(875) = (PHOTOL(92)) - RCONST(876) = (PHOTOL(93)) - RCONST(877) = (PHOTOL(94)) - RCONST(878) = (PHOTOL(95)) - RCONST(879) = (PHOTOL(96)) - RCONST(880) = (PHOTOL(108)) - RCONST(881) = (PHOTOL(109)) - RCONST(882) = (PHOTOL(110)) - RCONST(883) = (PHOTOL(138)) - RCONST(884) = (PHOTOL(139)) - RCONST(885) = (PHOTOL(140)) - RCONST(886) = (PHOTOL(141)) - RCONST(887) = (PHOTOL(142)) - RCONST(888) = (PHOTOL(143)) - RCONST(889) = (PHOTOL(144)) - RCONST(890) = (PHOTOL(145)) - RCONST(891) = (PHOTOL(146)) - RCONST(892) = (PHOTOL(147)) - RCONST(893) = (PHOTOL(148)) - RCONST(894) = (PHOTOL(149)) - RCONST(895) = (PHOTOL(150)) - RCONST(896) = (PHOTOL(151)) - RCONST(897) = (PHOTOL(152)) - RCONST(898) = (PHOTOL(106)) - RCONST(899) = (PHOTOL(78)) - RCONST(900) = (PHOTOL(153)) - RCONST(901) = (PHOTOL(154)) - RCONST(902) = (PHOTOL(155)) - RCONST(903) = (PHOTOL(156)) - RCONST(904) = (PHOTOL(157)) - RCONST(905) = (PHOTOL(158)) - RCONST(906) = (PHOTOL(159)) - RCONST(907) = (PHOTOL(160)) - RCONST(908) = (PHOTOL(161)) - RCONST(909) = (PHOTOL(162)) - RCONST(910) = (PHOTOL(163)) - RCONST(911) = (PHOTOL(164)) - RCONST(912) = (PHOTOL(165)) - RCONST(913) = (PHOTOL(166)) + RCONST(758) = (PHOTOL(2)) + RCONST(759) = (PHOTOL(3)) + RCONST(760) = (PHOTOL(1)) + RCONST(761) = (PHOTOL(11)) + RCONST(762) = (PHOTOL(9)) + RCONST(763) = (PHOTOL(10)) + RCONST(764) = (PHOTOL(7)) + RCONST(765) = (PHOTOL(8)) + RCONST(766) = (PHOTOL(16)) + RCONST(767) = (PHOTOL(15)) + RCONST(768) = (PHOTOL(17)) + RCONST(769) = (PHOTOL(18)) + RCONST(770) = (PHOTOL(12)) + RCONST(771) = (PHOTOL(13)) + RCONST(772) = (PHOTOL(14)) + RCONST(773) = (PHOTOL(61)) + RCONST(774) = (PHOTOL(62)) + RCONST(775) = (PHOTOL(59)) + RCONST(776) = (PHOTOL(70)) + RCONST(777) = (PHOTOL(76)) + RCONST(778) = (PHOTOL(77)) + RCONST(779) = (PHOTOL(69)) + RCONST(780) = (PHOTOL(68)) + RCONST(781) = (PHOTOL(72)) + RCONST(782) = (PHOTOL(73)) + RCONST(783) = (PHOTOL(74)) + RCONST(784) = (PHOTOL(71)) + RCONST(785) = (PHOTOL(63)) + RCONST(786) = (PHOTOL(64)) + RCONST(787) = (PHOTOL(65)) + RCONST(788) = (PHOTOL(66)) + RCONST(789) = (PHOTOL(75)) + RCONST(790) = (PHOTOL(79)) + RCONST(791) = (PHOTOL(80)) + RCONST(792) = (PHOTOL(81)) + RCONST(793) = (PHOTOL(82)) + RCONST(794) = (PHOTOL(83)) + RCONST(795) = (PHOTOL(84)) + RCONST(796) = (PHOTOL(85)) + RCONST(797) = (PHOTOL(98)) + RCONST(798) = (PHOTOL(99)) + RCONST(799) = (PHOTOL(23)) + RCONST(800) = (PHOTOL(28)) + RCONST(801) = (PHOTOL(32)) + RCONST(802) = (PHOTOL(29)) + RCONST(803) = (PHOTOL(30)) + RCONST(804) = (PHOTOL(31)) + RCONST(805) = (PHOTOL(56)) + RCONST(806) = (PHOTOL(55)) + RCONST(807) = (PHOTOL(50)) + RCONST(808) = (PHOTOL(43)) + RCONST(809) = (PHOTOL(45)) + RCONST(810) = (PHOTOL(33)) + RCONST(811) = (PHOTOL(22)) + RCONST(812) = (PHOTOL(27)) + RCONST(813) = (PHOTOL(25)) + RCONST(814) = (PHOTOL(26)) + RCONST(815) = (PHOTOL(21)) + RCONST(816) = (PHOTOL(19)) + RCONST(817) = (PHOTOL(20)) + RCONST(818) = (PHOTOL(24)) + RCONST(819) = (PHOTOL(44)) + RCONST(820) = (PHOTOL(42)) + RCONST(821) = (PHOTOL(37)) + RCONST(822) = (PHOTOL(38)) + RCONST(823) = (PHOTOL(39)) + RCONST(824) = (PHOTOL(40)) + RCONST(825) = (PHOTOL(41)) + RCONST(826) = (PHOTOL(47)) + RCONST(827) = (PHOTOL(48)) + RCONST(828) = (PHOTOL(49)) + RCONST(829) = (PHOTOL(46)) + RCONST(830) = (PHOTOL(53)) + RCONST(831) = (PHOTOL(51)) + RCONST(832) = (PHOTOL(54)) + RCONST(833) = (PHOTOL(101)) + RCONST(834) = (PHOTOL(114)) + RCONST(835) = (PHOTOL(115)) + RCONST(836) = (PHOTOL(116)) + RCONST(837) = (PHOTOL(117)) + RCONST(838) = (PHOTOL(118)) + RCONST(839) = (PHOTOL(119)) + RCONST(840) = (PHOTOL(120)) + RCONST(841) = (PHOTOL(121)) + RCONST(842) = (PHOTOL(122)) + RCONST(843) = (PHOTOL(123)) + RCONST(844) = (PHOTOL(124)) + RCONST(845) = (PHOTOL(125)) + RCONST(846) = (PHOTOL(126)) + RCONST(847) = (PHOTOL(127)) + RCONST(848) = (PHOTOL(128)) + RCONST(849) = (PHOTOL(129)) + RCONST(850) = (PHOTOL(103)) + RCONST(851) = (PHOTOL(104)) + RCONST(852) = (PHOTOL(97)) + RCONST(853) = (PHOTOL(36)) + RCONST(854) = (PHOTOL(34)) + RCONST(855) = (PHOTOL(100)) + RCONST(856) = (PHOTOL(6)) + RCONST(857) = (PHOTOL(105)) + RCONST(858) = (PHOTOL(107)) + RCONST(859) = (PHOTOL(111)) + RCONST(860) = (PHOTOL(112)) + RCONST(861) = (PHOTOL(113)) + RCONST(862) = (PHOTOL(130)) + RCONST(863) = (PHOTOL(131)) + RCONST(864) = (PHOTOL(132)) + RCONST(865) = (PHOTOL(133)) + RCONST(866) = (PHOTOL(134)) + RCONST(867) = (PHOTOL(135)) + RCONST(868) = (PHOTOL(136)) + RCONST(869) = (PHOTOL(137)) + RCONST(870) = (PHOTOL(86)) + RCONST(871) = (PHOTOL(87)) + RCONST(872) = (PHOTOL(88)) + RCONST(873) = (PHOTOL(89)) + RCONST(874) = (PHOTOL(90)) + RCONST(875) = (PHOTOL(91)) + RCONST(876) = (PHOTOL(92)) + RCONST(877) = (PHOTOL(93)) + RCONST(878) = (PHOTOL(94)) + RCONST(879) = (PHOTOL(95)) + RCONST(880) = (PHOTOL(96)) + RCONST(881) = (PHOTOL(108)) + RCONST(882) = (PHOTOL(109)) + RCONST(883) = (PHOTOL(110)) + RCONST(884) = (PHOTOL(138)) + RCONST(885) = (PHOTOL(139)) + RCONST(886) = (PHOTOL(140)) + RCONST(887) = (PHOTOL(141)) + RCONST(888) = (PHOTOL(142)) + RCONST(889) = (PHOTOL(143)) + RCONST(890) = (PHOTOL(144)) + RCONST(891) = (PHOTOL(145)) + RCONST(892) = (PHOTOL(146)) + RCONST(893) = (PHOTOL(147)) + RCONST(894) = (PHOTOL(148)) + RCONST(895) = (PHOTOL(149)) + RCONST(896) = (PHOTOL(150)) + RCONST(897) = (PHOTOL(151)) + RCONST(898) = (PHOTOL(152)) + RCONST(899) = (PHOTOL(106)) + RCONST(900) = (PHOTOL(78)) + RCONST(901) = (PHOTOL(153)) + RCONST(902) = (PHOTOL(154)) + RCONST(903) = (PHOTOL(155)) + RCONST(904) = (PHOTOL(156)) + RCONST(905) = (PHOTOL(157)) + RCONST(906) = (PHOTOL(158)) + RCONST(907) = (PHOTOL(159)) + RCONST(908) = (PHOTOL(160)) + RCONST(909) = (PHOTOL(161)) + RCONST(910) = (PHOTOL(162)) + RCONST(911) = (PHOTOL(163)) + RCONST(912) = (PHOTOL(164)) + RCONST(913) = (PHOTOL(165)) + RCONST(914) = (PHOTOL(166)) END SUBROUTINE Update_PHOTO diff --git a/KPP/fullchem/gckpp_Util.F90 b/KPP/fullchem/gckpp_Util.F90 index 33126b683..8620d91db 100644 --- a/KPP/fullchem/gckpp_Util.F90 +++ b/KPP/fullchem/gckpp_Util.F90 @@ -872,12 +872,12 @@ SUBROUTINE ComputeFamilies ( V, FAM ) &+0.17*V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+2*V(32)+2*V(32)+2*V(32)+2*V(32)+2*V(32)+2*V(32)+2*V(32)+2*V(32)& &+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+2*V(32)+2*V(32)+V(32)+V(32)& &+0.00100005*V(32)+5.96046e-08*V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+1.258*V(32)& - &+1.5*V(32)+V(32)+1.5*V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+0.5*V(32)+V(32)+2*V(32)+2*V(32)+V(32)& + &+1.5*V(32)+V(32)+1.5*V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+0.5*V(32)+V(32)+2*V(32)+2*V(32)& &+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)& - &+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+2*V(32)+2*V(32)+2*V(32)+3*V(32)+3*V(32)+3& - &*V(32)+4*V(32)+4*V(32)+4*V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)& - &+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+2*V(32)+V(32)+V(32)+V(32)+V(32)+2*V(32)+V(32)+2& - &*V(32)+V(32)+V(32)+2*V(32) + &+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+2*V(32)+2*V(32)+2*V(32)+3*V(32)+3& + &*V(32)+3*V(32)+4*V(32)+4*V(32)+4*V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)& + &+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+V(32)+2*V(32)+V(32)+V(32)+V(32)+V(32)+2*V(32)& + &+V(32)+2*V(32)+V(32)+V(32)+2*V(32) FAM(3) = V(33)+V(33)+0.05*V(33)+0.56*V(33)+0.505*V(33)+V(33)+2*V(33)+V(33)+2*V(33)+V(33)+0.5*V(33)+V(33)+V(33)+V(33)& &+V(33)+V(33)+V(33)+V(33)+0.14*V(37)+0.14*V(37)+0.14*V(37)+0.407*V(37)+0.6*V(33)+0.9*V(33)+0.6*V(33)+0.9*V(33)& &+V(33)+V(33)+V(33)+0.5*V(33)+0.5*V(33)+0.55*V(33)+0.55*V(33)+0.45*V(33)+0.37*V(33)+0.42*V(33)+0.23*V(33)+0.638& @@ -954,7 +954,7 @@ SUBROUTINE Get_OHreactivity ( CC, RR, OHreact ) + RR(606)*CC(54) + RR(613)*CC(64) + RR(614)*CC(114) + RR(615)*CC(114) + RR(616)*CC(60) & + RR(617)*CC(76) + RR(618)*CC(77) + RR(624)*CC(118) + RR(626)*CC(110) + RR(628)*CC(138) & + RR(631)*CC(99) + RR(636)*CC(67) + RR(638)*CC(95) + RR(643)*CC(105) + RR(646)*CC(206) & - + RR(650)*CC(155) + RR(653)*CC(145) + RR(672)*CC(278) + RR(673)*CC(282) + + RR(650)*CC(155) + RR(653)*CC(145) + RR(673)*CC(278) + RR(674)*CC(282) END SUBROUTINE Get_OHreactivity ! End of Get_OHreactivity subroutine