! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! The ODE Jacobian of Chemical Model File ! ! Generated by KPP-2.2 symbolic chemistry Kinetics PreProcessor ! (http://www.cs.vt.edu/~asandu/Software/KPP) ! KPP is distributed under GPL, the general public licence ! (http://www.gnu.org/copyleft/gpl.html) ! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa ! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech ! With important contributions from: ! M. Damian, Villanova University, USA ! R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany ! ! File : gckpp_Jacobian.f90 ! Time : Tue Mar 16 10:29:04 2010 ! Working directory : /mnt/lstr04/srv/home/c/ccarouge/KPP/geoschem_kppfiles/v8-03-01/Paulot_scheme ! Equation file : gckpp.kpp ! Output root filename : gckpp ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ MODULE gckpp_Jacobian USE gckpp_Parameters USE gckpp_JacobianSP IMPLICIT NONE CONTAINS ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! Jac_SP - the Jacobian of Variables in sparse matrix representation ! Arguments : ! V - Concentrations of variable species (local) ! F - Concentrations of fixed species (local) ! RCT - Rate constants (local) ! JVS - sparse Jacobian of variables ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! V - Concentrations of variable species (local) REAL(kind=dp) :: V(NVAR) ! F - Concentrations of fixed species (local) REAL(kind=dp) :: F(NFIX) ! RCT - Rate constants (local) REAL(kind=dp) :: RCT(NREACT) ! JVS - sparse Jacobian of variables REAL(kind=dp) :: JVS(LU_NONZERO) ! Local variables ! B - Temporary array REAL(kind=dp) :: B(605) ! B(1) = dA(1)/dV(134) B(1) = RCT(1)*V(135) ! B(2) = dA(1)/dV(135) B(2) = RCT(1)*V(134) ! B(3) = dA(2)/dV(132) B(3) = RCT(2)*V(135) ! B(4) = dA(2)/dV(135) B(4) = RCT(2)*V(132) ! B(5) = dA(3)/dV(135) B(5) = RCT(3)*V(136) ! B(6) = dA(3)/dV(136) B(6) = RCT(3)*V(135) ! B(7) = dA(4)/dV(128) B(7) = RCT(4)*V(135) ! B(8) = dA(4)/dV(135) B(8) = RCT(4)*V(128) ! B(9) = dA(5)/dV(133) B(9) = RCT(5)*V(135) ! B(10) = dA(5)/dV(135) B(10) = RCT(5)*V(133) ! B(11) = dA(6)/dV(132) B(11) = RCT(6)*2*V(132) ! B(12) = dA(7)/dV(132) B(12) = RCT(7)*2*V(132) ! B(13) = dA(8)/dV(132) B(13) = RCT(8)*V(136) ! B(14) = dA(8)/dV(136) B(14) = RCT(8)*V(132) ! B(15) = dA(9)/dV(46) B(15) = RCT(9)*V(132) ! B(16) = dA(9)/dV(132) B(16) = RCT(9)*V(46) ! B(17) = dA(10)/dV(134) B(17) = RCT(10)*V(136) ! B(18) = dA(10)/dV(136) B(18) = RCT(10)*V(134) ! B(19) = dA(11)/dV(136) B(19) = RCT(11)*2*V(136) ! B(20) = dA(12)/dV(132) B(20) = RCT(12)*F(4) ! B(22) = dA(13)/dV(91) B(22) = RCT(13)*V(132) ! B(23) = dA(13)/dV(132) B(23) = RCT(13)*V(91) ! B(24) = dA(14)/dV(132) B(24) = RCT(14)*F(1) ! B(26) = dA(15)/dV(133) B(26) = RCT(15)*V(134) ! B(27) = dA(15)/dV(134) B(27) = RCT(15)*V(133) ! B(28) = dA(16)/dV(133) B(28) = RCT(16)*V(136) ! B(29) = dA(16)/dV(136) B(29) = RCT(16)*V(133) ! B(30) = dA(17)/dV(133) B(30) = RCT(17)*2*V(133) ! B(31) = dA(18)/dV(133) B(31) = RCT(18)*2*V(133) ! B(32) = dA(19)/dV(62) B(32) = RCT(19)*V(132) ! B(33) = dA(19)/dV(132) B(33) = RCT(19)*V(62) ! B(34) = dA(20)/dV(62) B(34) = RCT(20)*V(132) ! B(35) = dA(20)/dV(132) B(35) = RCT(20)*V(62) ! B(36) = dA(21)/dV(63) B(36) = RCT(21)*V(132) ! B(37) = dA(21)/dV(132) B(37) = RCT(21)*V(63) ! B(38) = dA(22)/dV(63) B(38) = RCT(22)*V(132) ! B(39) = dA(22)/dV(132) B(39) = RCT(22)*V(63) ! B(40) = dA(23)/dV(114) B(40) = RCT(23)*V(132) ! B(41) = dA(23)/dV(132) B(41) = RCT(23)*V(114) ! B(42) = dA(24)/dV(128) B(42) = RCT(24)*V(132) ! B(43) = dA(24)/dV(132) B(43) = RCT(24)*V(128) ! B(44) = dA(25)/dV(99) B(44) = RCT(25)*V(132) ! B(45) = dA(25)/dV(132) B(45) = RCT(25)*V(99) ! B(46) = dA(26)/dV(132) B(46) = RCT(26)*V(134) ! B(47) = dA(26)/dV(134) B(47) = RCT(26)*V(132) ! B(48) = dA(27)/dV(53) B(48) = RCT(27)*V(132) ! B(49) = dA(27)/dV(132) B(49) = RCT(27)*V(53) ! B(50) = dA(28)/dV(128) B(50) = RCT(28)*V(136) ! B(51) = dA(28)/dV(136) B(51) = RCT(28)*V(128) ! B(52) = dA(29)/dV(59) B(52) = RCT(29) ! B(53) = dA(30)/dV(59) B(53) = RCT(30)*V(132) ! B(54) = dA(30)/dV(132) B(54) = RCT(30)*V(59) ! B(55) = dA(31)/dV(129) B(55) = RCT(31)*V(136) ! B(56) = dA(31)/dV(136) B(56) = RCT(31)*V(129) ! B(57) = dA(32)/dV(129) B(57) = RCT(32)*V(134) ! B(58) = dA(32)/dV(134) B(58) = RCT(32)*V(129) ! B(59) = dA(33)/dV(129) B(59) = RCT(33)*V(132) ! B(60) = dA(33)/dV(132) B(60) = RCT(33)*V(129) ! B(61) = dA(34)/dV(128) B(61) = RCT(34)*V(129) ! B(62) = dA(34)/dV(129) B(62) = RCT(34)*V(128) ! B(63) = dA(35)/dV(55) B(63) = RCT(35) ! B(64) = dA(36)/dV(72) B(64) = RCT(36)*V(132) ! B(65) = dA(36)/dV(132) B(65) = RCT(36)*V(72) ! B(66) = dA(37)/dV(132) B(66) = RCT(37)*F(6) ! B(68) = dA(38)/dV(128) B(68) = RCT(38)*V(129) ! B(69) = dA(38)/dV(129) B(69) = RCT(38)*V(128) ! B(70) = dA(39)/dV(114) B(70) = RCT(39)*V(129) ! B(71) = dA(39)/dV(129) B(71) = RCT(39)*V(114) ! B(72) = dA(40)/dV(115) B(72) = RCT(40)*V(132) ! B(73) = dA(40)/dV(132) B(73) = RCT(40)*V(115) ! B(74) = dA(41)/dV(115) B(74) = RCT(41)*V(129) ! B(75) = dA(41)/dV(129) B(75) = RCT(41)*V(115) ! B(76) = dA(42)/dV(128) B(76) = RCT(42)*V(130) ! B(77) = dA(42)/dV(130) B(77) = RCT(42)*V(128) ! B(78) = dA(43)/dV(49) B(78) = RCT(43) ! B(79) = dA(44)/dV(130) B(79) = RCT(44)*V(134) ! B(80) = dA(44)/dV(134) B(80) = RCT(44)*V(130) ! B(81) = dA(45)/dV(52) B(81) = RCT(45)*V(132) ! B(82) = dA(45)/dV(132) B(82) = RCT(45)*V(52) ! B(83) = dA(46)/dV(112) B(83) = RCT(46)*V(134) ! B(84) = dA(46)/dV(134) B(84) = RCT(46)*V(112) ! B(85) = dA(47)/dV(44) B(85) = RCT(47)*V(132) ! B(86) = dA(47)/dV(132) B(86) = RCT(47)*V(44) ! B(87) = dA(48)/dV(44) B(87) = RCT(48)*V(132) ! B(88) = dA(48)/dV(132) B(88) = RCT(48)*V(44) ! B(89) = dA(49)/dV(94) B(89) = RCT(49)*V(134) ! B(90) = dA(49)/dV(134) B(90) = RCT(49)*V(94) ! B(91) = dA(50)/dV(109) B(91) = RCT(50)*V(134) ! B(92) = dA(50)/dV(134) B(92) = RCT(50)*V(109) ! B(93) = dA(51)/dV(51) B(93) = RCT(51)*V(132) ! B(94) = dA(51)/dV(132) B(94) = RCT(51)*V(51) ! B(95) = dA(52)/dV(126) B(95) = RCT(52)*V(134) ! B(96) = dA(52)/dV(134) B(96) = RCT(52)*V(126) ! B(97) = dA(53)/dV(126) B(97) = RCT(53)*V(134) ! B(98) = dA(53)/dV(134) B(98) = RCT(53)*V(126) ! B(99) = dA(54)/dV(116) B(99) = RCT(54)*V(134) ! B(100) = dA(54)/dV(134) B(100) = RCT(54)*V(116) ! B(101) = dA(55)/dV(108) B(101) = RCT(55)*V(134) ! B(102) = dA(55)/dV(134) B(102) = RCT(55)*V(108) ! B(103) = dA(56)/dV(106) B(103) = RCT(56)*V(134) ! B(104) = dA(56)/dV(134) B(104) = RCT(56)*V(106) ! B(105) = dA(57)/dV(123) B(105) = RCT(57)*V(134) ! B(106) = dA(57)/dV(134) B(106) = RCT(57)*V(123) ! B(107) = dA(58)/dV(101) B(107) = RCT(58)*V(134) ! B(108) = dA(58)/dV(134) B(108) = RCT(58)*V(101) ! B(109) = dA(59)/dV(105) B(109) = RCT(59)*V(134) ! B(110) = dA(59)/dV(134) B(110) = RCT(59)*V(105) ! B(111) = dA(60)/dV(97) B(111) = RCT(60)*V(134) ! B(112) = dA(60)/dV(134) B(112) = RCT(60)*V(97) ! B(113) = dA(61)/dV(98) B(113) = RCT(61)*V(134) ! B(114) = dA(61)/dV(134) B(114) = RCT(61)*V(98) ! B(115) = dA(62)/dV(117) B(115) = RCT(62)*V(134) ! B(116) = dA(62)/dV(134) B(116) = RCT(62)*V(117) ! B(117) = dA(63)/dV(117) B(117) = RCT(63)*V(129) ! B(118) = dA(63)/dV(129) B(118) = RCT(63)*V(117) ! B(119) = dA(64)/dV(117) B(119) = RCT(64)*2*V(117) ! B(120) = dA(65)/dV(110) B(120) = RCT(65)*V(134) ! B(121) = dA(65)/dV(134) B(121) = RCT(65)*V(110) ! B(122) = dA(66)/dV(51) B(122) = RCT(66)*V(129) ! B(123) = dA(66)/dV(129) B(123) = RCT(66)*V(51) ! B(124) = dA(67)/dV(132) B(124) = RCT(67)*V(137) ! B(125) = dA(67)/dV(137) B(125) = RCT(67)*V(132) ! B(126) = dA(68)/dV(89) B(126) = RCT(68)*V(132) ! B(127) = dA(68)/dV(132) B(127) = RCT(68)*V(89) ! B(128) = dA(69)/dV(127) B(128) = RCT(69)*V(132) ! B(129) = dA(69)/dV(132) B(129) = RCT(69)*V(127) ! B(130) = dA(70)/dV(113) B(130) = RCT(70)*V(128) ! B(131) = dA(70)/dV(128) B(131) = RCT(70)*V(113) ! B(132) = dA(71)/dV(45) B(132) = RCT(71) ! B(133) = dA(72)/dV(122) B(133) = RCT(72)*V(128) ! B(134) = dA(72)/dV(128) B(134) = RCT(72)*V(122) ! B(135) = dA(73)/dV(79) B(135) = RCT(73) ! B(136) = dA(74)/dV(113) B(136) = RCT(74)*V(134) ! B(137) = dA(74)/dV(134) B(137) = RCT(74)*V(113) ! B(138) = dA(75)/dV(122) B(138) = RCT(75)*V(134) ! B(139) = dA(75)/dV(134) B(139) = RCT(75)*V(122) ! B(140) = dA(76)/dV(127) B(140) = RCT(76)*V(129) ! B(141) = dA(76)/dV(129) B(141) = RCT(76)*V(127) ! B(142) = dA(77)/dV(85) B(142) = RCT(77)*V(132) ! B(143) = dA(77)/dV(132) B(143) = RCT(77)*V(85) ! B(144) = dA(78)/dV(85) B(144) = RCT(78)*V(132) ! B(145) = dA(78)/dV(132) B(145) = RCT(78)*V(85) ! B(146) = dA(79)/dV(94) B(146) = RCT(79)*V(133) ! B(147) = dA(79)/dV(133) B(147) = RCT(79)*V(94) ! B(148) = dA(80)/dV(109) B(148) = RCT(80)*V(133) ! B(149) = dA(80)/dV(133) B(149) = RCT(80)*V(109) ! B(150) = dA(81)/dV(126) B(150) = RCT(81)*V(136) ! B(151) = dA(81)/dV(136) B(151) = RCT(81)*V(126) ! B(152) = dA(82)/dV(116) B(152) = RCT(82)*V(136) ! B(153) = dA(82)/dV(136) B(153) = RCT(82)*V(116) ! B(154) = dA(83)/dV(108) B(154) = RCT(83)*V(136) ! B(155) = dA(83)/dV(136) B(155) = RCT(83)*V(108) ! B(156) = dA(84)/dV(106) B(156) = RCT(84)*V(136) ! B(157) = dA(84)/dV(136) B(157) = RCT(84)*V(106) ! B(158) = dA(85)/dV(123) B(158) = RCT(85)*V(136) ! B(159) = dA(85)/dV(136) B(159) = RCT(85)*V(123) ! B(160) = dA(86)/dV(101) B(160) = RCT(86)*V(136) ! B(161) = dA(86)/dV(136) B(161) = RCT(86)*V(101) ! B(162) = dA(87)/dV(105) B(162) = RCT(87)*V(136) ! B(163) = dA(87)/dV(136) B(163) = RCT(87)*V(105) ! B(164) = dA(88)/dV(97) B(164) = RCT(88)*V(136) ! B(165) = dA(88)/dV(136) B(165) = RCT(88)*V(97) ! B(166) = dA(89)/dV(98) B(166) = RCT(89)*V(136) ! B(167) = dA(89)/dV(136) B(167) = RCT(89)*V(98) ! B(168) = dA(90)/dV(117) B(168) = RCT(90)*V(136) ! B(169) = dA(90)/dV(136) B(169) = RCT(90)*V(117) ! B(170) = dA(91)/dV(110) B(170) = RCT(91)*V(136) ! B(171) = dA(91)/dV(136) B(171) = RCT(91)*V(110) ! B(172) = dA(92)/dV(131) B(172) = RCT(92)*V(132) ! B(173) = dA(92)/dV(132) B(173) = RCT(92)*V(131) ! B(174) = dA(93)/dV(112) B(174) = RCT(93)*V(133) ! B(175) = dA(93)/dV(133) B(175) = RCT(93)*V(112) ! B(176) = dA(94)/dV(129) B(176) = RCT(94)*V(131) ! B(177) = dA(94)/dV(131) B(177) = RCT(94)*V(129) ! B(178) = dA(95)/dV(126) B(178) = RCT(95)*V(133) ! B(179) = dA(95)/dV(133) B(179) = RCT(95)*V(126) ! B(180) = dA(96)/dV(116) B(180) = RCT(96)*V(133) ! B(181) = dA(96)/dV(133) B(181) = RCT(96)*V(116) ! B(182) = dA(97)/dV(108) B(182) = RCT(97)*V(133) ! B(183) = dA(97)/dV(133) B(183) = RCT(97)*V(108) ! B(184) = dA(98)/dV(106) B(184) = RCT(98)*V(133) ! B(185) = dA(98)/dV(133) B(185) = RCT(98)*V(106) ! B(186) = dA(99)/dV(123) B(186) = RCT(99)*V(133) ! B(187) = dA(99)/dV(133) B(187) = RCT(99)*V(123) ! B(188) = dA(100)/dV(123) B(188) = RCT(100)*2*V(123) ! B(189) = dA(101)/dV(111) B(189) = RCT(101)*V(133) ! B(190) = dA(101)/dV(133) B(190) = RCT(101)*V(111) ! B(191) = dA(102)/dV(101) B(191) = RCT(102)*V(133) ! B(192) = dA(102)/dV(133) B(192) = RCT(102)*V(101) ! B(193) = dA(103)/dV(105) B(193) = RCT(103)*V(133) ! B(194) = dA(103)/dV(133) B(194) = RCT(103)*V(105) ! B(195) = dA(104)/dV(97) B(195) = RCT(104)*V(133) ! B(196) = dA(104)/dV(133) B(196) = RCT(104)*V(97) ! B(197) = dA(105)/dV(98) B(197) = RCT(105)*V(133) ! B(198) = dA(105)/dV(133) B(198) = RCT(105)*V(98) ! B(199) = dA(106)/dV(117) B(199) = RCT(106)*V(133) ! B(200) = dA(106)/dV(133) B(200) = RCT(106)*V(117) ! B(201) = dA(107)/dV(110) B(201) = RCT(107)*V(133) ! B(202) = dA(107)/dV(133) B(202) = RCT(107)*V(110) ! B(203) = dA(108)/dV(132) B(203) = RCT(108)*F(3) ! B(205) = dA(109)/dV(88) B(205) = RCT(109)*V(132) ! B(206) = dA(109)/dV(132) B(206) = RCT(109)*V(88) ! B(207) = dA(110)/dV(112) B(207) = RCT(110)*2*V(112) ! B(208) = dA(111)/dV(112) B(208) = RCT(111)*2*V(112) ! B(209) = dA(112)/dV(112) B(209) = RCT(112)*V(136) ! B(210) = dA(112)/dV(136) B(210) = RCT(112)*V(112) ! B(211) = dA(113)/dV(94) B(211) = RCT(113)*V(136) ! B(212) = dA(113)/dV(136) B(212) = RCT(113)*V(94) ! B(213) = dA(114)/dV(109) B(213) = RCT(114)*V(136) ! B(214) = dA(114)/dV(136) B(214) = RCT(114)*V(109) ! B(215) = dA(115)/dV(130) B(215) = RCT(115)*V(136) ! B(216) = dA(115)/dV(136) B(216) = RCT(115)*V(130) ! B(217) = dA(116)/dV(113) B(217) = RCT(116)*V(136) ! B(218) = dA(116)/dV(136) B(218) = RCT(116)*V(113) ! B(219) = dA(117)/dV(122) B(219) = RCT(117)*V(136) ! B(220) = dA(117)/dV(136) B(220) = RCT(117)*V(122) ! B(221) = dA(118)/dV(86) B(221) = RCT(118)*V(132) ! B(222) = dA(118)/dV(132) B(222) = RCT(118)*V(86) ! B(223) = dA(119)/dV(86) B(223) = RCT(119)*V(135) ! B(224) = dA(119)/dV(135) B(224) = RCT(119)*V(86) ! B(225) = dA(120)/dV(79) B(225) = RCT(120)*V(132) ! B(226) = dA(120)/dV(132) B(226) = RCT(120)*V(79) ! B(227) = dA(121)/dV(95) B(227) = RCT(121)*V(134) ! B(228) = dA(121)/dV(134) B(228) = RCT(121)*V(95) ! B(229) = dA(122)/dV(95) B(229) = RCT(122)*V(136) ! B(230) = dA(122)/dV(136) B(230) = RCT(122)*V(95) ! B(231) = dA(123)/dV(79) B(231) = RCT(123)*V(135) ! B(232) = dA(123)/dV(135) B(232) = RCT(123)*V(79) ! B(233) = dA(124)/dV(75) B(233) = RCT(124)*V(128) ! B(234) = dA(124)/dV(128) B(234) = RCT(124)*V(75) ! B(235) = dA(125)/dV(65) B(235) = RCT(125) ! B(236) = dA(126)/dV(75) B(236) = RCT(126)*V(134) ! B(237) = dA(126)/dV(134) B(237) = RCT(126)*V(75) ! B(238) = dA(127)/dV(75) B(238) = RCT(127)*V(136) ! B(239) = dA(127)/dV(136) B(239) = RCT(127)*V(75) ! B(240) = dA(128)/dV(100) B(240) = RCT(128)*V(132) ! B(241) = dA(128)/dV(132) B(241) = RCT(128)*V(100) ! B(242) = dA(129)/dV(100) B(242) = RCT(129)*V(132) ! B(243) = dA(129)/dV(132) B(243) = RCT(129)*V(100) ! B(244) = dA(130)/dV(86) B(244) = RCT(130)*V(129) ! B(245) = dA(130)/dV(129) B(245) = RCT(130)*V(86) ! B(246) = dA(131)/dV(90) B(246) = RCT(131)*V(132) ! B(247) = dA(131)/dV(132) B(247) = RCT(131)*V(90) ! B(248) = dA(132)/dV(118) B(248) = RCT(132)*V(132) ! B(249) = dA(132)/dV(132) B(249) = RCT(132)*V(118) ! B(250) = dA(133)/dV(90) B(250) = RCT(133)*V(129) ! B(251) = dA(133)/dV(129) B(251) = RCT(133)*V(90) ! B(252) = dA(134)/dV(118) B(252) = RCT(134)*V(129) ! B(253) = dA(134)/dV(129) B(253) = RCT(134)*V(118) ! B(254) = dA(135)/dV(81) B(254) = RCT(135)*V(132) ! B(255) = dA(135)/dV(132) B(255) = RCT(135)*V(81) ! B(256) = dA(136)/dV(120) B(256) = RCT(136)*V(132) ! B(257) = dA(136)/dV(132) B(257) = RCT(136)*V(120) ! B(258) = dA(137)/dV(121) B(258) = RCT(137)*V(132) ! B(259) = dA(137)/dV(132) B(259) = RCT(137)*V(121) ! B(260) = dA(138)/dV(119) B(260) = RCT(138)*V(132) ! B(261) = dA(138)/dV(132) B(261) = RCT(138)*V(119) ! B(262) = dA(139)/dV(119) B(262) = RCT(139)*V(132) ! B(263) = dA(139)/dV(132) B(263) = RCT(139)*V(119) ! B(264) = dA(140)/dV(94) B(264) = RCT(140)*V(130) ! B(265) = dA(140)/dV(130) B(265) = RCT(140)*V(94) ! B(266) = dA(141)/dV(109) B(266) = RCT(141)*V(130) ! B(267) = dA(141)/dV(130) B(267) = RCT(141)*V(109) ! B(268) = dA(142)/dV(94) B(268) = RCT(142)*V(130) ! B(269) = dA(142)/dV(130) B(269) = RCT(142)*V(94) ! B(270) = dA(143)/dV(109) B(270) = RCT(143)*V(130) ! B(271) = dA(143)/dV(130) B(271) = RCT(143)*V(109) ! B(272) = dA(144)/dV(81) B(272) = RCT(144)*V(135) ! B(273) = dA(144)/dV(135) B(273) = RCT(144)*V(81) ! B(274) = dA(145)/dV(120) B(274) = RCT(145)*V(135) ! B(275) = dA(145)/dV(135) B(275) = RCT(145)*V(120) ! B(276) = dA(146)/dV(121) B(276) = RCT(146)*V(135) ! B(277) = dA(146)/dV(135) B(277) = RCT(146)*V(121) ! B(278) = dA(147)/dV(81) B(278) = RCT(147)*V(129) ! B(279) = dA(147)/dV(129) B(279) = RCT(147)*V(81) ! B(280) = dA(148)/dV(121) B(280) = RCT(148)*V(129) ! B(281) = dA(148)/dV(129) B(281) = RCT(148)*V(121) ! B(282) = dA(149)/dV(121) B(282) = RCT(149)*V(129) ! B(283) = dA(149)/dV(129) B(283) = RCT(149)*V(121) ! B(284) = dA(150)/dV(113) B(284) = RCT(150)*V(133) ! B(285) = dA(150)/dV(133) B(285) = RCT(150)*V(113) ! B(286) = dA(151)/dV(122) B(286) = RCT(151)*V(133) ! B(287) = dA(151)/dV(133) B(287) = RCT(151)*V(122) ! B(288) = dA(152)/dV(113) B(288) = RCT(152)*V(133) ! B(289) = dA(152)/dV(133) B(289) = RCT(152)*V(113) ! B(290) = dA(153)/dV(122) B(290) = RCT(153)*V(133) ! B(291) = dA(153)/dV(133) B(291) = RCT(153)*V(122) ! B(292) = dA(154)/dV(71) B(292) = RCT(154)*V(132) ! B(293) = dA(154)/dV(132) B(293) = RCT(154)*V(71) ! B(294) = dA(155)/dV(71) B(294) = RCT(155)*V(132) ! B(295) = dA(155)/dV(132) B(295) = RCT(155)*V(71) ! B(296) = dA(156)/dV(67) B(296) = RCT(156)*V(132) ! B(297) = dA(156)/dV(132) B(297) = RCT(156)*V(67) ! B(298) = dA(157)/dV(61) B(298) = RCT(157)*V(132) ! B(299) = dA(157)/dV(132) B(299) = RCT(157)*V(61) ! B(300) = dA(158)/dV(56) B(300) = RCT(158)*V(132) ! B(301) = dA(158)/dV(132) B(301) = RCT(158)*V(56) ! B(302) = dA(159)/dV(57) B(302) = RCT(159)*V(132) ! B(303) = dA(159)/dV(132) B(303) = RCT(159)*V(57) ! B(304) = dA(160)/dV(66) B(304) = RCT(160)*V(132) ! B(305) = dA(160)/dV(132) B(305) = RCT(160)*V(66) ! B(306) = dA(161)/dV(58) B(306) = RCT(161)*V(132) ! B(307) = dA(161)/dV(132) B(307) = RCT(161)*V(58) ! B(308) = dA(162)/dV(69) B(308) = RCT(162)*V(132) ! B(309) = dA(162)/dV(132) B(309) = RCT(162)*V(69) ! B(310) = dA(163)/dV(74) B(310) = RCT(163)*V(132) ! B(311) = dA(163)/dV(132) B(311) = RCT(163)*V(74) ! B(312) = dA(164)/dV(74) B(312) = RCT(164)*V(132) ! B(313) = dA(164)/dV(132) B(313) = RCT(164)*V(74) ! B(314) = dA(165)/dV(47) B(314) = RCT(165)*V(132) ! B(315) = dA(165)/dV(132) B(315) = RCT(165)*V(47) ! B(316) = dA(166)/dV(84) B(316) = RCT(166)*V(136) ! B(317) = dA(166)/dV(136) B(317) = RCT(166)*V(84) ! B(318) = dA(167)/dV(84) B(318) = RCT(167)*V(134) ! B(319) = dA(167)/dV(134) B(319) = RCT(167)*V(84) ! B(320) = dA(168)/dV(76) B(320) = RCT(168)*V(132) ! B(321) = dA(168)/dV(132) B(321) = RCT(168)*V(76) ! B(322) = dA(169)/dV(73) B(322) = RCT(169)*V(132) ! B(323) = dA(169)/dV(132) B(323) = RCT(169)*V(73) ! B(324) = dA(170)/dV(70) B(324) = RCT(170)*V(132) ! B(325) = dA(170)/dV(132) B(325) = RCT(170)*V(70) ! B(326) = dA(171)/dV(70) B(326) = RCT(171)*V(132) ! B(327) = dA(171)/dV(132) B(327) = RCT(171)*V(70) ! B(328) = dA(172)/dV(64) B(328) = RCT(172)*V(132) ! B(329) = dA(172)/dV(132) B(329) = RCT(172)*V(64) ! B(330) = dA(173)/dV(64) B(330) = RCT(173)*V(132) ! B(331) = dA(173)/dV(132) B(331) = RCT(173)*V(64) ! B(332) = dA(174)/dV(102) B(332) = RCT(174)*V(130) ! B(333) = dA(174)/dV(130) B(333) = RCT(174)*V(102) ! B(334) = dA(175)/dV(102) B(334) = RCT(175)*V(130) ! B(335) = dA(175)/dV(130) B(335) = RCT(175)*V(102) ! B(336) = dA(176)/dV(102) B(336) = RCT(176)*V(133) ! B(337) = dA(176)/dV(133) B(337) = RCT(176)*V(102) ! B(338) = dA(177)/dV(102) B(338) = RCT(177)*2*V(102) ! B(339) = dA(178)/dV(102) B(339) = RCT(178)*V(136) ! B(340) = dA(178)/dV(136) B(340) = RCT(178)*V(102) ! B(341) = dA(179)/dV(102) B(341) = RCT(179)*V(134) ! B(342) = dA(179)/dV(134) B(342) = RCT(179)*V(102) ! B(343) = dA(180)/dV(102) B(343) = RCT(180)*V(134) ! B(344) = dA(180)/dV(134) B(344) = RCT(180)*V(102) ! B(345) = dA(181)/dV(54) B(345) = RCT(181)*V(132) ! B(346) = dA(181)/dV(132) B(346) = RCT(181)*V(54) ! B(347) = dA(182)/dV(52) B(347) = RCT(182)*V(129) ! B(348) = dA(182)/dV(129) B(348) = RCT(182)*V(52) ! B(349) = dA(183)/dV(124) B(349) = RCT(183)*V(135) ! B(350) = dA(183)/dV(135) B(350) = RCT(183)*V(124) ! B(351) = dA(184)/dV(130) B(351) = RCT(184)*2*V(130) ! B(352) = dA(185)/dV(130) B(352) = RCT(185)*V(133) ! B(353) = dA(185)/dV(133) B(353) = RCT(185)*V(130) ! B(354) = dA(186)/dV(130) B(354) = RCT(186)*V(133) ! B(355) = dA(186)/dV(133) B(355) = RCT(186)*V(130) ! B(356) = dA(187)/dV(126) B(356) = RCT(187)*V(130) ! B(357) = dA(187)/dV(130) B(357) = RCT(187)*V(126) ! B(358) = dA(188)/dV(108) B(358) = RCT(188)*V(130) ! B(359) = dA(188)/dV(130) B(359) = RCT(188)*V(108) ! B(360) = dA(189)/dV(106) B(360) = RCT(189)*V(130) ! B(361) = dA(189)/dV(130) B(361) = RCT(189)*V(106) ! B(362) = dA(190)/dV(123) B(362) = RCT(190)*V(130) ! B(363) = dA(190)/dV(130) B(363) = RCT(190)*V(123) ! B(364) = dA(191)/dV(111) B(364) = RCT(191)*V(130) ! B(365) = dA(191)/dV(130) B(365) = RCT(191)*V(111) ! B(366) = dA(192)/dV(101) B(366) = RCT(192)*V(130) ! B(367) = dA(192)/dV(130) B(367) = RCT(192)*V(101) ! B(368) = dA(193)/dV(105) B(368) = RCT(193)*V(130) ! B(369) = dA(193)/dV(130) B(369) = RCT(193)*V(105) ! B(370) = dA(194)/dV(98) B(370) = RCT(194)*V(130) ! B(371) = dA(194)/dV(130) B(371) = RCT(194)*V(98) ! B(372) = dA(195)/dV(116) B(372) = RCT(195)*V(130) ! B(373) = dA(195)/dV(130) B(373) = RCT(195)*V(116) ! B(374) = dA(196)/dV(97) B(374) = RCT(196)*V(130) ! B(375) = dA(196)/dV(130) B(375) = RCT(196)*V(97) ! B(376) = dA(197)/dV(117) B(376) = RCT(197)*V(130) ! B(377) = dA(197)/dV(130) B(377) = RCT(197)*V(117) ! B(378) = dA(198)/dV(110) B(378) = RCT(198)*V(130) ! B(379) = dA(198)/dV(130) B(379) = RCT(198)*V(110) ! B(380) = dA(199)/dV(126) B(380) = RCT(199)*V(130) ! B(381) = dA(199)/dV(130) B(381) = RCT(199)*V(126) ! B(382) = dA(200)/dV(108) B(382) = RCT(200)*V(130) ! B(383) = dA(200)/dV(130) B(383) = RCT(200)*V(108) ! B(384) = dA(201)/dV(106) B(384) = RCT(201)*V(130) ! B(385) = dA(201)/dV(130) B(385) = RCT(201)*V(106) ! B(386) = dA(202)/dV(123) B(386) = RCT(202)*V(130) ! B(387) = dA(202)/dV(130) B(387) = RCT(202)*V(123) ! B(388) = dA(203)/dV(111) B(388) = RCT(203)*V(130) ! B(389) = dA(203)/dV(130) B(389) = RCT(203)*V(111) ! B(390) = dA(204)/dV(101) B(390) = RCT(204)*V(130) ! B(391) = dA(204)/dV(130) B(391) = RCT(204)*V(101) ! B(392) = dA(205)/dV(105) B(392) = RCT(205)*V(130) ! B(393) = dA(205)/dV(130) B(393) = RCT(205)*V(105) ! B(394) = dA(206)/dV(116) B(394) = RCT(206)*V(130) ! B(395) = dA(206)/dV(130) B(395) = RCT(206)*V(116) ! B(396) = dA(207)/dV(97) B(396) = RCT(207)*V(130) ! B(397) = dA(207)/dV(130) B(397) = RCT(207)*V(97) ! B(398) = dA(208)/dV(117) B(398) = RCT(208)*V(130) ! B(399) = dA(208)/dV(130) B(399) = RCT(208)*V(117) ! B(400) = dA(209)/dV(110) B(400) = RCT(209)*V(130) ! B(401) = dA(209)/dV(130) B(401) = RCT(209)*V(110) ! B(402) = dA(210)/dV(98) B(402) = RCT(210)*V(130) ! B(403) = dA(210)/dV(130) B(403) = RCT(210)*V(98) ! B(404) = dA(211)/dV(112) B(404) = RCT(211)*V(130) ! B(405) = dA(211)/dV(130) B(405) = RCT(211)*V(112) ! B(406) = dA(212)/dV(112) B(406) = RCT(212)*V(130) ! B(407) = dA(212)/dV(130) B(407) = RCT(212)*V(112) ! B(408) = dA(213)/dV(113) B(408) = RCT(213)*V(130) ! B(409) = dA(213)/dV(130) B(409) = RCT(213)*V(113) ! B(410) = dA(214)/dV(122) B(410) = RCT(214)*V(130) ! B(411) = dA(214)/dV(130) B(411) = RCT(214)*V(122) ! B(412) = dA(215)/dV(129) B(412) = RCT(215)*2*V(129) ! B(431) = dA(234)/dV(128) B(431) = RCT(234) ! B(432) = dA(235)/dV(50) B(432) = RCT(235) ! B(433) = dA(236)/dV(135) B(433) = RCT(236) ! B(434) = dA(237)/dV(49) B(434) = RCT(237) ! B(435) = dA(238)/dV(65) B(435) = RCT(238) ! B(436) = dA(239)/dV(99) B(436) = RCT(239) ! B(437) = dA(240)/dV(114) B(437) = RCT(240) ! B(438) = dA(241)/dV(55) B(438) = RCT(241) ! B(439) = dA(242)/dV(46) B(439) = RCT(242) ! B(440) = dA(243)/dV(79) B(440) = RCT(243) ! B(441) = dA(244)/dV(45) B(441) = RCT(244) ! B(442) = dA(245)/dV(137) B(442) = RCT(245) ! B(443) = dA(246)/dV(47) B(443) = RCT(246) ! B(444) = dA(247)/dV(74) B(444) = RCT(247) ! B(445) = dA(248)/dV(125) B(445) = RCT(248) ! B(446) = dA(249)/dV(82) B(446) = RCT(249) ! B(447) = dA(250)/dV(82) B(447) = RCT(250)*V(135) ! B(448) = dA(250)/dV(135) B(448) = RCT(250)*V(82) ! B(449) = dA(251)/dV(125) B(449) = RCT(251)*V(135) ! B(450) = dA(251)/dV(135) B(450) = RCT(251)*V(125) ! B(451) = dA(252)/dV(96) B(451) = RCT(252) ! B(452) = dA(253)/dV(104) B(452) = RCT(253) ! B(453) = dA(254)/dV(93) B(453) = RCT(254) ! B(454) = dA(255)/dV(72) B(454) = RCT(255) ! B(455) = dA(256)/dV(89) B(455) = RCT(256) ! B(456) = dA(257)/dV(128) B(456) = RCT(257) ! B(457) = dA(258)/dV(129) B(457) = RCT(258) ! B(458) = dA(259)/dV(55) B(458) = RCT(259) ! B(459) = dA(260)/dV(60) B(459) = RCT(260)*V(132) ! B(460) = dA(260)/dV(132) B(460) = RCT(260)*V(60) ! B(461) = dA(261)/dV(60) B(461) = RCT(261)*V(132) ! B(462) = dA(261)/dV(132) B(462) = RCT(261)*V(60) ! B(463) = dA(262)/dV(60) B(463) = RCT(262)*V(129) ! B(464) = dA(262)/dV(129) B(464) = RCT(262)*V(60) ! B(465) = dA(263)/dV(48) B(465) = RCT(263)*V(132) ! B(466) = dA(263)/dV(132) B(466) = RCT(263)*V(48) ! B(467) = dA(264)/dV(124) B(467) = RCT(264)*V(132) ! B(468) = dA(264)/dV(132) B(468) = RCT(264)*V(124) ! B(469) = dA(265)/dV(111) B(469) = RCT(265)*V(134) ! B(470) = dA(265)/dV(134) B(470) = RCT(265)*V(111) ! B(471) = dA(266)/dV(111) B(471) = RCT(266)*V(134) ! B(472) = dA(266)/dV(134) B(472) = RCT(266)*V(111) ! B(473) = dA(267)/dV(111) B(473) = RCT(267)*V(136) ! B(474) = dA(267)/dV(136) B(474) = RCT(267)*V(111) ! B(475) = dA(268)/dV(125) B(475) = RCT(268)*V(132) ! B(476) = dA(268)/dV(132) B(476) = RCT(268)*V(125) ! B(477) = dA(269)/dV(82) B(477) = RCT(269)*V(132) ! B(478) = dA(269)/dV(132) B(478) = RCT(269)*V(82) ! B(479) = dA(270)/dV(103) B(479) = RCT(270)*V(134) ! B(480) = dA(270)/dV(134) B(480) = RCT(270)*V(103) ! B(481) = dA(271)/dV(103) B(481) = RCT(271)*V(134) ! B(482) = dA(271)/dV(134) B(482) = RCT(271)*V(103) ! B(483) = dA(272)/dV(103) B(483) = RCT(272)*V(136) ! B(484) = dA(272)/dV(136) B(484) = RCT(272)*V(103) ! B(485) = dA(273)/dV(107) B(485) = RCT(273)*V(134) ! B(486) = dA(273)/dV(134) B(486) = RCT(273)*V(107) ! B(487) = dA(274)/dV(107) B(487) = RCT(274)*V(134) ! B(488) = dA(274)/dV(134) B(488) = RCT(274)*V(107) ! B(489) = dA(275)/dV(107) B(489) = RCT(275)*V(136) ! B(490) = dA(275)/dV(136) B(490) = RCT(275)*V(107) ! B(491) = dA(276)/dV(80) B(491) = RCT(276)*V(132) ! B(492) = dA(276)/dV(132) B(492) = RCT(276)*V(80) ! B(493) = dA(277)/dV(93) B(493) = RCT(277)*V(132) ! B(494) = dA(277)/dV(132) B(494) = RCT(277)*V(93) ! B(495) = dA(278)/dV(104) B(495) = RCT(278)*V(132) ! B(496) = dA(278)/dV(132) B(496) = RCT(278)*V(104) ! B(497) = dA(279)/dV(92) B(497) = RCT(279)*V(134) ! B(498) = dA(279)/dV(134) B(498) = RCT(279)*V(92) ! B(499) = dA(280)/dV(92) B(499) = RCT(280)*V(136) ! B(500) = dA(280)/dV(136) B(500) = RCT(280)*V(92) ! B(501) = dA(281)/dV(92) B(501) = RCT(281)*V(128) ! B(502) = dA(281)/dV(128) B(502) = RCT(281)*V(92) ! B(503) = dA(282)/dV(50) B(503) = RCT(282) ! B(504) = dA(283)/dV(77) B(504) = RCT(283)*V(132) ! B(505) = dA(283)/dV(132) B(505) = RCT(283)*V(77) ! B(506) = dA(284)/dV(83) B(506) = RCT(284)*V(134) ! B(507) = dA(284)/dV(134) B(507) = RCT(284)*V(83) ! B(508) = dA(285)/dV(83) B(508) = RCT(285)*V(134) ! B(509) = dA(285)/dV(134) B(509) = RCT(285)*V(83) ! B(510) = dA(286)/dV(83) B(510) = RCT(286)*V(136) ! B(511) = dA(286)/dV(136) B(511) = RCT(286)*V(83) ! B(512) = dA(287)/dV(78) B(512) = RCT(287)*V(132) ! B(513) = dA(287)/dV(132) B(513) = RCT(287)*V(78) ! B(514) = dA(288)/dV(87) B(514) = RCT(288)*V(134) ! B(515) = dA(288)/dV(134) B(515) = RCT(288)*V(87) ! B(516) = dA(289)/dV(87) B(516) = RCT(289)*V(134) ! B(517) = dA(289)/dV(134) B(517) = RCT(289)*V(87) ! B(518) = dA(290)/dV(87) B(518) = RCT(290)*V(136) ! B(519) = dA(290)/dV(136) B(519) = RCT(290)*V(87) ! B(520) = dA(291)/dV(78) B(520) = RCT(291)*V(135) ! B(521) = dA(291)/dV(135) B(521) = RCT(291)*V(78) ! B(522) = dA(292)/dV(68) B(522) = RCT(292)*V(132) ! B(523) = dA(292)/dV(132) B(523) = RCT(292)*V(68) ! B(524) = dA(293)/dV(96) B(524) = RCT(293)*V(132) ! B(525) = dA(293)/dV(132) B(525) = RCT(293)*V(96) ! B(526) = dA(294)/dV(18) B(526) = RCT(294)*V(132) ! B(527) = dA(294)/dV(132) B(527) = RCT(294)*V(18) ! B(528) = dA(295)/dV(22) B(528) = RCT(295)*V(132) ! B(529) = dA(295)/dV(132) B(529) = RCT(295)*V(22) ! B(530) = dA(296)/dV(26) B(530) = RCT(296)*V(132) ! B(531) = dA(296)/dV(132) B(531) = RCT(296)*V(26) ! B(532) = dA(297)/dV(17) B(532) = RCT(297)*V(136) ! B(533) = dA(297)/dV(136) B(533) = RCT(297)*V(17) ! B(534) = dA(298)/dV(17) B(534) = RCT(298)*V(134) ! B(535) = dA(298)/dV(134) B(535) = RCT(298)*V(17) ! B(536) = dA(299)/dV(21) B(536) = RCT(299)*V(136) ! B(537) = dA(299)/dV(136) B(537) = RCT(299)*V(21) ! B(538) = dA(300)/dV(21) B(538) = RCT(300)*V(134) ! B(539) = dA(300)/dV(134) B(539) = RCT(300)*V(21) ! B(540) = dA(301)/dV(25) B(540) = RCT(301)*V(136) ! B(541) = dA(301)/dV(136) B(541) = RCT(301)*V(25) ! B(542) = dA(302)/dV(25) B(542) = RCT(302)*V(134) ! B(543) = dA(302)/dV(134) B(543) = RCT(302)*V(25) ! B(544) = dA(303)/dV(30) B(544) = RCT(303)*V(132) ! B(545) = dA(303)/dV(132) B(545) = RCT(303)*V(30) ! B(546) = dA(304)/dV(29) B(546) = RCT(304)*V(136) ! B(547) = dA(304)/dV(136) B(547) = RCT(304)*V(29) ! B(548) = dA(305)/dV(29) B(548) = RCT(305)*V(134) ! B(549) = dA(305)/dV(134) B(549) = RCT(305)*V(29) ! B(550) = dA(306)/dV(135) B(550) = RCT(306) ! B(551) = dA(307)/dV(128) B(551) = RCT(307) ! B(552) = dA(308)/dV(46) B(552) = RCT(308) ! B(553) = dA(309)/dV(62) B(553) = RCT(309) ! B(554) = dA(310)/dV(114) B(554) = RCT(310) ! B(555) = dA(311)/dV(114) B(555) = RCT(311) ! B(556) = dA(312)/dV(99) B(556) = RCT(312) ! B(557) = dA(313)/dV(53) B(557) = RCT(313) ! B(558) = dA(314)/dV(59) B(558) = RCT(314) ! B(559) = dA(315)/dV(129) B(559) = RCT(315) ! B(560) = dA(316)/dV(129) B(560) = RCT(316) ! B(561) = dA(317)/dV(55) B(561) = RCT(317) ! B(562) = dA(318)/dV(55) B(562) = RCT(318) ! B(563) = dA(319)/dV(59) B(563) = RCT(319) ! B(564) = dA(320)/dV(115) B(564) = RCT(320) ! B(565) = dA(321)/dV(115) B(565) = RCT(321) ! B(566) = dA(322)/dV(49) B(566) = RCT(322) ! B(567) = dA(323)/dV(127) B(567) = RCT(323) ! B(568) = dA(324)/dV(85) B(568) = RCT(324) ! B(569) = dA(325)/dV(85) B(569) = RCT(325) ! B(570) = dA(326)/dV(131) B(570) = RCT(326) ! B(571) = dA(327)/dV(100) B(571) = RCT(327) ! B(572) = dA(328)/dV(90) B(572) = RCT(328) ! B(573) = dA(329)/dV(90) B(573) = RCT(329) ! B(574) = dA(330)/dV(118) B(574) = RCT(330) ! B(575) = dA(331)/dV(118) B(575) = RCT(331) ! B(576) = dA(332)/dV(120) B(576) = RCT(332) ! B(577) = dA(333)/dV(120) B(577) = RCT(333) ! B(578) = dA(334)/dV(120) B(578) = RCT(334) ! B(579) = dA(335)/dV(121) B(579) = RCT(335) ! B(580) = dA(336)/dV(121) B(580) = RCT(336) ! B(581) = dA(337)/dV(119) B(581) = RCT(337) ! B(582) = dA(338)/dV(71) B(582) = RCT(338) ! B(583) = dA(339)/dV(67) B(583) = RCT(339) ! B(584) = dA(340)/dV(61) B(584) = RCT(340) ! B(585) = dA(341)/dV(56) B(585) = RCT(341) ! B(586) = dA(342)/dV(57) B(586) = RCT(342) ! B(587) = dA(343)/dV(66) B(587) = RCT(343) ! B(588) = dA(344)/dV(69) B(588) = RCT(344) ! B(589) = dA(345)/dV(58) B(589) = RCT(345) ! B(590) = dA(346)/dV(74) B(590) = RCT(346) ! B(591) = dA(347)/dV(76) B(591) = RCT(347) ! B(592) = dA(348)/dV(80) B(592) = RCT(348) ! B(593) = dA(349)/dV(73) B(593) = RCT(349) ! B(594) = dA(350)/dV(70) B(594) = RCT(350) ! B(595) = dA(351)/dV(64) B(595) = RCT(351) ! B(596) = dA(352)/dV(137) B(596) = RCT(352) ! B(597) = dA(353)/dV(54) B(597) = RCT(353) ! B(598) = dA(354)/dV(104) B(598) = RCT(354) ! B(599) = dA(355)/dV(93) B(599) = RCT(355) ! B(600) = dA(356)/dV(82) B(600) = RCT(356) ! B(601) = dA(357)/dV(125) B(601) = RCT(357) ! B(602) = dA(358)/dV(96) B(602) = RCT(358) ! B(603) = dA(359)/dV(63) B(603) = RCT(359) ! B(604) = dA(360)/dV(65) B(604) = RCT(360) ! B(605) = dA(361)/dV(65) B(605) = RCT(361) ! Construct the Jacobian terms from B's ! JVS(1) = Jac_FULL(1,1) JVS(1) = 0 ! JVS(2) = Jac_FULL(1,114) JVS(2) = B(437) ! JVS(3) = Jac_FULL(2,2) JVS(3) = 0 ! JVS(4) = Jac_FULL(2,46) JVS(4) = B(439) ! JVS(5) = Jac_FULL(3,3) JVS(5) = 0 ! JVS(6) = Jac_FULL(3,99) JVS(6) = B(436) ! JVS(7) = Jac_FULL(4,4) JVS(7) = 0 ! JVS(8) = Jac_FULL(4,55) JVS(8) = B(438) ! JVS(9) = Jac_FULL(5,5) JVS(9) = 0 ! JVS(10) = Jac_FULL(5,128) JVS(10) = B(431) ! JVS(11) = Jac_FULL(6,6) JVS(11) = 0 ! JVS(12) = Jac_FULL(6,135) JVS(12) = B(433) ! JVS(13) = Jac_FULL(7,7) JVS(13) = 0 ! JVS(14) = Jac_FULL(7,49) JVS(14) = B(434) ! JVS(15) = Jac_FULL(8,8) JVS(15) = 0 ! JVS(16) = Jac_FULL(8,79) JVS(16) = B(440) ! JVS(17) = Jac_FULL(9,9) JVS(17) = 0 ! JVS(18) = Jac_FULL(9,50) JVS(18) = B(432) ! JVS(19) = Jac_FULL(10,10) JVS(19) = 0 ! JVS(20) = Jac_FULL(10,45) JVS(20) = B(441) ! JVS(21) = Jac_FULL(11,11) JVS(21) = 0 ! JVS(22) = Jac_FULL(11,137) JVS(22) = B(442) ! JVS(23) = Jac_FULL(12,12) JVS(23) = 0 ! JVS(24) = Jac_FULL(12,48) JVS(24) = B(465) ! JVS(25) = Jac_FULL(12,132) JVS(25) = B(466) ! JVS(26) = Jac_FULL(13,13) JVS(26) = 0 ! JVS(27) = Jac_FULL(13,60) JVS(27) = 0.25*B(461) ! JVS(28) = Jac_FULL(13,132) JVS(28) = 0.25*B(462) ! JVS(29) = Jac_FULL(14,14) JVS(29) = 0 ! JVS(30) = Jac_FULL(14,81) JVS(30) = B(254) ! JVS(31) = Jac_FULL(14,132) JVS(31) = B(255) ! JVS(32) = Jac_FULL(15,15) JVS(32) = 0 ! JVS(33) = Jac_FULL(15,17) JVS(33) = B(532) ! JVS(34) = Jac_FULL(15,136) JVS(34) = B(533) ! JVS(35) = Jac_FULL(16,16) JVS(35) = 0 ! JVS(36) = Jac_FULL(16,17) JVS(36) = B(534) ! JVS(37) = Jac_FULL(16,134) JVS(37) = B(535) ! JVS(38) = Jac_FULL(17,17) JVS(38) = -B(532)-B(534) ! JVS(39) = Jac_FULL(17,18) JVS(39) = B(526) ! JVS(40) = Jac_FULL(17,132) JVS(40) = B(527) ! JVS(41) = Jac_FULL(17,134) JVS(41) = -B(535) ! JVS(42) = Jac_FULL(17,136) JVS(42) = -B(533) ! JVS(43) = Jac_FULL(18,18) JVS(43) = -B(526) ! JVS(44) = Jac_FULL(18,132) JVS(44) = -B(527) ! JVS(45) = Jac_FULL(19,19) JVS(45) = 0 ! JVS(46) = Jac_FULL(19,21) JVS(46) = B(536) ! JVS(47) = Jac_FULL(19,136) JVS(47) = B(537) ! JVS(48) = Jac_FULL(20,20) JVS(48) = 0 ! JVS(49) = Jac_FULL(20,21) JVS(49) = B(538) ! JVS(50) = Jac_FULL(20,134) JVS(50) = B(539) ! JVS(51) = Jac_FULL(21,21) JVS(51) = -B(536)-B(538) ! JVS(52) = Jac_FULL(21,22) JVS(52) = B(528) ! JVS(53) = Jac_FULL(21,132) JVS(53) = B(529) ! JVS(54) = Jac_FULL(21,134) JVS(54) = -B(539) ! JVS(55) = Jac_FULL(21,136) JVS(55) = -B(537) ! JVS(56) = Jac_FULL(22,22) JVS(56) = -B(528) ! JVS(57) = Jac_FULL(22,132) JVS(57) = -B(529) ! JVS(58) = Jac_FULL(23,23) JVS(58) = 0 ! JVS(59) = Jac_FULL(23,25) JVS(59) = B(540) ! JVS(60) = Jac_FULL(23,136) JVS(60) = B(541) ! JVS(61) = Jac_FULL(24,24) JVS(61) = 0 ! JVS(62) = Jac_FULL(24,25) JVS(62) = B(542) ! JVS(63) = Jac_FULL(24,134) JVS(63) = B(543) ! JVS(64) = Jac_FULL(25,25) JVS(64) = -B(540)-B(542) ! JVS(65) = Jac_FULL(25,26) JVS(65) = B(530) ! JVS(66) = Jac_FULL(25,132) JVS(66) = B(531) ! JVS(67) = Jac_FULL(25,134) JVS(67) = -B(543) ! JVS(68) = Jac_FULL(25,136) JVS(68) = -B(541) ! JVS(69) = Jac_FULL(26,26) JVS(69) = -B(530) ! JVS(70) = Jac_FULL(26,132) JVS(70) = -B(531) ! JVS(71) = Jac_FULL(27,27) JVS(71) = 0 ! JVS(72) = Jac_FULL(27,29) JVS(72) = B(546) ! JVS(73) = Jac_FULL(27,136) JVS(73) = B(547) ! JVS(74) = Jac_FULL(28,28) JVS(74) = 0 ! JVS(75) = Jac_FULL(28,29) JVS(75) = B(548) ! JVS(76) = Jac_FULL(28,134) JVS(76) = B(549) ! JVS(77) = Jac_FULL(29,29) JVS(77) = -B(546)-B(548) ! JVS(78) = Jac_FULL(29,30) JVS(78) = B(544) ! JVS(79) = Jac_FULL(29,132) JVS(79) = B(545) ! JVS(80) = Jac_FULL(29,134) JVS(80) = -B(549) ! JVS(81) = Jac_FULL(29,136) JVS(81) = -B(547) ! JVS(82) = Jac_FULL(30,30) JVS(82) = -B(544) ! JVS(83) = Jac_FULL(30,132) JVS(83) = -B(545) ! JVS(84) = Jac_FULL(31,31) JVS(84) = 0 ! JVS(85) = Jac_FULL(31,93) JVS(85) = 0.35*B(493) ! JVS(86) = Jac_FULL(31,132) JVS(86) = 0.35*B(494) ! JVS(87) = Jac_FULL(32,32) JVS(87) = 0 ! JVS(88) = Jac_FULL(32,125) JVS(88) = B(445) ! JVS(89) = Jac_FULL(33,33) JVS(89) = 0 ! JVS(90) = Jac_FULL(33,82) JVS(90) = B(446) ! JVS(91) = Jac_FULL(34,34) JVS(91) = 0 ! JVS(92) = Jac_FULL(34,74) JVS(92) = B(444) ! JVS(93) = Jac_FULL(35,35) JVS(93) = 0 ! JVS(94) = Jac_FULL(35,47) JVS(94) = B(443) ! JVS(95) = Jac_FULL(36,36) JVS(95) = 0 ! JVS(96) = Jac_FULL(36,104) JVS(96) = B(452) ! JVS(97) = Jac_FULL(37,37) JVS(97) = 0 ! JVS(98) = Jac_FULL(37,93) JVS(98) = B(453) ! JVS(99) = Jac_FULL(38,38) JVS(99) = 0 ! JVS(100) = Jac_FULL(38,96) JVS(100) = B(451) ! JVS(101) = Jac_FULL(39,39) JVS(101) = 0 ! JVS(102) = Jac_FULL(39,72) JVS(102) = B(454) ! JVS(103) = Jac_FULL(40,40) JVS(103) = 0 ! JVS(104) = Jac_FULL(40,89) JVS(104) = B(455) ! JVS(105) = Jac_FULL(41,41) JVS(105) = 0 ! JVS(106) = Jac_FULL(41,65) JVS(106) = B(435) ! JVS(107) = Jac_FULL(42,42) JVS(107) = 0 ! JVS(108) = Jac_FULL(42,65) JVS(108) = B(604)+B(605) ! JVS(109) = Jac_FULL(42,68) JVS(109) = B(522) ! JVS(110) = Jac_FULL(42,70) JVS(110) = B(326) ! JVS(111) = Jac_FULL(42,72) JVS(111) = B(64) ! JVS(112) = Jac_FULL(42,75) JVS(112) = B(236)+B(238) ! JVS(113) = Jac_FULL(42,78) JVS(113) = B(520) ! JVS(114) = Jac_FULL(42,81) JVS(114) = 0.15*B(272) ! JVS(115) = Jac_FULL(42,84) JVS(115) = 0.2*B(316)+0.2*B(318) ! JVS(116) = Jac_FULL(42,87) JVS(116) = B(514)+0.5*B(518) ! JVS(117) = Jac_FULL(42,89) JVS(117) = B(126) ! JVS(118) = Jac_FULL(42,91) JVS(118) = B(22) ! JVS(119) = Jac_FULL(42,92) JVS(119) = 0.93*B(497)+0.93*B(499) ! JVS(120) = Jac_FULL(42,95) JVS(120) = 0.54*B(227)+B(229) ! JVS(121) = Jac_FULL(42,97) JVS(121) = B(374) ! JVS(122) = Jac_FULL(42,100) JVS(122) = 0.26*B(240)+0.81*B(242) ! JVS(123) = Jac_FULL(42,102) JVS(123) = 2*B(332)+0.7*B(336)+2*B(338)+B(339)+B(341) ! JVS(124) = Jac_FULL(42,119) JVS(124) = 0.5*B(262) ! JVS(125) = Jac_FULL(42,121) JVS(125) = 0.16*B(276) ! JVS(126) = Jac_FULL(42,122) JVS(126) = B(138)+0.87*B(219) ! JVS(127) = Jac_FULL(42,123) JVS(127) = B(362) ! JVS(128) = Jac_FULL(42,130) JVS(128) = B(79)+2*B(333)+B(363)+B(375) ! JVS(129) = Jac_FULL(42,132) JVS(129) = B(23)+B(65)+B(127)+0.26*B(241)+0.81*B(243)+0.5*B(263)+B(327)+B(523) ! JVS(130) = Jac_FULL(42,133) JVS(130) = 0.7*B(337) ! JVS(131) = Jac_FULL(42,134) JVS(131) = B(80)+B(139)+0.54*B(228)+B(237)+0.2*B(319)+B(342)+0.93*B(498)+B(515) ! JVS(132) = Jac_FULL(42,135) JVS(132) = 0.15*B(273)+0.16*B(277)+B(521) ! JVS(133) = Jac_FULL(42,136) JVS(133) = 0.87*B(220)+B(230)+B(239)+0.2*B(317)+B(340)+0.93*B(500)+0.5*B(519) ! JVS(134) = Jac_FULL(43,43) JVS(134) = 0 ! JVS(135) = Jac_FULL(43,45) JVS(135) = B(441) ! JVS(136) = Jac_FULL(43,46) JVS(136) = B(439) ! JVS(137) = Jac_FULL(43,47) JVS(137) = B(443) ! JVS(138) = Jac_FULL(43,49) JVS(138) = B(434) ! JVS(139) = Jac_FULL(43,50) JVS(139) = B(432) ! JVS(140) = Jac_FULL(43,55) JVS(140) = B(438) ! JVS(141) = Jac_FULL(43,65) JVS(141) = B(435) ! JVS(142) = Jac_FULL(43,72) JVS(142) = B(454) ! JVS(143) = Jac_FULL(43,74) JVS(143) = B(444) ! JVS(144) = Jac_FULL(43,79) JVS(144) = B(440) ! JVS(145) = Jac_FULL(43,82) JVS(145) = B(446) ! JVS(146) = Jac_FULL(43,89) JVS(146) = B(455) ! JVS(147) = Jac_FULL(43,93) JVS(147) = B(453) ! JVS(148) = Jac_FULL(43,96) JVS(148) = B(451) ! JVS(149) = Jac_FULL(43,99) JVS(149) = B(436) ! JVS(150) = Jac_FULL(43,104) JVS(150) = B(452) ! JVS(151) = Jac_FULL(43,114) JVS(151) = B(437) ! JVS(152) = Jac_FULL(43,125) JVS(152) = B(445) ! JVS(153) = Jac_FULL(43,128) JVS(153) = B(431) ! JVS(154) = Jac_FULL(43,135) JVS(154) = B(433) ! JVS(155) = Jac_FULL(43,137) JVS(155) = B(442) ! JVS(156) = Jac_FULL(44,44) JVS(156) = -B(85)-B(87) ! JVS(157) = Jac_FULL(44,132) JVS(157) = -B(86)-B(88) ! JVS(158) = Jac_FULL(45,45) JVS(158) = -B(132)-B(441) ! JVS(159) = Jac_FULL(45,113) JVS(159) = B(130) ! JVS(160) = Jac_FULL(45,128) JVS(160) = B(131) ! JVS(161) = Jac_FULL(46,46) JVS(161) = -B(15)-B(439)-B(552) ! JVS(162) = Jac_FULL(46,132) JVS(162) = B(12)-B(16) ! JVS(163) = Jac_FULL(46,136) JVS(163) = B(19) ! JVS(164) = Jac_FULL(47,47) JVS(164) = -B(314)-B(443) ! JVS(165) = Jac_FULL(47,74) JVS(165) = B(312) ! JVS(166) = Jac_FULL(47,132) JVS(166) = B(313)-B(315) ! JVS(167) = Jac_FULL(48,48) JVS(167) = -B(465) ! JVS(168) = Jac_FULL(48,60) JVS(168) = B(459)+0.75*B(461)+B(463) ! JVS(169) = Jac_FULL(48,129) JVS(169) = B(464) ! JVS(170) = Jac_FULL(48,132) JVS(170) = B(460)+0.75*B(462)-B(466) ! JVS(171) = Jac_FULL(49,49) JVS(171) = -B(78)-B(434)-B(566) ! JVS(172) = Jac_FULL(49,128) JVS(172) = B(76) ! JVS(173) = Jac_FULL(49,130) JVS(173) = B(77) ! JVS(174) = Jac_FULL(50,50) JVS(174) = -B(432)-B(503) ! JVS(175) = Jac_FULL(50,92) JVS(175) = B(501) ! JVS(176) = Jac_FULL(50,95) JVS(176) = 0.1*B(227) ! JVS(177) = Jac_FULL(50,128) JVS(177) = B(502) ! JVS(178) = Jac_FULL(50,134) JVS(178) = 0.1*B(228) ! JVS(179) = Jac_FULL(51,51) JVS(179) = -B(93)-B(122) ! JVS(180) = Jac_FULL(51,129) JVS(180) = -B(123) ! JVS(181) = Jac_FULL(51,132) JVS(181) = -B(94) ! JVS(182) = Jac_FULL(52,52) JVS(182) = -B(81)-B(347) ! JVS(183) = Jac_FULL(52,129) JVS(183) = -B(348) ! JVS(184) = Jac_FULL(52,132) JVS(184) = -B(82) ! JVS(185) = Jac_FULL(53,53) JVS(185) = -B(48)-B(557) ! JVS(186) = Jac_FULL(53,128) JVS(186) = 0.5*B(456) ! JVS(187) = Jac_FULL(53,132) JVS(187) = B(46)-B(49) ! JVS(188) = Jac_FULL(53,134) JVS(188) = B(47) ! JVS(189) = Jac_FULL(54,54) JVS(189) = -B(345)-B(597) ! JVS(190) = Jac_FULL(54,130) JVS(190) = 0.41*B(215) ! JVS(191) = Jac_FULL(54,132) JVS(191) = -B(346) ! JVS(192) = Jac_FULL(54,136) JVS(192) = 0.41*B(216) ! JVS(193) = Jac_FULL(55,55) JVS(193) = -B(63)-B(438)-B(458)-B(561)-B(562) ! JVS(194) = Jac_FULL(55,128) JVS(194) = B(61) ! JVS(195) = Jac_FULL(55,129) JVS(195) = B(62) ! JVS(196) = Jac_FULL(56,56) JVS(196) = -B(300)-B(585) ! JVS(197) = Jac_FULL(56,94) JVS(197) = B(211) ! JVS(198) = Jac_FULL(56,132) JVS(198) = -B(301) ! JVS(199) = Jac_FULL(56,136) JVS(199) = B(212) ! JVS(200) = Jac_FULL(57,57) JVS(200) = -B(302)-B(586) ! JVS(201) = Jac_FULL(57,98) JVS(201) = B(166) ! JVS(202) = Jac_FULL(57,132) JVS(202) = -B(303) ! JVS(203) = Jac_FULL(57,136) JVS(203) = B(167) ! JVS(204) = Jac_FULL(58,58) JVS(204) = -B(306)-B(589) ! JVS(205) = Jac_FULL(58,113) JVS(205) = 0.41*B(217) ! JVS(206) = Jac_FULL(58,132) JVS(206) = -B(307) ! JVS(207) = Jac_FULL(58,136) JVS(207) = 0.41*B(218) ! JVS(208) = Jac_FULL(59,59) JVS(208) = -B(52)-B(53)-B(558)-B(563) ! JVS(209) = Jac_FULL(59,128) JVS(209) = B(50) ! JVS(210) = Jac_FULL(59,132) JVS(210) = -B(54) ! JVS(211) = Jac_FULL(59,136) JVS(211) = B(51) ! JVS(212) = Jac_FULL(60,60) JVS(212) = -B(459)-B(461)-B(463) ! JVS(213) = Jac_FULL(60,129) JVS(213) = -B(464) ! JVS(214) = Jac_FULL(60,132) JVS(214) = -B(460)-B(462) ! JVS(215) = Jac_FULL(61,61) JVS(215) = -B(298)-B(584) ! JVS(216) = Jac_FULL(61,112) JVS(216) = B(209) ! JVS(217) = Jac_FULL(61,132) JVS(217) = -B(299) ! JVS(218) = Jac_FULL(61,136) JVS(218) = B(210) ! JVS(219) = Jac_FULL(62,62) JVS(219) = -B(32)-B(34)-B(553) ! JVS(220) = Jac_FULL(62,132) JVS(220) = -B(33)-B(35) ! JVS(221) = Jac_FULL(62,133) JVS(221) = B(28) ! JVS(222) = Jac_FULL(62,136) JVS(222) = B(29) ! JVS(223) = Jac_FULL(63,63) JVS(223) = -B(36)-B(38)-B(603) ! JVS(224) = Jac_FULL(63,108) JVS(224) = 0.85*B(154) ! JVS(225) = Jac_FULL(63,132) JVS(225) = -B(37)-B(39) ! JVS(226) = Jac_FULL(63,136) JVS(226) = 0.85*B(155) ! JVS(227) = Jac_FULL(64,64) JVS(227) = -B(328)-B(330)-B(595) ! JVS(228) = Jac_FULL(64,122) JVS(228) = 0.1*B(219) ! JVS(229) = Jac_FULL(64,132) JVS(229) = -B(329)-B(331) ! JVS(230) = Jac_FULL(64,136) JVS(230) = 0.1*B(220) ! JVS(231) = Jac_FULL(65,65) JVS(231) = -B(235)-B(435)-B(604)-B(605) ! JVS(232) = Jac_FULL(65,75) JVS(232) = B(233) ! JVS(233) = Jac_FULL(65,95) JVS(233) = 0.36*B(227) ! JVS(234) = Jac_FULL(65,128) JVS(234) = B(234) ! JVS(235) = Jac_FULL(65,134) JVS(235) = 0.36*B(228) ! JVS(236) = Jac_FULL(66,66) JVS(236) = -B(304)-B(587) ! JVS(237) = Jac_FULL(66,87) JVS(237) = 0.5*B(518) ! JVS(238) = Jac_FULL(66,126) JVS(238) = B(150) ! JVS(239) = Jac_FULL(66,132) JVS(239) = -B(305) ! JVS(240) = Jac_FULL(66,136) JVS(240) = B(151)+0.5*B(519) ! JVS(241) = Jac_FULL(67,67) JVS(241) = -B(296)-B(583) ! JVS(242) = Jac_FULL(67,110) JVS(242) = B(170) ! JVS(243) = Jac_FULL(67,132) JVS(243) = -B(297) ! JVS(244) = Jac_FULL(67,136) JVS(244) = B(171) ! JVS(245) = Jac_FULL(68,68) JVS(245) = -B(522) ! JVS(246) = Jac_FULL(68,103) JVS(246) = 0.13*B(479)+0.065*B(483) ! JVS(247) = Jac_FULL(68,125) JVS(247) = 0.5*B(449) ! JVS(248) = Jac_FULL(68,132) JVS(248) = -B(523) ! JVS(249) = Jac_FULL(68,134) JVS(249) = 0.13*B(480) ! JVS(250) = Jac_FULL(68,135) JVS(250) = 0.5*B(450) ! JVS(251) = Jac_FULL(68,136) JVS(251) = 0.065*B(484) ! JVS(252) = Jac_FULL(69,69) JVS(252) = -B(308)-B(588) ! JVS(253) = Jac_FULL(69,109) JVS(253) = B(213) ! JVS(254) = Jac_FULL(69,132) JVS(254) = -B(309) ! JVS(255) = Jac_FULL(69,136) JVS(255) = B(214) ! JVS(256) = Jac_FULL(70,70) JVS(256) = -B(324)-B(326)-B(594) ! JVS(257) = Jac_FULL(70,105) JVS(257) = 0.02*B(162) ! JVS(258) = Jac_FULL(70,132) JVS(258) = -B(325)-B(327) ! JVS(259) = Jac_FULL(70,136) JVS(259) = 0.02*B(163) ! JVS(260) = Jac_FULL(71,71) JVS(260) = -B(292)-B(294)-B(582) ! JVS(261) = Jac_FULL(71,117) JVS(261) = 0.5*B(168) ! JVS(262) = Jac_FULL(71,132) JVS(262) = -B(293)-B(295) ! JVS(263) = Jac_FULL(71,136) JVS(263) = 0.5*B(169) ! JVS(264) = Jac_FULL(72,72) JVS(264) = -B(64)-B(454) ! JVS(265) = Jac_FULL(72,84) JVS(265) = 0.074*B(316)+0.074*B(318) ! JVS(266) = Jac_FULL(72,92) JVS(266) = 0.07*B(497)+0.07*B(499) ! JVS(267) = Jac_FULL(72,93) JVS(267) = 0.65*B(493) ! JVS(268) = Jac_FULL(72,100) JVS(268) = B(242) ! JVS(269) = Jac_FULL(72,103) JVS(269) = 0.31*B(479)+0.155*B(483) ! JVS(270) = Jac_FULL(72,119) JVS(270) = 0.5*B(262) ! JVS(271) = Jac_FULL(72,124) JVS(271) = 0.2*B(349) ! JVS(272) = Jac_FULL(72,132) JVS(272) = -B(65)+B(243)+0.5*B(263)+0.65*B(494) ! JVS(273) = Jac_FULL(72,134) JVS(273) = 0.074*B(319)+0.31*B(480)+0.07*B(498) ! JVS(274) = Jac_FULL(72,135) JVS(274) = 0.2*B(350) ! JVS(275) = Jac_FULL(72,136) JVS(275) = 0.074*B(317)+0.155*B(484)+0.07*B(500) ! JVS(276) = Jac_FULL(73,73) JVS(276) = -B(322)-B(593) ! JVS(277) = Jac_FULL(73,101) JVS(277) = 0.1*B(160) ! JVS(278) = Jac_FULL(73,132) JVS(278) = -B(323) ! JVS(279) = Jac_FULL(73,136) JVS(279) = 0.1*B(161) ! JVS(280) = Jac_FULL(74,74) JVS(280) = -B(310)-B(312)-B(444)-B(590) ! JVS(281) = Jac_FULL(74,123) JVS(281) = 0.88*B(158) ! JVS(282) = Jac_FULL(74,132) JVS(282) = -B(311)-B(313) ! JVS(283) = Jac_FULL(74,136) JVS(283) = 0.88*B(159) ! JVS(284) = Jac_FULL(75,65) JVS(284) = B(235) ! JVS(285) = Jac_FULL(75,75) JVS(285) = -B(233)-B(236)-B(238) ! JVS(286) = Jac_FULL(75,95) JVS(286) = 0 ! JVS(287) = Jac_FULL(75,128) JVS(287) = -B(234) ! JVS(288) = Jac_FULL(75,134) JVS(288) = -B(237) ! JVS(289) = Jac_FULL(75,136) JVS(289) = -B(239) ! JVS(290) = Jac_FULL(76,76) JVS(290) = -B(320)-B(591) ! JVS(291) = Jac_FULL(76,111) JVS(291) = 0.1*B(473) ! JVS(292) = Jac_FULL(76,132) JVS(292) = -B(321) ! JVS(293) = Jac_FULL(76,136) JVS(293) = 0.1*B(474) ! JVS(294) = Jac_FULL(77,76) JVS(294) = 0.654*B(320) ! JVS(295) = Jac_FULL(77,77) JVS(295) = -B(504) ! JVS(296) = Jac_FULL(77,111) JVS(296) = 0.29*B(364)+0.29*B(469) ! JVS(297) = Jac_FULL(77,130) JVS(297) = 0.29*B(365) ! JVS(298) = Jac_FULL(77,132) JVS(298) = 0.654*B(321)-B(505) ! JVS(299) = Jac_FULL(77,134) JVS(299) = 0.29*B(470) ! JVS(300) = Jac_FULL(77,136) JVS(300) = 0 ! JVS(301) = Jac_FULL(78,78) JVS(301) = -B(512)-B(520) ! JVS(302) = Jac_FULL(78,111) JVS(302) = 0.17*B(364)+0.17*B(469) ! JVS(303) = Jac_FULL(78,130) JVS(303) = 0.17*B(365) ! JVS(304) = Jac_FULL(78,132) JVS(304) = -B(513) ! JVS(305) = Jac_FULL(78,134) JVS(305) = 0.17*B(470) ! JVS(306) = Jac_FULL(78,135) JVS(306) = -B(521) ! JVS(307) = Jac_FULL(79,79) JVS(307) = -B(135)-B(225)-B(231)-B(440) ! JVS(308) = Jac_FULL(79,122) JVS(308) = B(133) ! JVS(309) = Jac_FULL(79,128) JVS(309) = B(134) ! JVS(310) = Jac_FULL(79,132) JVS(310) = -B(226) ! JVS(311) = Jac_FULL(79,135) JVS(311) = -B(232) ! JVS(312) = Jac_FULL(80,80) JVS(312) = -B(491)-B(592) ! JVS(313) = Jac_FULL(80,103) JVS(313) = 0.5*B(483) ! JVS(314) = Jac_FULL(80,107) JVS(314) = 0.5*B(489) ! JVS(315) = Jac_FULL(80,132) JVS(315) = -B(492) ! JVS(316) = Jac_FULL(80,136) JVS(316) = 0.5*B(484)+0.5*B(490) ! JVS(317) = Jac_FULL(81,81) JVS(317) = -B(254)-B(272)-B(278) ! JVS(318) = Jac_FULL(81,129) JVS(318) = -B(279) ! JVS(319) = Jac_FULL(81,132) JVS(319) = -B(255) ! JVS(320) = Jac_FULL(81,135) JVS(320) = -B(273) ! JVS(321) = Jac_FULL(82,82) JVS(321) = -B(446)-B(447)-B(477)-B(600) ! JVS(322) = Jac_FULL(82,123) JVS(322) = 0.047*B(105) ! JVS(323) = Jac_FULL(82,132) JVS(323) = -B(478) ! JVS(324) = Jac_FULL(82,134) JVS(324) = 0.047*B(106) ! JVS(325) = Jac_FULL(82,135) JVS(325) = -B(448) ! JVS(326) = Jac_FULL(83,83) JVS(326) = -B(506)-B(508)-B(510) ! JVS(327) = Jac_FULL(83,123) JVS(327) = 0.1*B(105)+0.113*B(362) ! JVS(328) = Jac_FULL(83,130) JVS(328) = 0.113*B(363) ! JVS(329) = Jac_FULL(83,134) JVS(329) = 0.1*B(106)-B(507)-B(509) ! JVS(330) = Jac_FULL(83,136) JVS(330) = -B(511) ! JVS(331) = Jac_FULL(84,47) JVS(331) = B(314) ! JVS(332) = Jac_FULL(84,74) JVS(332) = 0 ! JVS(333) = Jac_FULL(84,84) JVS(333) = -B(316)-B(318) ! JVS(334) = Jac_FULL(84,123) JVS(334) = 0 ! JVS(335) = Jac_FULL(84,132) JVS(335) = B(315) ! JVS(336) = Jac_FULL(84,134) JVS(336) = -B(319) ! JVS(337) = Jac_FULL(84,136) JVS(337) = -B(317) ! JVS(338) = Jac_FULL(85,57) JVS(338) = 0.791*B(302)+B(586) ! JVS(339) = Jac_FULL(85,85) JVS(339) = -B(142)-B(144)-B(568)-B(569) ! JVS(340) = Jac_FULL(85,98) JVS(340) = B(113)+0.75*B(197)+B(370)+B(402) ! JVS(341) = Jac_FULL(85,126) JVS(341) = 0.32*B(95)+0.16*B(178)+0.32*B(356) ! JVS(342) = Jac_FULL(85,130) JVS(342) = 0.32*B(357)+B(371)+B(403) ! JVS(343) = Jac_FULL(85,132) JVS(343) = -B(143)-B(145)+0.791*B(303) ! JVS(344) = Jac_FULL(85,133) JVS(344) = 0.16*B(179)+0.75*B(198) ! JVS(345) = Jac_FULL(85,134) JVS(345) = 0.32*B(96)+B(114) ! JVS(346) = Jac_FULL(85,136) JVS(346) = 0 ! JVS(347) = Jac_FULL(85,137) JVS(347) = 0.32*B(596) ! JVS(348) = Jac_FULL(86,81) JVS(348) = 0.07*B(272) ! JVS(349) = Jac_FULL(86,86) JVS(349) = -B(221)-B(223)-B(244) ! JVS(350) = Jac_FULL(86,120) JVS(350) = B(576) ! JVS(351) = Jac_FULL(86,129) JVS(351) = -B(245) ! JVS(352) = Jac_FULL(86,132) JVS(352) = -B(222) ! JVS(353) = Jac_FULL(86,135) JVS(353) = -B(224)+0.07*B(273) ! JVS(354) = Jac_FULL(87,78) JVS(354) = B(512) ! JVS(355) = Jac_FULL(87,87) JVS(355) = -B(514)-B(516)-B(518) ! JVS(356) = Jac_FULL(87,111) JVS(356) = 0 ! JVS(357) = Jac_FULL(87,130) JVS(357) = 0 ! JVS(358) = Jac_FULL(87,132) JVS(358) = B(513) ! JVS(359) = Jac_FULL(87,134) JVS(359) = -B(515)-B(517) ! JVS(360) = Jac_FULL(87,135) JVS(360) = 0 ! JVS(361) = Jac_FULL(87,136) JVS(361) = -B(519) ! JVS(362) = Jac_FULL(88,88) JVS(362) = -B(205) ! JVS(363) = Jac_FULL(88,94) JVS(363) = 0.25*B(146) ! JVS(364) = Jac_FULL(88,98) JVS(364) = 0.25*B(197) ! JVS(365) = Jac_FULL(88,101) JVS(365) = 0.25*B(191) ! JVS(366) = Jac_FULL(88,102) JVS(366) = 0.3*B(336) ! JVS(367) = Jac_FULL(88,105) JVS(367) = 0.15*B(193) ! JVS(368) = Jac_FULL(88,106) JVS(368) = 0.25*B(184) ! JVS(369) = Jac_FULL(88,109) JVS(369) = 0.25*B(148) ! JVS(370) = Jac_FULL(88,110) JVS(370) = 0.25*B(201) ! JVS(371) = Jac_FULL(88,111) JVS(371) = 0.25*B(189) ! JVS(372) = Jac_FULL(88,116) JVS(372) = 0.25*B(180) ! JVS(373) = Jac_FULL(88,117) JVS(373) = 0.25*B(199) ! JVS(374) = Jac_FULL(88,123) JVS(374) = 0.24*B(186)+0.48*B(188) ! JVS(375) = Jac_FULL(88,126) JVS(375) = 0.25*B(178) ! JVS(376) = Jac_FULL(88,132) JVS(376) = -B(206) ! JVS(377) = Jac_FULL(88,133) JVS(377) = 0.25*B(147)+0.25*B(149)+0.25*B(179)+0.25*B(181)+0.25*B(185)+0.24*B(187)+0.25*B(190)+0.25*B(192)+0.15*B(194)& &+0.25*B(198)+0.25*B(200)+0.25*B(202)+0.3*B(337) ! JVS(378) = Jac_FULL(89,89) JVS(378) = -B(126)-B(455) ! JVS(379) = Jac_FULL(89,92) JVS(379) = 0.08*B(497)+0.08*B(499) ! JVS(380) = Jac_FULL(89,94) JVS(380) = B(268) ! JVS(381) = Jac_FULL(89,97) JVS(381) = B(396) ! JVS(382) = Jac_FULL(89,98) JVS(382) = B(402) ! JVS(383) = Jac_FULL(89,101) JVS(383) = B(390) ! JVS(384) = Jac_FULL(89,102) JVS(384) = B(334) ! JVS(385) = Jac_FULL(89,105) JVS(385) = B(392) ! JVS(386) = Jac_FULL(89,106) JVS(386) = B(384) ! JVS(387) = Jac_FULL(89,108) JVS(387) = B(382) ! JVS(388) = Jac_FULL(89,109) JVS(388) = B(270) ! JVS(389) = Jac_FULL(89,110) JVS(389) = B(400) ! JVS(390) = Jac_FULL(89,111) JVS(390) = B(388) ! JVS(391) = Jac_FULL(89,112) JVS(391) = B(406) ! JVS(392) = Jac_FULL(89,116) JVS(392) = B(394) ! JVS(393) = Jac_FULL(89,117) JVS(393) = B(398) ! JVS(394) = Jac_FULL(89,119) JVS(394) = 0.5*B(262) ! JVS(395) = Jac_FULL(89,123) JVS(395) = B(386) ! JVS(396) = Jac_FULL(89,126) JVS(396) = B(380) ! JVS(397) = Jac_FULL(89,130) JVS(397) = 0.15*B(215)+B(269)+B(271)+B(335)+B(354)+B(381)+B(383)+B(385)+B(387)+B(389)+B(391)+B(393)+B(395)+B(397)& &+B(399)+B(401)+B(403)+B(407) ! JVS(398) = Jac_FULL(89,132) JVS(398) = -B(127)+0.5*B(263) ! JVS(399) = Jac_FULL(89,133) JVS(399) = B(355) ! JVS(400) = Jac_FULL(89,134) JVS(400) = 0.08*B(498) ! JVS(401) = Jac_FULL(89,136) JVS(401) = 0.15*B(216)+0.08*B(500) ! JVS(402) = Jac_FULL(90,83) JVS(402) = 0.48*B(506)+0.48*B(510) ! JVS(403) = Jac_FULL(90,84) JVS(403) = 0.275*B(316)+0.275*B(318) ! JVS(404) = Jac_FULL(90,90) JVS(404) = -B(246)-B(250)-B(572)-B(573) ! JVS(405) = Jac_FULL(90,100) JVS(405) = 0.155*B(240) ! JVS(406) = Jac_FULL(90,111) JVS(406) = 0.216*B(364)+0.216*B(469) ! JVS(407) = Jac_FULL(90,123) JVS(407) = 0 ! JVS(408) = Jac_FULL(90,129) JVS(408) = -B(251) ! JVS(409) = Jac_FULL(90,130) JVS(409) = 0.216*B(365) ! JVS(410) = Jac_FULL(90,132) JVS(410) = 0.155*B(241)-B(247) ! JVS(411) = Jac_FULL(90,134) JVS(411) = 0.275*B(319)+0.216*B(470)+0.48*B(507) ! JVS(412) = Jac_FULL(90,136) JVS(412) = 0.275*B(317)+0.48*B(511) ! JVS(413) = Jac_FULL(91,70) JVS(413) = 0.5*B(594) ! JVS(414) = Jac_FULL(91,76) JVS(414) = 0.67*B(591) ! JVS(415) = Jac_FULL(91,77) JVS(415) = 1.5*B(504) ! JVS(416) = Jac_FULL(91,81) JVS(416) = 0.05*B(272) ! JVS(417) = Jac_FULL(91,84) JVS(417) = 0.251*B(316)+0.251*B(318) ! JVS(418) = Jac_FULL(91,85) JVS(418) = B(569) ! JVS(419) = Jac_FULL(91,86) JVS(419) = 0.42*B(223) ! JVS(420) = Jac_FULL(91,90) JVS(420) = 2*B(246)+2*B(250)+1.5*B(572)+2*B(573) ! JVS(421) = Jac_FULL(91,91) JVS(421) = -B(22) ! JVS(422) = Jac_FULL(91,96) JVS(422) = B(602) ! JVS(423) = Jac_FULL(91,97) JVS(423) = 0.5*B(111)+0.5*B(164)+0.375*B(195)+0.5*B(374) ! JVS(424) = Jac_FULL(91,98) JVS(424) = 0 ! JVS(425) = Jac_FULL(91,100) JVS(425) = 0.58*B(240)+0.19*B(242)+B(571) ! JVS(426) = Jac_FULL(91,104) JVS(426) = 0.5*B(598) ! JVS(427) = Jac_FULL(91,105) JVS(427) = 0.857*B(109)+0.686*B(162)+0.595*B(193)+0.857*B(368) ! JVS(428) = Jac_FULL(91,111) JVS(428) = 0.33*B(189)+0.09*B(364)+0.09*B(469) ! JVS(429) = Jac_FULL(91,114) JVS(429) = B(40)+B(70)+B(554)+B(555) ! JVS(430) = Jac_FULL(91,115) JVS(430) = 0.05*B(72)+B(564)+B(565) ! JVS(431) = Jac_FULL(91,118) JVS(431) = B(248)+B(252)+B(574)+B(575) ! JVS(432) = Jac_FULL(91,119) JVS(432) = 0.5*B(262) ! JVS(433) = Jac_FULL(91,120) JVS(433) = 0.05*B(274)+B(576)+B(577) ! JVS(434) = Jac_FULL(91,121) JVS(434) = 0.2*B(276)+B(580) ! JVS(435) = Jac_FULL(91,122) JVS(435) = 0.5*B(138) ! JVS(436) = Jac_FULL(91,123) JVS(436) = 0 ! JVS(437) = Jac_FULL(91,124) JVS(437) = 0.4*B(349) ! JVS(438) = Jac_FULL(91,126) JVS(438) = 0 ! JVS(439) = Jac_FULL(91,127) JVS(439) = B(567) ! JVS(440) = Jac_FULL(91,129) JVS(440) = B(71)+2*B(251)+B(253) ! JVS(441) = Jac_FULL(91,130) JVS(441) = 0.09*B(365)+0.857*B(369)+0.5*B(375) ! JVS(442) = Jac_FULL(91,132) JVS(442) = -B(23)+B(41)+0.05*B(73)+0.58*B(241)+0.19*B(243)+2*B(247)+B(249)+0.5*B(263)+1.5*B(505) ! JVS(443) = Jac_FULL(91,133) JVS(443) = 0.33*B(190)+0.595*B(194)+0.375*B(196) ! JVS(444) = Jac_FULL(91,134) JVS(444) = 0.857*B(110)+0.5*B(112)+0.5*B(139)+0.251*B(319)+0.09*B(470) ! JVS(445) = Jac_FULL(91,135) JVS(445) = 0.42*B(224)+0.05*B(273)+0.05*B(275)+0.2*B(277)+0.4*B(350) ! JVS(446) = Jac_FULL(91,136) JVS(446) = 0.686*B(163)+0.5*B(165)+0.251*B(317) ! JVS(447) = Jac_FULL(91,137) JVS(447) = 0 ! JVS(448) = Jac_FULL(92,50) JVS(448) = B(503) ! JVS(449) = Jac_FULL(92,92) JVS(449) = -B(497)-B(499)-B(501) ! JVS(450) = Jac_FULL(92,95) JVS(450) = 0 ! JVS(451) = Jac_FULL(92,104) JVS(451) = B(495) ! JVS(452) = Jac_FULL(92,128) JVS(452) = -B(502) ! JVS(453) = Jac_FULL(92,132) JVS(453) = B(496) ! JVS(454) = Jac_FULL(92,134) JVS(454) = -B(498) ! JVS(455) = Jac_FULL(92,136) JVS(455) = -B(500) ! JVS(456) = Jac_FULL(93,82) JVS(456) = 0.61*B(447) ! JVS(457) = Jac_FULL(93,93) JVS(457) = -B(453)-B(493)-B(599) ! JVS(458) = Jac_FULL(93,101) JVS(458) = 0.12*B(107) ! JVS(459) = Jac_FULL(93,107) JVS(459) = 0.14*B(485)+0.07*B(489) ! JVS(460) = Jac_FULL(93,123) JVS(460) = 0 ! JVS(461) = Jac_FULL(93,132) JVS(461) = -B(494) ! JVS(462) = Jac_FULL(93,134) JVS(462) = 0.12*B(108)+0.14*B(486) ! JVS(463) = Jac_FULL(93,135) JVS(463) = 0.61*B(448) ! JVS(464) = Jac_FULL(93,136) JVS(464) = 0.07*B(490) ! JVS(465) = Jac_FULL(94,44) JVS(465) = B(87) ! JVS(466) = Jac_FULL(94,56) JVS(466) = 0.36*B(300) ! JVS(467) = Jac_FULL(94,94) JVS(467) = -B(89)-B(146)-B(211)-B(264)-B(268) ! JVS(468) = Jac_FULL(94,126) JVS(468) = 0.05*B(95)+0.03*B(178)+0.05*B(356) ! JVS(469) = Jac_FULL(94,130) JVS(469) = -B(265)-B(269)+0.05*B(357) ! JVS(470) = Jac_FULL(94,132) JVS(470) = B(88)+0.36*B(301) ! JVS(471) = Jac_FULL(94,133) JVS(471) = -B(147)+0.03*B(179) ! JVS(472) = Jac_FULL(94,134) JVS(472) = -B(90)+0.05*B(96) ! JVS(473) = Jac_FULL(94,136) JVS(473) = -B(212) ! JVS(474) = Jac_FULL(94,137) JVS(474) = 0.05*B(596) ! JVS(475) = Jac_FULL(95,79) JVS(475) = B(225) ! JVS(476) = Jac_FULL(95,95) JVS(476) = -B(227)-B(229) ! JVS(477) = Jac_FULL(95,122) JVS(477) = 0 ! JVS(478) = Jac_FULL(95,128) JVS(478) = 0 ! JVS(479) = Jac_FULL(95,132) JVS(479) = B(226) ! JVS(480) = Jac_FULL(95,134) JVS(480) = -B(228) ! JVS(481) = Jac_FULL(95,135) JVS(481) = 0 ! JVS(482) = Jac_FULL(95,136) JVS(482) = -B(230) ! JVS(483) = Jac_FULL(96,67) JVS(483) = 0.791*B(296) ! JVS(484) = Jac_FULL(96,96) JVS(484) = -B(451)-B(524)-B(602) ! JVS(485) = Jac_FULL(96,97) JVS(485) = 0.5*B(111)+0.5*B(164)+0.375*B(195)+0.5*B(374) ! JVS(486) = Jac_FULL(96,103) JVS(486) = 0.15*B(479)+0.075*B(483) ! JVS(487) = Jac_FULL(96,110) JVS(487) = 0 ! JVS(488) = Jac_FULL(96,125) JVS(488) = 0.5*B(449) ! JVS(489) = Jac_FULL(96,130) JVS(489) = 0.5*B(375) ! JVS(490) = Jac_FULL(96,132) JVS(490) = 0.791*B(297)-B(525) ! JVS(491) = Jac_FULL(96,133) JVS(491) = 0.375*B(196) ! JVS(492) = Jac_FULL(96,134) JVS(492) = 0.5*B(112)+0.15*B(480) ! JVS(493) = Jac_FULL(96,135) JVS(493) = 0.5*B(450) ! JVS(494) = Jac_FULL(96,136) JVS(494) = 0.5*B(165)+0.075*B(484) ! JVS(495) = Jac_FULL(97,97) JVS(495) = -B(111)-B(164)-B(195)-B(374)-B(396) ! JVS(496) = Jac_FULL(97,121) JVS(496) = B(280) ! JVS(497) = Jac_FULL(97,129) JVS(497) = B(281) ! JVS(498) = Jac_FULL(97,130) JVS(498) = -B(375)-B(397) ! JVS(499) = Jac_FULL(97,133) JVS(499) = -B(196) ! JVS(500) = Jac_FULL(97,134) JVS(500) = -B(112) ! JVS(501) = Jac_FULL(97,136) JVS(501) = -B(165) ! JVS(502) = Jac_FULL(98,44) JVS(502) = B(85) ! JVS(503) = Jac_FULL(98,57) JVS(503) = 0.209*B(302) ! JVS(504) = Jac_FULL(98,98) JVS(504) = -B(113)-B(166)-B(197)-B(370)-B(402) ! JVS(505) = Jac_FULL(98,126) JVS(505) = 0.18*B(95)+0.09*B(178)+0.18*B(356) ! JVS(506) = Jac_FULL(98,130) JVS(506) = 0.18*B(357)-B(371)-B(403) ! JVS(507) = Jac_FULL(98,132) JVS(507) = B(86)+0.209*B(303) ! JVS(508) = Jac_FULL(98,133) JVS(508) = 0.09*B(179)-B(198) ! JVS(509) = Jac_FULL(98,134) JVS(509) = 0.18*B(96)-B(114) ! JVS(510) = Jac_FULL(98,136) JVS(510) = -B(167) ! JVS(511) = Jac_FULL(98,137) JVS(511) = 0.18*B(596) ! JVS(512) = Jac_FULL(99,51) JVS(512) = B(122) ! JVS(513) = Jac_FULL(99,52) JVS(513) = B(347) ! JVS(514) = Jac_FULL(99,55) JVS(514) = 2*B(458) ! JVS(515) = Jac_FULL(99,60) JVS(515) = B(463) ! JVS(516) = Jac_FULL(99,83) JVS(516) = B(508) ! JVS(517) = Jac_FULL(99,87) JVS(517) = B(516) ! JVS(518) = Jac_FULL(99,90) JVS(518) = B(250) ! JVS(519) = Jac_FULL(99,99) JVS(519) = -B(44)-B(436)-B(556) ! JVS(520) = Jac_FULL(99,100) JVS(520) = 0 ! JVS(521) = Jac_FULL(99,102) JVS(521) = B(343) ! JVS(522) = Jac_FULL(99,103) JVS(522) = B(481) ! JVS(523) = Jac_FULL(99,107) JVS(523) = B(487) ! JVS(524) = Jac_FULL(99,111) JVS(524) = B(471) ! JVS(525) = Jac_FULL(99,114) JVS(525) = B(70) ! JVS(526) = Jac_FULL(99,115) JVS(526) = B(74) ! JVS(527) = Jac_FULL(99,117) JVS(527) = 0.425*B(199)+0.85*B(376) ! JVS(528) = Jac_FULL(99,118) JVS(528) = B(252) ! JVS(529) = Jac_FULL(99,121) JVS(529) = B(282) ! JVS(530) = Jac_FULL(99,123) JVS(530) = 0 ! JVS(531) = Jac_FULL(99,127) JVS(531) = B(140) ! JVS(532) = Jac_FULL(99,128) JVS(532) = B(42)+0.5*B(456) ! JVS(533) = Jac_FULL(99,129) JVS(533) = B(71)+B(75)+B(123)+B(141)+B(176)+B(251)+B(253)+B(283)+B(348)+B(457)+B(464) ! JVS(534) = Jac_FULL(99,130) JVS(534) = 0.85*B(377) ! JVS(535) = Jac_FULL(99,131) JVS(535) = B(177) ! JVS(536) = Jac_FULL(99,132) JVS(536) = B(43)-B(45) ! JVS(537) = Jac_FULL(99,133) JVS(537) = 0.425*B(200) ! JVS(538) = Jac_FULL(99,134) JVS(538) = B(344)+B(472)+B(482)+B(488)+B(509)+B(517) ! JVS(539) = Jac_FULL(99,135) JVS(539) = 0 ! JVS(540) = Jac_FULL(99,136) JVS(540) = 0 ! JVS(541) = Jac_FULL(100,73) JVS(541) = 0.7*B(593) ! JVS(542) = Jac_FULL(100,76) JVS(542) = 0.26*B(591) ! JVS(543) = Jac_FULL(100,83) JVS(543) = 0.52*B(506)+0.52*B(510) ! JVS(544) = Jac_FULL(100,84) JVS(544) = 0.275*B(316)+0.275*B(318) ! JVS(545) = Jac_FULL(100,93) JVS(545) = B(599) ! JVS(546) = Jac_FULL(100,100) JVS(546) = -B(240)-B(242)-B(571) ! JVS(547) = Jac_FULL(100,101) JVS(547) = 0.53*B(107)+0.578*B(160)+0.36*B(191)+0.6*B(366) ! JVS(548) = Jac_FULL(100,103) JVS(548) = 0.15*B(479)+0.075*B(483) ! JVS(549) = Jac_FULL(100,107) JVS(549) = 0.6*B(485)+0.3*B(489) ! JVS(550) = Jac_FULL(100,111) JVS(550) = 0.13*B(189)+0.234*B(364)+0.234*B(469)+0.9*B(473) ! JVS(551) = Jac_FULL(100,123) JVS(551) = 0 ! JVS(552) = Jac_FULL(100,124) JVS(552) = 0.28*B(349) ! JVS(553) = Jac_FULL(100,125) JVS(553) = 0.5*B(449) ! JVS(554) = Jac_FULL(100,130) JVS(554) = 0.234*B(365)+0.6*B(367) ! JVS(555) = Jac_FULL(100,132) JVS(555) = -B(241)-B(243) ! JVS(556) = Jac_FULL(100,133) JVS(556) = 0.13*B(190)+0.36*B(192) ! JVS(557) = Jac_FULL(100,134) JVS(557) = 0.53*B(108)+0.275*B(319)+0.234*B(470)+0.15*B(480)+0.6*B(486)+0.52*B(507) ! JVS(558) = Jac_FULL(100,135) JVS(558) = 0.28*B(350)+0.5*B(450) ! JVS(559) = Jac_FULL(100,136) JVS(559) = 0.578*B(161)+0.275*B(317)+0.9*B(474)+0.075*B(484)+0.3*B(490)+0.52*B(511) ! JVS(560) = Jac_FULL(101,73) JVS(560) = 0.209*B(322) ! JVS(561) = Jac_FULL(101,101) JVS(561) = -B(107)-B(160)-B(191)-B(366)-B(390) ! JVS(562) = Jac_FULL(101,120) JVS(562) = B(256) ! JVS(563) = Jac_FULL(101,130) JVS(563) = -B(367)-B(391) ! JVS(564) = Jac_FULL(101,132) JVS(564) = B(257)+0.209*B(323) ! JVS(565) = Jac_FULL(101,133) JVS(565) = -B(192) ! JVS(566) = Jac_FULL(101,134) JVS(566) = -B(108) ! JVS(567) = Jac_FULL(101,136) JVS(567) = -B(161) ! JVS(568) = Jac_FULL(102,64) JVS(568) = B(330) ! JVS(569) = Jac_FULL(102,102) JVS(569) = -B(332)-B(334)-B(336)-2*B(338)-B(339)-B(341)-B(343) ! JVS(570) = Jac_FULL(102,122) JVS(570) = 0 ! JVS(571) = Jac_FULL(102,130) JVS(571) = -B(333)-B(335) ! JVS(572) = Jac_FULL(102,132) JVS(572) = B(331) ! JVS(573) = Jac_FULL(102,133) JVS(573) = -B(337) ! JVS(574) = Jac_FULL(102,134) JVS(574) = -B(342)-B(344) ! JVS(575) = Jac_FULL(102,136) JVS(575) = -B(340) ! JVS(576) = Jac_FULL(103,80) JVS(576) = 0.193*B(491) ! JVS(577) = Jac_FULL(103,103) JVS(577) = -B(479)-B(481)-B(483) ! JVS(578) = Jac_FULL(103,107) JVS(578) = 0 ! JVS(579) = Jac_FULL(103,125) JVS(579) = B(475) ! JVS(580) = Jac_FULL(103,132) JVS(580) = B(476)+0.193*B(492) ! JVS(581) = Jac_FULL(103,134) JVS(581) = -B(480)-B(482) ! JVS(582) = Jac_FULL(103,136) JVS(582) = -B(484) ! JVS(583) = Jac_FULL(104,82) JVS(583) = 0.39*B(447) ! JVS(584) = Jac_FULL(104,103) JVS(584) = 0.07*B(479)+0.035*B(483) ! JVS(585) = Jac_FULL(104,104) JVS(585) = -B(452)-B(495)-B(598) ! JVS(586) = Jac_FULL(104,105) JVS(586) = 0.15*B(109) ! JVS(587) = Jac_FULL(104,107) JVS(587) = 0.26*B(485)+0.13*B(489) ! JVS(588) = Jac_FULL(104,123) JVS(588) = 0 ! JVS(589) = Jac_FULL(104,125) JVS(589) = 0 ! JVS(590) = Jac_FULL(104,132) JVS(590) = -B(496) ! JVS(591) = Jac_FULL(104,134) JVS(591) = 0.15*B(110)+0.07*B(480)+0.26*B(486) ! JVS(592) = Jac_FULL(104,135) JVS(592) = 0.39*B(448) ! JVS(593) = Jac_FULL(104,136) JVS(593) = 0.035*B(484)+0.13*B(490) ! JVS(594) = Jac_FULL(105,70) JVS(594) = B(324) ! JVS(595) = Jac_FULL(105,105) JVS(595) = -B(109)-B(162)-B(193)-B(368)-B(392) ! JVS(596) = Jac_FULL(105,121) JVS(596) = 0.47*B(258) ! JVS(597) = Jac_FULL(105,130) JVS(597) = -B(369)-B(393) ! JVS(598) = Jac_FULL(105,132) JVS(598) = 0.47*B(259)+B(325) ! JVS(599) = Jac_FULL(105,133) JVS(599) = -B(194) ! JVS(600) = Jac_FULL(105,134) JVS(600) = -B(110) ! JVS(601) = Jac_FULL(105,136) JVS(601) = -B(163) ! JVS(602) = Jac_FULL(106,106) JVS(602) = -B(103)-B(156)-B(184)-B(360)-B(384) ! JVS(603) = Jac_FULL(106,129) JVS(603) = B(176) ! JVS(604) = Jac_FULL(106,130) JVS(604) = -B(361)-B(385) ! JVS(605) = Jac_FULL(106,131) JVS(605) = B(172)+B(177) ! JVS(606) = Jac_FULL(106,132) JVS(606) = B(173) ! JVS(607) = Jac_FULL(106,133) JVS(607) = -B(185) ! JVS(608) = Jac_FULL(106,134) JVS(608) = -B(104) ! JVS(609) = Jac_FULL(106,136) JVS(609) = -B(157) ! JVS(610) = Jac_FULL(107,80) JVS(610) = 0.193*B(491) ! JVS(611) = Jac_FULL(107,82) JVS(611) = B(477) ! JVS(612) = Jac_FULL(107,103) JVS(612) = 0 ! JVS(613) = Jac_FULL(107,107) JVS(613) = -B(485)-B(487)-B(489) ! JVS(614) = Jac_FULL(107,123) JVS(614) = 0 ! JVS(615) = Jac_FULL(107,125) JVS(615) = 0 ! JVS(616) = Jac_FULL(107,132) JVS(616) = B(478)+0.193*B(492) ! JVS(617) = Jac_FULL(107,134) JVS(617) = -B(486)-B(488) ! JVS(618) = Jac_FULL(107,135) JVS(618) = 0 ! JVS(619) = Jac_FULL(107,136) JVS(619) = -B(490) ! JVS(620) = Jac_FULL(108,63) JVS(620) = B(36) ! JVS(621) = Jac_FULL(108,85) JVS(621) = B(142)+B(144) ! JVS(622) = Jac_FULL(108,98) JVS(622) = 0 ! JVS(623) = Jac_FULL(108,108) JVS(623) = -B(101)-B(154)-B(182)-B(358)-B(382) ! JVS(624) = Jac_FULL(108,122) JVS(624) = 0.152*B(219) ! JVS(625) = Jac_FULL(108,126) JVS(625) = 0 ! JVS(626) = Jac_FULL(108,130) JVS(626) = -B(359)-B(383) ! JVS(627) = Jac_FULL(108,132) JVS(627) = B(37)+B(143)+B(145) ! JVS(628) = Jac_FULL(108,133) JVS(628) = -B(183) ! JVS(629) = Jac_FULL(108,134) JVS(629) = -B(102) ! JVS(630) = Jac_FULL(108,136) JVS(630) = -B(155)+0.152*B(220) ! JVS(631) = Jac_FULL(108,137) JVS(631) = 0 ! JVS(632) = Jac_FULL(109,69) JVS(632) = 0.209*B(308) ! JVS(633) = Jac_FULL(109,86) JVS(633) = B(221) ! JVS(634) = Jac_FULL(109,109) JVS(634) = -B(91)-B(148)-B(213)-B(266)-B(270) ! JVS(635) = Jac_FULL(109,120) JVS(635) = 0 ! JVS(636) = Jac_FULL(109,129) JVS(636) = 0 ! JVS(637) = Jac_FULL(109,130) JVS(637) = -B(267)-B(271) ! JVS(638) = Jac_FULL(109,132) JVS(638) = B(222)+0.209*B(309) ! JVS(639) = Jac_FULL(109,133) JVS(639) = -B(149) ! JVS(640) = Jac_FULL(109,134) JVS(640) = -B(92) ! JVS(641) = Jac_FULL(109,135) JVS(641) = 0 ! JVS(642) = Jac_FULL(109,136) JVS(642) = -B(214) ! JVS(643) = Jac_FULL(110,67) JVS(643) = 0.209*B(296) ! JVS(644) = Jac_FULL(110,86) JVS(644) = B(244) ! JVS(645) = Jac_FULL(110,110) JVS(645) = -B(120)-B(170)-B(201)-B(378)-B(400) ! JVS(646) = Jac_FULL(110,120) JVS(646) = 0 ! JVS(647) = Jac_FULL(110,129) JVS(647) = B(245) ! JVS(648) = Jac_FULL(110,130) JVS(648) = -B(379)-B(401) ! JVS(649) = Jac_FULL(110,132) JVS(649) = 0.209*B(297) ! JVS(650) = Jac_FULL(110,133) JVS(650) = -B(202) ! JVS(651) = Jac_FULL(110,134) JVS(651) = -B(121) ! JVS(652) = Jac_FULL(110,135) JVS(652) = 0 ! JVS(653) = Jac_FULL(110,136) JVS(653) = -B(171) ! JVS(654) = Jac_FULL(111,76) JVS(654) = 0.346*B(320) ! JVS(655) = Jac_FULL(111,111) JVS(655) = -B(189)-B(364)-B(388)-B(469)-B(471)-B(473) ! JVS(656) = Jac_FULL(111,124) JVS(656) = B(467) ! JVS(657) = Jac_FULL(111,130) JVS(657) = -B(365)-B(389) ! JVS(658) = Jac_FULL(111,132) JVS(658) = 0.346*B(321)+B(468) ! JVS(659) = Jac_FULL(111,133) JVS(659) = -B(190) ! JVS(660) = Jac_FULL(111,134) JVS(660) = -B(470)-B(472) ! JVS(661) = Jac_FULL(111,136) JVS(661) = -B(474) ! JVS(662) = Jac_FULL(112,52) JVS(662) = B(81)+B(347) ! JVS(663) = Jac_FULL(112,61) JVS(663) = 0.36*B(298) ! JVS(664) = Jac_FULL(112,112) JVS(664) = -B(83)-B(174)-2*B(207)-2*B(208)-B(209)-B(404)-B(406) ! JVS(665) = Jac_FULL(112,113) JVS(665) = B(136)+0.44*B(217)+B(284)+B(408) ! JVS(666) = Jac_FULL(112,126) JVS(666) = 0.32*B(95)+0.16*B(178)+0.32*B(356) ! JVS(667) = Jac_FULL(112,127) JVS(667) = B(567) ! JVS(668) = Jac_FULL(112,129) JVS(668) = B(348) ! JVS(669) = Jac_FULL(112,130) JVS(669) = 0.32*B(357)-B(405)-B(407)+B(409) ! JVS(670) = Jac_FULL(112,131) JVS(670) = 0.85*B(570) ! JVS(671) = Jac_FULL(112,132) JVS(671) = B(82)+0.36*B(299) ! JVS(672) = Jac_FULL(112,133) JVS(672) = -B(175)+0.16*B(179)+B(285) ! JVS(673) = Jac_FULL(112,134) JVS(673) = -B(84)+0.32*B(96)+B(137) ! JVS(674) = Jac_FULL(112,136) JVS(674) = -B(210)+0.44*B(218) ! JVS(675) = Jac_FULL(112,137) JVS(675) = 0.32*B(596) ! JVS(676) = Jac_FULL(113,45) JVS(676) = B(132) ! JVS(677) = Jac_FULL(113,58) JVS(677) = B(306) ! JVS(678) = Jac_FULL(113,113) JVS(678) = -B(130)-B(136)-B(217)-B(284)-B(288)-B(408) ! JVS(679) = Jac_FULL(113,127) JVS(679) = B(128)+B(140) ! JVS(680) = Jac_FULL(113,128) JVS(680) = -B(131) ! JVS(681) = Jac_FULL(113,129) JVS(681) = B(141) ! JVS(682) = Jac_FULL(113,130) JVS(682) = -B(409) ! JVS(683) = Jac_FULL(113,131) JVS(683) = 0.15*B(570) ! JVS(684) = Jac_FULL(113,132) JVS(684) = B(129)+B(307) ! JVS(685) = Jac_FULL(113,133) JVS(685) = -B(285)-B(289) ! JVS(686) = Jac_FULL(113,134) JVS(686) = -B(137) ! JVS(687) = Jac_FULL(113,136) JVS(687) = -B(218) ! JVS(688) = Jac_FULL(114,60) JVS(688) = B(459)+B(463) ! JVS(689) = Jac_FULL(114,62) JVS(689) = B(34)+B(553) ! JVS(690) = Jac_FULL(114,63) JVS(690) = B(603) ! JVS(691) = Jac_FULL(114,64) JVS(691) = B(595) ! JVS(692) = Jac_FULL(114,68) JVS(692) = B(522) ! JVS(693) = Jac_FULL(114,69) JVS(693) = B(588) ! JVS(694) = Jac_FULL(114,70) JVS(694) = 0.5*B(594) ! JVS(695) = Jac_FULL(114,73) JVS(695) = 0.3*B(593) ! JVS(696) = Jac_FULL(114,74) JVS(696) = 0.71*B(590) ! JVS(697) = Jac_FULL(114,79) JVS(697) = 0.6*B(231) ! JVS(698) = Jac_FULL(114,81) JVS(698) = 0.9*B(272) ! JVS(699) = Jac_FULL(114,82) JVS(699) = B(447) ! JVS(700) = Jac_FULL(114,84) JVS(700) = 0.375*B(316)+0.375*B(318) ! JVS(701) = Jac_FULL(114,86) JVS(701) = 0.535*B(223) ! JVS(702) = Jac_FULL(114,90) JVS(702) = 0.5*B(572) ! JVS(703) = Jac_FULL(114,92) JVS(703) = 0.08*B(497)+0.08*B(499) ! JVS(704) = Jac_FULL(114,93) JVS(704) = 0.35*B(493) ! JVS(705) = Jac_FULL(114,94) JVS(705) = 0.75*B(146) ! JVS(706) = Jac_FULL(114,95) JVS(706) = 0.54*B(227) ! JVS(707) = Jac_FULL(114,96) JVS(707) = B(602) ! JVS(708) = Jac_FULL(114,97) JVS(708) = 0.5*B(111)+0.5*B(164)+0.625*B(195)+0.5*B(374) ! JVS(709) = Jac_FULL(114,98) JVS(709) = 0.75*B(197) ! JVS(710) = Jac_FULL(114,100) JVS(710) = 0.85*B(240)+B(571) ! JVS(711) = Jac_FULL(114,101) JVS(711) = 0.35*B(107)+0.102*B(160)+0.89*B(191)+0.4*B(366) ! JVS(712) = Jac_FULL(114,102) JVS(712) = B(336) ! JVS(713) = Jac_FULL(114,103) JVS(713) = 0.65*B(479)+0.325*B(483) ! JVS(714) = Jac_FULL(114,104) JVS(714) = 0.5*B(598) ! JVS(715) = Jac_FULL(114,105) JVS(715) = 0.143*B(109)+0.294*B(162)+1.255*B(193)+0.143*B(368) ! JVS(716) = Jac_FULL(114,106) JVS(716) = 0.75*B(184) ! JVS(717) = Jac_FULL(114,107) JVS(717) = 0.4*B(485)+0.2*B(489) ! JVS(718) = Jac_FULL(114,108) JVS(718) = 0.96*B(101)+0.15*B(154)+0.5*B(182)+B(358) ! JVS(719) = Jac_FULL(114,109) JVS(719) = B(91)+1.25*B(148)+B(266) ! JVS(720) = Jac_FULL(114,110) JVS(720) = B(120)+1.25*B(201)+B(378) ! JVS(721) = Jac_FULL(114,111) JVS(721) = 0.95*B(189) ! JVS(722) = Jac_FULL(114,112) JVS(722) = 0.75*B(174) ! JVS(723) = Jac_FULL(114,113) JVS(723) = B(284)+B(288) ! JVS(724) = Jac_FULL(114,114) JVS(724) = -B(40)-B(70)-B(437)-B(554)-B(555) ! JVS(725) = Jac_FULL(114,115) JVS(725) = 0.05*B(72) ! JVS(726) = Jac_FULL(114,116) JVS(726) = 0.39*B(99)+0.95*B(180)+0.39*B(372) ! JVS(727) = Jac_FULL(114,117) JVS(727) = 0.83*B(199)+0.15*B(376) ! JVS(728) = Jac_FULL(114,119) JVS(728) = B(581) ! JVS(729) = Jac_FULL(114,120) JVS(729) = 0.8*B(274)+B(577) ! JVS(730) = Jac_FULL(114,121) JVS(730) = 0.7*B(276)+B(580) ! JVS(731) = Jac_FULL(114,122) JVS(731) = 0.5*B(138)+0.435*B(219)+2*B(286)+B(290)+B(410) ! JVS(732) = Jac_FULL(114,123) JVS(732) = 0.66*B(105)+0.12*B(158)+1.22*B(186)+0.92*B(188)+0.747*B(362) ! JVS(733) = Jac_FULL(114,124) JVS(733) = 0.12*B(349) ! JVS(734) = Jac_FULL(114,125) JVS(734) = 0 ! JVS(735) = Jac_FULL(114,126) JVS(735) = 0.75*B(178) ! JVS(736) = Jac_FULL(114,127) JVS(736) = 0 ! JVS(737) = Jac_FULL(114,128) JVS(737) = 0 ! JVS(738) = Jac_FULL(114,129) JVS(738) = -B(71)+B(464) ! JVS(739) = Jac_FULL(114,130) JVS(739) = B(267)+B(352)+B(354)+B(359)+0.747*B(363)+0.4*B(367)+0.143*B(369)+0.39*B(373)+0.5*B(375)+0.15*B(377)+B(379)& &+B(411) ! JVS(740) = Jac_FULL(114,131) JVS(740) = 0 ! JVS(741) = Jac_FULL(114,132) JVS(741) = B(35)-B(41)+B(66)+0.05*B(73)+0.85*B(241)+B(460)+0.35*B(494)+B(523) ! JVS(742) = Jac_FULL(114,133) JVS(742) = B(9)+B(26)+B(30)+2*B(31)+0.75*B(147)+1.25*B(149)+0.75*B(175)+0.75*B(179)+0.95*B(181)+0.5*B(183)+0.75*B(185)& &+1.22*B(187)+0.95*B(190)+0.89*B(192)+1.255*B(194)+0.625*B(196)+0.75*B(198)+0.83*B(200)+1.25*B(202)+B(285)+2& &*B(287)+B(289)+B(291)+B(337)+B(353)+B(355) ! JVS(743) = Jac_FULL(114,134) JVS(743) = B(27)+B(92)+0.39*B(100)+0.96*B(102)+0.66*B(106)+0.35*B(108)+0.143*B(110)+0.5*B(112)+B(121)+0.5*B(139)+0.54& &*B(228)+0.375*B(319)+0.65*B(480)+0.4*B(486)+0.08*B(498) ! JVS(744) = Jac_FULL(114,135) JVS(744) = B(10)+0.535*B(224)+0.6*B(232)+0.9*B(273)+0.8*B(275)+0.7*B(277)+0.12*B(350)+B(448) ! JVS(745) = Jac_FULL(114,136) JVS(745) = 0.15*B(155)+0.12*B(159)+0.102*B(161)+0.294*B(163)+0.5*B(165)+0.435*B(220)+0.375*B(317)+0.325*B(484)+0.2& &*B(490)+0.08*B(500) ! JVS(746) = Jac_FULL(114,137) JVS(746) = 0 ! JVS(747) = Jac_FULL(115,58) JVS(747) = B(589) ! JVS(748) = Jac_FULL(115,61) JVS(748) = 0.64*B(298)+B(584) ! JVS(749) = Jac_FULL(115,69) JVS(749) = B(588) ! JVS(750) = Jac_FULL(115,86) JVS(750) = 0.5*B(223) ! JVS(751) = Jac_FULL(115,106) JVS(751) = 0.93*B(103)+B(156)+0.5*B(184)+B(360) ! JVS(752) = Jac_FULL(115,109) JVS(752) = B(91)+0.5*B(148)+B(266) ! JVS(753) = Jac_FULL(115,110) JVS(753) = B(120)+0.5*B(201)+B(378) ! JVS(754) = Jac_FULL(115,112) JVS(754) = B(83)+0.75*B(174)+2*B(207)+B(208)+B(404)+B(406) ! JVS(755) = Jac_FULL(115,113) JVS(755) = 0 ! JVS(756) = Jac_FULL(115,115) JVS(756) = -B(72)-B(74)-B(564)-B(565) ! JVS(757) = Jac_FULL(115,116) JVS(757) = 0.75*B(99)+0.38*B(180)+0.75*B(372) ! JVS(758) = Jac_FULL(115,118) JVS(758) = B(575) ! JVS(759) = Jac_FULL(115,120) JVS(759) = 0.04*B(274) ! JVS(760) = Jac_FULL(115,126) JVS(760) = 0.32*B(95)+0.16*B(178)+0.32*B(356) ! JVS(761) = Jac_FULL(115,127) JVS(761) = 0 ! JVS(762) = Jac_FULL(115,128) JVS(762) = 0 ! JVS(763) = Jac_FULL(115,129) JVS(763) = -B(75) ! JVS(764) = Jac_FULL(115,130) JVS(764) = B(267)+0.32*B(357)+B(361)+0.75*B(373)+B(379)+B(405)+B(407) ! JVS(765) = Jac_FULL(115,131) JVS(765) = 0 ! JVS(766) = Jac_FULL(115,132) JVS(766) = -B(73)+B(203)+0.64*B(299) ! JVS(767) = Jac_FULL(115,133) JVS(767) = 0.5*B(149)+0.75*B(175)+0.16*B(179)+0.38*B(181)+0.5*B(185)+0.5*B(202) ! JVS(768) = Jac_FULL(115,134) JVS(768) = B(84)+B(92)+0.32*B(96)+0.75*B(100)+0.93*B(104)+B(121) ! JVS(769) = Jac_FULL(115,135) JVS(769) = 0.5*B(224)+0.04*B(275) ! JVS(770) = Jac_FULL(115,136) JVS(770) = B(157) ! JVS(771) = Jac_FULL(115,137) JVS(771) = 0.32*B(596) ! JVS(772) = Jac_FULL(116,80) JVS(772) = 0.612*B(491) ! JVS(773) = Jac_FULL(116,103) JVS(773) = 0 ! JVS(774) = Jac_FULL(116,107) JVS(774) = 0 ! JVS(775) = Jac_FULL(116,116) JVS(775) = -B(99)-B(152)-B(180)-B(372)-B(394) ! JVS(776) = Jac_FULL(116,123) JVS(776) = 0 ! JVS(777) = Jac_FULL(116,125) JVS(777) = 0 ! JVS(778) = Jac_FULL(116,130) JVS(778) = -B(373)-B(395) ! JVS(779) = Jac_FULL(116,132) JVS(779) = B(124)+0.612*B(492) ! JVS(780) = Jac_FULL(116,133) JVS(780) = -B(181) ! JVS(781) = Jac_FULL(116,134) JVS(781) = -B(100) ! JVS(782) = Jac_FULL(116,135) JVS(782) = 0 ! JVS(783) = Jac_FULL(116,136) JVS(783) = -B(153) ! JVS(784) = Jac_FULL(116,137) JVS(784) = B(125) ! JVS(785) = Jac_FULL(117,71) JVS(785) = 0.36*B(294) ! JVS(786) = Jac_FULL(117,81) JVS(786) = B(278) ! JVS(787) = Jac_FULL(117,117) JVS(787) = -B(115)-B(117)-2*B(119)-B(168)-B(199)-B(376)-B(398) ! JVS(788) = Jac_FULL(117,129) JVS(788) = -B(118)+B(279) ! JVS(789) = Jac_FULL(117,130) JVS(789) = -B(377)-B(399) ! JVS(790) = Jac_FULL(117,132) JVS(790) = 0.36*B(295) ! JVS(791) = Jac_FULL(117,133) JVS(791) = -B(200) ! JVS(792) = Jac_FULL(117,134) JVS(792) = -B(116) ! JVS(793) = Jac_FULL(117,135) JVS(793) = 0 ! JVS(794) = Jac_FULL(117,136) JVS(794) = -B(169) ! JVS(795) = Jac_FULL(118,63) JVS(795) = B(38) ! JVS(796) = Jac_FULL(118,73) JVS(796) = 0.3*B(593) ! JVS(797) = Jac_FULL(118,76) JVS(797) = 0.58*B(591) ! JVS(798) = Jac_FULL(118,83) JVS(798) = 0.52*B(506)+0.52*B(510) ! JVS(799) = Jac_FULL(118,84) JVS(799) = 0.275*B(316)+0.275*B(318) ! JVS(800) = Jac_FULL(118,92) JVS(800) = 0.07*B(497)+0.07*B(499) ! JVS(801) = Jac_FULL(118,93) JVS(801) = 0.65*B(493) ! JVS(802) = Jac_FULL(118,95) JVS(802) = 0 ! JVS(803) = Jac_FULL(118,96) JVS(803) = B(524) ! JVS(804) = Jac_FULL(118,97) JVS(804) = 0.5*B(111)+0.5*B(164)+0.375*B(195)+0.5*B(374) ! JVS(805) = Jac_FULL(118,101) JVS(805) = 0.35*B(107)+0.102*B(160)+0.14*B(191)+0.4*B(366) ! JVS(806) = Jac_FULL(118,103) JVS(806) = 0 ! JVS(807) = Jac_FULL(118,104) JVS(807) = B(598) ! JVS(808) = Jac_FULL(118,105) JVS(808) = 0.143*B(109)+0.294*B(162)+0.255*B(193)+0.143*B(368) ! JVS(809) = Jac_FULL(118,107) JVS(809) = 0 ! JVS(810) = Jac_FULL(118,108) JVS(810) = 0.5*B(182)+B(382) ! JVS(811) = Jac_FULL(118,110) JVS(811) = 0 ! JVS(812) = Jac_FULL(118,111) JVS(812) = 0.29*B(189)+0.234*B(364)+0.234*B(469)+0.9*B(473) ! JVS(813) = Jac_FULL(118,118) JVS(813) = -B(248)-B(252)-B(574)-B(575) ! JVS(814) = Jac_FULL(118,119) JVS(814) = B(260) ! JVS(815) = Jac_FULL(118,120) JVS(815) = 0.82*B(274) ! JVS(816) = Jac_FULL(118,121) JVS(816) = 0.8*B(276) ! JVS(817) = Jac_FULL(118,122) JVS(817) = 0 ! JVS(818) = Jac_FULL(118,123) JVS(818) = 0 ! JVS(819) = Jac_FULL(118,124) JVS(819) = 0.6*B(349) ! JVS(820) = Jac_FULL(118,125) JVS(820) = 0 ! JVS(821) = Jac_FULL(118,126) JVS(821) = 0 ! JVS(822) = Jac_FULL(118,128) JVS(822) = 0 ! JVS(823) = Jac_FULL(118,129) JVS(823) = -B(253) ! JVS(824) = Jac_FULL(118,130) JVS(824) = 0.234*B(365)+0.4*B(367)+0.143*B(369)+0.5*B(375)+B(383) ! JVS(825) = Jac_FULL(118,132) JVS(825) = B(39)-B(249)+B(261)+0.65*B(494)+B(525) ! JVS(826) = Jac_FULL(118,133) JVS(826) = 0.5*B(183)+0.29*B(190)+0.14*B(192)+0.255*B(194)+0.375*B(196) ! JVS(827) = Jac_FULL(118,134) JVS(827) = 0.35*B(108)+0.143*B(110)+0.5*B(112)+0.275*B(319)+0.234*B(470)+0.07*B(498)+0.52*B(507) ! JVS(828) = Jac_FULL(118,135) JVS(828) = 0.82*B(275)+0.8*B(277)+0.6*B(350) ! JVS(829) = Jac_FULL(118,136) JVS(829) = 0.102*B(161)+0.294*B(163)+0.5*B(165)+0.275*B(317)+0.9*B(474)+0.07*B(500)+0.52*B(511) ! JVS(830) = Jac_FULL(118,137) JVS(830) = 0 ! JVS(831) = Jac_FULL(119,69) JVS(831) = 0.791*B(308) ! JVS(832) = Jac_FULL(119,70) JVS(832) = B(326)+B(594) ! JVS(833) = Jac_FULL(119,76) JVS(833) = 0.36*B(591) ! JVS(834) = Jac_FULL(119,77) JVS(834) = 0.5*B(504) ! JVS(835) = Jac_FULL(119,83) JVS(835) = 0.48*B(506)+0.48*B(510) ! JVS(836) = Jac_FULL(119,84) JVS(836) = 0.725*B(316)+0.725*B(318) ! JVS(837) = Jac_FULL(119,92) JVS(837) = 0.85*B(497)+0.85*B(499) ! JVS(838) = Jac_FULL(119,95) JVS(838) = 0.36*B(227)+B(229) ! JVS(839) = Jac_FULL(119,102) JVS(839) = B(332)+0.7*B(336)+2*B(338)+B(339)+B(341) ! JVS(840) = Jac_FULL(119,103) JVS(840) = 0.44*B(479)+0.22*B(483) ! JVS(841) = Jac_FULL(119,104) JVS(841) = B(598) ! JVS(842) = Jac_FULL(119,105) JVS(842) = 0.857*B(109)+0.686*B(162)+0.595*B(193)+0.857*B(368) ! JVS(843) = Jac_FULL(119,107) JVS(843) = 0.6*B(485)+0.3*B(489) ! JVS(844) = Jac_FULL(119,108) JVS(844) = 0.2*B(182) ! JVS(845) = Jac_FULL(119,109) JVS(845) = 0.16*B(148)+0.65*B(270) ! JVS(846) = Jac_FULL(119,111) JVS(846) = 0.18*B(189)+0.216*B(364)+0.216*B(469) ! JVS(847) = Jac_FULL(119,119) JVS(847) = -B(260)-B(262)-B(581) ! JVS(848) = Jac_FULL(119,120) JVS(848) = 0 ! JVS(849) = Jac_FULL(119,121) JVS(849) = 0 ! JVS(850) = Jac_FULL(119,122) JVS(850) = 0.283*B(219) ! JVS(851) = Jac_FULL(119,123) JVS(851) = 0 ! JVS(852) = Jac_FULL(119,124) JVS(852) = 0.2*B(349) ! JVS(853) = Jac_FULL(119,125) JVS(853) = 0.5*B(449) ! JVS(854) = Jac_FULL(119,126) JVS(854) = 0 ! JVS(855) = Jac_FULL(119,128) JVS(855) = 0 ! JVS(856) = Jac_FULL(119,129) JVS(856) = 0 ! JVS(857) = Jac_FULL(119,130) JVS(857) = 0.65*B(271)+B(333)+0.216*B(365)+0.857*B(369) ! JVS(858) = Jac_FULL(119,132) JVS(858) = -B(261)-B(263)+0.791*B(309)+B(327)+0.5*B(505) ! JVS(859) = Jac_FULL(119,133) JVS(859) = 0.16*B(149)+0.2*B(183)+0.18*B(190)+0.595*B(194)+0.7*B(337) ! JVS(860) = Jac_FULL(119,134) JVS(860) = 0.857*B(110)+0.36*B(228)+0.725*B(319)+B(342)+0.216*B(470)+0.44*B(480)+0.6*B(486)+0.85*B(498)+0.48*B(507) ! JVS(861) = Jac_FULL(119,135) JVS(861) = 0.2*B(350)+0.5*B(450) ! JVS(862) = Jac_FULL(119,136) JVS(862) = 0.686*B(163)+0.283*B(220)+B(230)+0.725*B(317)+B(340)+0.22*B(484)+0.3*B(490)+0.85*B(500)+0.48*B(511) ! JVS(863) = Jac_FULL(119,137) JVS(863) = 0 ! JVS(864) = Jac_FULL(120,74) JVS(864) = 0.425*B(590) ! JVS(865) = Jac_FULL(120,81) JVS(865) = 0.159*B(272) ! JVS(866) = Jac_FULL(120,117) JVS(866) = 0.03*B(199)+0.05*B(376) ! JVS(867) = Jac_FULL(120,120) JVS(867) = -B(256)-B(274)-B(576)-B(577)-B(578) ! JVS(868) = Jac_FULL(120,123) JVS(868) = 0.4*B(105)+0.073*B(158)+0.28*B(186)+0.56*B(188)+0.453*B(362) ! JVS(869) = Jac_FULL(120,129) JVS(869) = 0 ! JVS(870) = Jac_FULL(120,130) JVS(870) = 0.453*B(363)+0.05*B(377) ! JVS(871) = Jac_FULL(120,132) JVS(871) = -B(257) ! JVS(872) = Jac_FULL(120,133) JVS(872) = 0.28*B(187)+0.03*B(200) ! JVS(873) = Jac_FULL(120,134) JVS(873) = 0.4*B(106) ! JVS(874) = Jac_FULL(120,135) JVS(874) = 0.159*B(273)-B(275) ! JVS(875) = Jac_FULL(120,136) JVS(875) = 0.073*B(159) ! JVS(876) = Jac_FULL(121,74) JVS(876) = 0.285*B(590) ! JVS(877) = Jac_FULL(121,81) JVS(877) = 0.387*B(272) ! JVS(878) = Jac_FULL(121,117) JVS(878) = 0.05*B(199)+0.1*B(376) ! JVS(879) = Jac_FULL(121,121) JVS(879) = -B(258)-B(276)-B(280)-B(282)-B(579)-B(580) ! JVS(880) = Jac_FULL(121,123) JVS(880) = 0.26*B(105)+0.047*B(158)+0.18*B(186)+0.36*B(188)+0.294*B(362) ! JVS(881) = Jac_FULL(121,129) JVS(881) = -B(281)-B(283) ! JVS(882) = Jac_FULL(121,130) JVS(882) = 0.294*B(363)+0.1*B(377) ! JVS(883) = Jac_FULL(121,132) JVS(883) = -B(259) ! JVS(884) = Jac_FULL(121,133) JVS(884) = 0.18*B(187)+0.05*B(200) ! JVS(885) = Jac_FULL(121,134) JVS(885) = 0.26*B(106) ! JVS(886) = Jac_FULL(121,135) JVS(886) = 0.387*B(273)-B(277) ! JVS(887) = Jac_FULL(121,136) JVS(887) = 0.047*B(159) ! JVS(888) = Jac_FULL(122,64) JVS(888) = B(328) ! JVS(889) = Jac_FULL(122,79) JVS(889) = B(135) ! JVS(890) = Jac_FULL(122,120) JVS(890) = B(578) ! JVS(891) = Jac_FULL(122,121) JVS(891) = 0.53*B(258)+B(282)+B(579) ! JVS(892) = Jac_FULL(122,122) JVS(892) = -B(133)-B(138)-B(219)-B(286)-B(290)-B(410) ! JVS(893) = Jac_FULL(122,123) JVS(893) = 0 ! JVS(894) = Jac_FULL(122,128) JVS(894) = -B(134) ! JVS(895) = Jac_FULL(122,129) JVS(895) = B(283) ! JVS(896) = Jac_FULL(122,130) JVS(896) = -B(411) ! JVS(897) = Jac_FULL(122,132) JVS(897) = 0.53*B(259)+B(329) ! JVS(898) = Jac_FULL(122,133) JVS(898) = -B(287)-B(291) ! JVS(899) = Jac_FULL(122,134) JVS(899) = -B(139) ! JVS(900) = Jac_FULL(122,135) JVS(900) = 0 ! JVS(901) = Jac_FULL(122,136) JVS(901) = -B(220) ! JVS(902) = Jac_FULL(123,74) JVS(902) = 0.387*B(310) ! JVS(903) = Jac_FULL(123,81) JVS(903) = B(254) ! JVS(904) = Jac_FULL(123,123) JVS(904) = -B(105)-B(158)-B(186)-2*B(188)-B(362)-B(386) ! JVS(905) = Jac_FULL(123,129) JVS(905) = 0 ! JVS(906) = Jac_FULL(123,130) JVS(906) = -B(363)-B(387) ! JVS(907) = Jac_FULL(123,132) JVS(907) = B(255)+0.387*B(311) ! JVS(908) = Jac_FULL(123,133) JVS(908) = -B(187) ! JVS(909) = Jac_FULL(123,134) JVS(909) = -B(106) ! JVS(910) = Jac_FULL(123,135) JVS(910) = 0 ! JVS(911) = Jac_FULL(123,136) JVS(911) = -B(159) ! JVS(912) = Jac_FULL(124,74) JVS(912) = 0.613*B(310)+0.29*B(590) ! JVS(913) = Jac_FULL(124,82) JVS(913) = B(600) ! JVS(914) = Jac_FULL(124,117) JVS(914) = 0.2*B(115)+0.2*B(117)+0.28*B(119) ! JVS(915) = Jac_FULL(124,123) JVS(915) = 0.123*B(105)+0.3*B(186)+0.5*B(188)+0.14*B(362) ! JVS(916) = Jac_FULL(124,124) JVS(916) = -B(349)-B(467) ! JVS(917) = Jac_FULL(124,125) JVS(917) = B(601) ! JVS(918) = Jac_FULL(124,129) JVS(918) = 0.2*B(118) ! JVS(919) = Jac_FULL(124,130) JVS(919) = 0.14*B(363) ! JVS(920) = Jac_FULL(124,132) JVS(920) = 0.613*B(311)-B(468) ! JVS(921) = Jac_FULL(124,133) JVS(921) = 0.3*B(187) ! JVS(922) = Jac_FULL(124,134) JVS(922) = 0.123*B(106)+0.2*B(116) ! JVS(923) = Jac_FULL(124,135) JVS(923) = -B(350) ! JVS(924) = Jac_FULL(124,136) JVS(924) = 0 ! JVS(925) = Jac_FULL(125,117) JVS(925) = 0.8*B(115)+0.8*B(117)+1.72*B(119)+0.5*B(168) ! JVS(926) = Jac_FULL(125,123) JVS(926) = 0.07*B(105) ! JVS(927) = Jac_FULL(125,125) JVS(927) = -B(445)-B(449)-B(475)-B(601) ! JVS(928) = Jac_FULL(125,129) JVS(928) = 0.8*B(118) ! JVS(929) = Jac_FULL(125,130) JVS(929) = 0 ! JVS(930) = Jac_FULL(125,132) JVS(930) = -B(476) ! JVS(931) = Jac_FULL(125,133) JVS(931) = 0 ! JVS(932) = Jac_FULL(125,134) JVS(932) = 0.07*B(106)+0.8*B(116) ! JVS(933) = Jac_FULL(125,135) JVS(933) = -B(450) ! JVS(934) = Jac_FULL(125,136) JVS(934) = 0.5*B(169) ! JVS(935) = Jac_FULL(126,51) JVS(935) = B(93)+B(122) ! JVS(936) = Jac_FULL(126,66) JVS(936) = 0.209*B(304) ! JVS(937) = Jac_FULL(126,87) JVS(937) = 0 ! JVS(938) = Jac_FULL(126,111) JVS(938) = 0 ! JVS(939) = Jac_FULL(126,116) JVS(939) = 0.3*B(99)+0.15*B(180)+0.3*B(372) ! JVS(940) = Jac_FULL(126,123) JVS(940) = 0 ! JVS(941) = Jac_FULL(126,124) JVS(941) = 0 ! JVS(942) = Jac_FULL(126,125) JVS(942) = 0 ! JVS(943) = Jac_FULL(126,126) JVS(943) = -B(95)-B(97)-B(150)-B(178)-B(356)-B(380) ! JVS(944) = Jac_FULL(126,129) JVS(944) = B(123) ! JVS(945) = Jac_FULL(126,130) JVS(945) = -B(357)+0.3*B(373)-B(381) ! JVS(946) = Jac_FULL(126,132) JVS(946) = B(94)+0.209*B(305) ! JVS(947) = Jac_FULL(126,133) JVS(947) = -B(179)+0.15*B(181) ! JVS(948) = Jac_FULL(126,134) JVS(948) = -B(96)-B(98)+0.3*B(100) ! JVS(949) = Jac_FULL(126,135) JVS(949) = 0 ! JVS(950) = Jac_FULL(126,136) JVS(950) = -B(151) ! JVS(951) = Jac_FULL(126,137) JVS(951) = 0 ! JVS(952) = Jac_FULL(127,56) JVS(952) = 0.64*B(300)+B(585) ! JVS(953) = Jac_FULL(127,66) JVS(953) = 0.791*B(304)+B(587) ! JVS(954) = Jac_FULL(127,67) JVS(954) = B(583) ! JVS(955) = Jac_FULL(127,71) JVS(955) = B(582) ! JVS(956) = Jac_FULL(127,80) JVS(956) = B(592) ! JVS(957) = Jac_FULL(127,87) JVS(957) = B(514)+0.5*B(518) ! JVS(958) = Jac_FULL(127,88) JVS(958) = B(205) ! JVS(959) = Jac_FULL(127,94) JVS(959) = B(89)+0.75*B(146)+B(264)+B(268) ! JVS(960) = Jac_FULL(127,97) JVS(960) = B(396) ! JVS(961) = Jac_FULL(127,98) JVS(961) = 0 ! JVS(962) = Jac_FULL(127,101) JVS(962) = 0.033*B(160) ! JVS(963) = Jac_FULL(127,102) JVS(963) = 0 ! JVS(964) = Jac_FULL(127,103) JVS(964) = 0 ! JVS(965) = Jac_FULL(127,105) JVS(965) = 0 ! JVS(966) = Jac_FULL(127,106) JVS(966) = 0 ! JVS(967) = Jac_FULL(127,107) JVS(967) = 0 ! JVS(968) = Jac_FULL(127,109) JVS(968) = 0.09*B(148)+0.35*B(270) ! JVS(969) = Jac_FULL(127,110) JVS(969) = 0.25*B(201)+B(400) ! JVS(970) = Jac_FULL(127,111) JVS(970) = 0.09*B(364)+0.09*B(469) ! JVS(971) = Jac_FULL(127,116) JVS(971) = 0.57*B(99)+0.54*B(180)+0.57*B(372)+B(394) ! JVS(972) = Jac_FULL(127,117) JVS(972) = 0.25*B(199)+B(398) ! JVS(973) = Jac_FULL(127,120) JVS(973) = 0 ! JVS(974) = Jac_FULL(127,121) JVS(974) = 0 ! JVS(975) = Jac_FULL(127,122) JVS(975) = 0 ! JVS(976) = Jac_FULL(127,123) JVS(976) = 0 ! JVS(977) = Jac_FULL(127,124) JVS(977) = 0 ! JVS(978) = Jac_FULL(127,125) JVS(978) = 0 ! JVS(979) = Jac_FULL(127,126) JVS(979) = 0.13*B(95)+0.07*B(178)+0.13*B(356) ! JVS(980) = Jac_FULL(127,127) JVS(980) = -B(128)-B(140)-B(567) ! JVS(981) = Jac_FULL(127,128) JVS(981) = 0 ! JVS(982) = Jac_FULL(127,129) JVS(982) = -B(141) ! JVS(983) = Jac_FULL(127,130) JVS(983) = B(265)+B(269)+0.35*B(271)+0.13*B(357)+0.09*B(365)+0.57*B(373)+B(395)+B(397)+B(399)+B(401) ! JVS(984) = Jac_FULL(127,131) JVS(984) = 0 ! JVS(985) = Jac_FULL(127,132) JVS(985) = -B(129)+B(206)+0.64*B(301)+0.791*B(305) ! JVS(986) = Jac_FULL(127,133) JVS(986) = 0.75*B(147)+0.09*B(149)+0.07*B(179)+0.54*B(181)+0.25*B(200)+0.25*B(202) ! JVS(987) = Jac_FULL(127,134) JVS(987) = B(90)+0.13*B(96)+0.57*B(100)+0.09*B(470)+B(515) ! JVS(988) = Jac_FULL(127,135) JVS(988) = 0 ! JVS(989) = Jac_FULL(127,136) JVS(989) = 0.033*B(161)+0.5*B(519) ! JVS(990) = Jac_FULL(127,137) JVS(990) = 0.13*B(596) ! JVS(991) = Jac_FULL(128,45) JVS(991) = B(132) ! JVS(992) = Jac_FULL(128,49) JVS(992) = B(78)+0.6*B(566) ! JVS(993) = Jac_FULL(128,50) JVS(993) = B(503) ! JVS(994) = Jac_FULL(128,53) JVS(994) = B(48) ! JVS(995) = Jac_FULL(128,55) JVS(995) = B(63)+B(561) ! JVS(996) = Jac_FULL(128,59) JVS(996) = B(52)+B(53)+B(563) ! JVS(997) = Jac_FULL(128,65) JVS(997) = B(235)+0.7*B(604) ! JVS(998) = Jac_FULL(128,67) JVS(998) = B(583) ! JVS(999) = Jac_FULL(128,68) JVS(999) = B(522) ! JVS(1000) = Jac_FULL(128,71) JVS(1000) = B(292)+B(582) ! JVS(1001) = Jac_FULL(128,75) JVS(1001) = -B(233)+B(236) ! JVS(1002) = Jac_FULL(128,79) JVS(1002) = B(135)+B(231) ! JVS(1003) = Jac_FULL(128,80) JVS(1003) = B(592) ! JVS(1004) = Jac_FULL(128,82) JVS(1004) = B(600) ! JVS(1005) = Jac_FULL(128,83) JVS(1005) = B(506) ! JVS(1006) = Jac_FULL(128,84) JVS(1006) = B(318) ! JVS(1007) = Jac_FULL(128,87) JVS(1007) = B(514) ! JVS(1008) = Jac_FULL(128,92) JVS(1008) = 1.85*B(497)+0.85*B(499)-B(501) ! JVS(1009) = Jac_FULL(128,93) JVS(1009) = B(599) ! JVS(1010) = Jac_FULL(128,94) JVS(1010) = B(89) ! JVS(1011) = Jac_FULL(128,95) JVS(1011) = 0.9*B(227)+B(229) ! JVS(1012) = Jac_FULL(128,96) JVS(1012) = B(524)+B(602) ! JVS(1013) = Jac_FULL(128,97) JVS(1013) = 1.5*B(111)+0.5*B(164)+0.375*B(195)+0.5*B(374)+B(396) ! JVS(1014) = Jac_FULL(128,98) JVS(1014) = B(113) ! JVS(1015) = Jac_FULL(128,99) JVS(1015) = B(556) ! JVS(1016) = Jac_FULL(128,100) JVS(1016) = 0 ! JVS(1017) = Jac_FULL(128,101) JVS(1017) = 0.88*B(107) ! JVS(1018) = Jac_FULL(128,102) JVS(1018) = B(341) ! JVS(1019) = Jac_FULL(128,103) JVS(1019) = 1.34*B(479)+0.17*B(483) ! JVS(1020) = Jac_FULL(128,104) JVS(1020) = B(598) ! JVS(1021) = Jac_FULL(128,105) JVS(1021) = 0.85*B(109) ! JVS(1022) = Jac_FULL(128,106) JVS(1022) = 0.93*B(103) ! JVS(1023) = Jac_FULL(128,107) JVS(1023) = 1.6*B(485)+0.3*B(489) ! JVS(1024) = Jac_FULL(128,108) JVS(1024) = 0.96*B(101) ! JVS(1025) = Jac_FULL(128,109) JVS(1025) = B(91) ! JVS(1026) = Jac_FULL(128,110) JVS(1026) = 2*B(120)+B(201)+B(378)+B(400) ! JVS(1027) = Jac_FULL(128,111) JVS(1027) = B(469) ! JVS(1028) = Jac_FULL(128,112) JVS(1028) = B(83) ! JVS(1029) = Jac_FULL(128,113) JVS(1029) = -B(130)+B(136) ! JVS(1030) = Jac_FULL(128,114) JVS(1030) = 0 ! JVS(1031) = Jac_FULL(128,115) JVS(1031) = 0 ! JVS(1032) = Jac_FULL(128,116) JVS(1032) = 2*B(99)+B(180)+B(372)+B(394) ! JVS(1033) = Jac_FULL(128,117) JVS(1033) = 1.2*B(115)+1.2*B(117)+0.28*B(119)+0.575*B(199)+0.15*B(376)+B(398) ! JVS(1034) = Jac_FULL(128,118) JVS(1034) = 0 ! JVS(1035) = Jac_FULL(128,119) JVS(1035) = 0 ! JVS(1036) = Jac_FULL(128,120) JVS(1036) = 0 ! JVS(1037) = Jac_FULL(128,121) JVS(1037) = 0 ! JVS(1038) = Jac_FULL(128,122) JVS(1038) = -B(133)+B(138) ! JVS(1039) = Jac_FULL(128,123) JVS(1039) = 0.883*B(105) ! JVS(1040) = Jac_FULL(128,124) JVS(1040) = 0 ! JVS(1041) = Jac_FULL(128,125) JVS(1041) = B(601) ! JVS(1042) = Jac_FULL(128,126) JVS(1042) = B(95) ! JVS(1043) = Jac_FULL(128,127) JVS(1043) = 0 ! JVS(1044) = Jac_FULL(128,128) JVS(1044) = -B(7)-B(42)-B(50)-B(61)-B(76)-B(131)-B(134)-B(234)-B(431)-B(456)-B(502)-B(551) ! JVS(1045) = Jac_FULL(128,129) JVS(1045) = B(55)+2*B(57)+B(59)-B(62)+1.2*B(118)+2*B(412)+B(559) ! JVS(1046) = Jac_FULL(128,130) JVS(1046) = -B(77)+B(79)+B(373)+0.5*B(375)+0.15*B(377)+B(379)+B(395)+B(397)+B(399)+B(401) ! JVS(1047) = Jac_FULL(128,131) JVS(1047) = 0 ! JVS(1048) = Jac_FULL(128,132) JVS(1048) = -B(43)+B(49)+B(54)+B(60)+B(293)+B(523)+B(525) ! JVS(1049) = Jac_FULL(128,133) JVS(1049) = B(26)+B(181)+0.375*B(196)+0.575*B(200)+B(202) ! JVS(1050) = Jac_FULL(128,134) JVS(1050) = B(1)+B(17)+B(27)+2*B(58)+B(80)+B(84)+B(90)+B(92)+B(96)+2*B(100)+0.96*B(102)+0.93*B(104)+0.883*B(106)+0.88& &*B(108)+0.85*B(110)+1.5*B(112)+B(114)+1.2*B(116)+2*B(121)+B(137)+B(139)+0.9*B(228)+B(237)+B(319)+B(342)& &+B(470)+1.34*B(480)+1.6*B(486)+1.85*B(498)+B(507)+B(515) ! JVS(1051) = Jac_FULL(128,135) JVS(1051) = B(2)-B(8)+B(232) ! JVS(1052) = Jac_FULL(128,136) JVS(1052) = B(18)-B(51)+B(56)+0.5*B(165)+B(230)+0.17*B(484)+0.3*B(490)+0.85*B(500) ! JVS(1053) = Jac_FULL(128,137) JVS(1053) = B(596) ! JVS(1054) = Jac_FULL(129,49) JVS(1054) = 0.4*B(566) ! JVS(1055) = Jac_FULL(129,51) JVS(1055) = -B(122) ! JVS(1056) = Jac_FULL(129,52) JVS(1056) = -B(347) ! JVS(1057) = Jac_FULL(129,55) JVS(1057) = B(63)+B(561)+B(562) ! JVS(1058) = Jac_FULL(129,59) JVS(1058) = B(558) ! JVS(1059) = Jac_FULL(129,60) JVS(1059) = -B(463) ! JVS(1060) = Jac_FULL(129,65) JVS(1060) = 0.3*B(604)+B(605) ! JVS(1061) = Jac_FULL(129,75) JVS(1061) = 0 ! JVS(1062) = Jac_FULL(129,81) JVS(1062) = -B(278) ! JVS(1063) = Jac_FULL(129,86) JVS(1063) = -B(244) ! JVS(1064) = Jac_FULL(129,90) JVS(1064) = -B(250) ! JVS(1065) = Jac_FULL(129,92) JVS(1065) = 0.15*B(497)+0.15*B(499) ! JVS(1066) = Jac_FULL(129,93) JVS(1066) = B(493) ! JVS(1067) = Jac_FULL(129,95) JVS(1067) = 0.54*B(227) ! JVS(1068) = Jac_FULL(129,99) JVS(1068) = B(44) ! JVS(1069) = Jac_FULL(129,100) JVS(1069) = 0 ! JVS(1070) = Jac_FULL(129,101) JVS(1070) = 0 ! JVS(1071) = Jac_FULL(129,102) JVS(1071) = 0 ! JVS(1072) = Jac_FULL(129,103) JVS(1072) = 0.31*B(479)+0.155*B(483) ! JVS(1073) = Jac_FULL(129,104) JVS(1073) = 0 ! JVS(1074) = Jac_FULL(129,105) JVS(1074) = 0 ! JVS(1075) = Jac_FULL(129,107) JVS(1075) = 0 ! JVS(1076) = Jac_FULL(129,111) JVS(1076) = 0 ! JVS(1077) = Jac_FULL(129,114) JVS(1077) = -B(70) ! JVS(1078) = Jac_FULL(129,115) JVS(1078) = -B(74) ! JVS(1079) = Jac_FULL(129,116) JVS(1079) = 0 ! JVS(1080) = Jac_FULL(129,117) JVS(1080) = -B(117) ! JVS(1081) = Jac_FULL(129,118) JVS(1081) = -B(252) ! JVS(1082) = Jac_FULL(129,119) JVS(1082) = 0 ! JVS(1083) = Jac_FULL(129,120) JVS(1083) = 0 ! JVS(1084) = Jac_FULL(129,121) JVS(1084) = -B(280)-B(282) ! JVS(1085) = Jac_FULL(129,122) JVS(1085) = 0 ! JVS(1086) = Jac_FULL(129,123) JVS(1086) = 0 ! JVS(1087) = Jac_FULL(129,124) JVS(1087) = 0 ! JVS(1088) = Jac_FULL(129,125) JVS(1088) = 0 ! JVS(1089) = Jac_FULL(129,126) JVS(1089) = 0 ! JVS(1090) = Jac_FULL(129,127) JVS(1090) = -B(140) ! JVS(1091) = Jac_FULL(129,128) JVS(1091) = B(7)-B(61)-B(68) ! JVS(1092) = Jac_FULL(129,129) JVS(1092) = -B(55)-B(57)-B(59)-B(62)-B(69)-B(71)-B(75)-B(118)-B(123)-B(141)-B(176)-B(245)-B(251)-B(253)-B(279)-B(281)& &-B(283)-B(348)-2*B(412)-B(457)-B(464)-B(559)-B(560) ! JVS(1093) = Jac_FULL(129,130) JVS(1093) = 0 ! JVS(1094) = Jac_FULL(129,131) JVS(1094) = -B(177) ! JVS(1095) = Jac_FULL(129,132) JVS(1095) = B(45)-B(60)+B(494) ! JVS(1096) = Jac_FULL(129,133) JVS(1096) = 0 ! JVS(1097) = Jac_FULL(129,134) JVS(1097) = -B(58)+0.54*B(228)+0.31*B(480)+0.15*B(498) ! JVS(1098) = Jac_FULL(129,135) JVS(1098) = B(8) ! JVS(1099) = Jac_FULL(129,136) JVS(1099) = -B(56)+0.155*B(484)+0.15*B(500) ! JVS(1100) = Jac_FULL(129,137) JVS(1100) = 0 ! JVS(1101) = Jac_FULL(130,49) JVS(1101) = B(78)+0.6*B(566) ! JVS(1102) = Jac_FULL(130,54) JVS(1102) = B(345) ! JVS(1103) = Jac_FULL(130,63) JVS(1103) = B(603) ! JVS(1104) = Jac_FULL(130,64) JVS(1104) = B(595) ! JVS(1105) = Jac_FULL(130,65) JVS(1105) = B(604)+B(605) ! JVS(1106) = Jac_FULL(130,73) JVS(1106) = 0.7*B(593) ! JVS(1107) = Jac_FULL(130,75) JVS(1107) = B(236)+B(238) ! JVS(1108) = Jac_FULL(130,85) JVS(1108) = B(568) ! JVS(1109) = Jac_FULL(130,93) JVS(1109) = B(599) ! JVS(1110) = Jac_FULL(130,94) JVS(1110) = -B(264)-B(268) ! JVS(1111) = Jac_FULL(130,95) JVS(1111) = 0 ! JVS(1112) = Jac_FULL(130,97) JVS(1112) = -B(374)-B(396) ! JVS(1113) = Jac_FULL(130,98) JVS(1113) = -B(370)-B(402) ! JVS(1114) = Jac_FULL(130,101) JVS(1114) = 0.53*B(107)+0.578*B(160)+0.36*B(191)-0.4*B(366)-B(390) ! JVS(1115) = Jac_FULL(130,102) JVS(1115) = -B(332)-B(334) ! JVS(1116) = Jac_FULL(130,105) JVS(1116) = -B(368)-B(392) ! JVS(1117) = Jac_FULL(130,106) JVS(1117) = 0.93*B(103)+B(156)+0.5*B(184)-B(384) ! JVS(1118) = Jac_FULL(130,107) JVS(1118) = 0 ! JVS(1119) = Jac_FULL(130,108) JVS(1119) = 0.96*B(101)+0.15*B(154)+0.3*B(182)-B(382) ! JVS(1120) = Jac_FULL(130,109) JVS(1120) = -B(266)-B(270) ! JVS(1121) = Jac_FULL(130,110) JVS(1121) = -B(378)-B(400) ! JVS(1122) = Jac_FULL(130,111) JVS(1122) = -B(364)-B(388) ! JVS(1123) = Jac_FULL(130,112) JVS(1123) = -B(404)-B(406) ! JVS(1124) = Jac_FULL(130,113) JVS(1124) = -B(408) ! JVS(1125) = Jac_FULL(130,115) JVS(1125) = 0.95*B(72)+B(74) ! JVS(1126) = Jac_FULL(130,116) JVS(1126) = -B(372)-B(394) ! JVS(1127) = Jac_FULL(130,117) JVS(1127) = -B(376)-B(398) ! JVS(1128) = Jac_FULL(130,118) JVS(1128) = B(248)+B(252)+B(574) ! JVS(1129) = Jac_FULL(130,119) JVS(1129) = B(581) ! JVS(1130) = Jac_FULL(130,120) JVS(1130) = B(577) ! JVS(1131) = Jac_FULL(130,121) JVS(1131) = B(580) ! JVS(1132) = Jac_FULL(130,122) JVS(1132) = 0.5*B(138)+B(286) ! JVS(1133) = Jac_FULL(130,123) JVS(1133) = -B(362)-B(386) ! JVS(1134) = Jac_FULL(130,124) JVS(1134) = 0 ! JVS(1135) = Jac_FULL(130,125) JVS(1135) = 0 ! JVS(1136) = Jac_FULL(130,126) JVS(1136) = -B(356)-B(380) ! JVS(1137) = Jac_FULL(130,127) JVS(1137) = 0 ! JVS(1138) = Jac_FULL(130,128) JVS(1138) = -B(76) ! JVS(1139) = Jac_FULL(130,129) JVS(1139) = B(75)+B(253) ! JVS(1140) = Jac_FULL(130,130) JVS(1140) = -B(77)-B(79)-B(215)-B(265)-B(267)-B(269)-B(271)-B(333)-B(335)-2*B(351)-B(352)-B(354)-B(357)-B(363)-B(365)& &-0.4*B(367)-B(369)-B(371)-B(373)-B(375)-B(377)-B(379)-B(381)-B(383)-B(385)-B(387)-B(389)-B(391)-B(393)& &-B(395)-B(397)-B(399)-B(401)-B(403)-B(405)-B(407)-B(409) ! JVS(1141) = Jac_FULL(130,131) JVS(1141) = 0.85*B(570) ! JVS(1142) = Jac_FULL(130,132) JVS(1142) = 0.95*B(73)+B(249)+B(346) ! JVS(1143) = Jac_FULL(130,133) JVS(1143) = 0.3*B(183)+0.5*B(185)+0.36*B(192)+B(287)-B(353)-B(355) ! JVS(1144) = Jac_FULL(130,134) JVS(1144) = -B(80)+0.96*B(102)+0.93*B(104)+0.53*B(108)+0.5*B(139)+B(237) ! JVS(1145) = Jac_FULL(130,135) JVS(1145) = 0 ! JVS(1146) = Jac_FULL(130,136) JVS(1146) = 0.15*B(155)+B(157)+0.578*B(161)-B(216)+B(239) ! JVS(1147) = Jac_FULL(130,137) JVS(1147) = 0 ! JVS(1148) = Jac_FULL(131,71) JVS(1148) = B(292) ! JVS(1149) = Jac_FULL(131,73) JVS(1149) = 0.791*B(322) ! JVS(1150) = Jac_FULL(131,77) JVS(1150) = 0.5*B(504) ! JVS(1151) = Jac_FULL(131,78) JVS(1151) = B(520) ! JVS(1152) = Jac_FULL(131,101) JVS(1152) = 0.187*B(160)+0.25*B(191)+B(390) ! JVS(1153) = Jac_FULL(131,102) JVS(1153) = B(334) ! JVS(1154) = Jac_FULL(131,103) JVS(1154) = 0.34*B(479)+0.17*B(483) ! JVS(1155) = Jac_FULL(131,105) JVS(1155) = B(392) ! JVS(1156) = Jac_FULL(131,106) JVS(1156) = 0.25*B(184)+B(384) ! JVS(1157) = Jac_FULL(131,107) JVS(1157) = 0 ! JVS(1158) = Jac_FULL(131,111) JVS(1158) = 0.25*B(189)+B(388) ! JVS(1159) = Jac_FULL(131,117) JVS(1159) = 0 ! JVS(1160) = Jac_FULL(131,120) JVS(1160) = 0 ! JVS(1161) = Jac_FULL(131,121) JVS(1161) = 0 ! JVS(1162) = Jac_FULL(131,122) JVS(1162) = 0 ! JVS(1163) = Jac_FULL(131,123) JVS(1163) = B(386) ! JVS(1164) = Jac_FULL(131,124) JVS(1164) = 0 ! JVS(1165) = Jac_FULL(131,125) JVS(1165) = 0 ! JVS(1166) = Jac_FULL(131,126) JVS(1166) = 0.19*B(95)+0.35*B(178)+0.19*B(356)+B(380) ! JVS(1167) = Jac_FULL(131,128) JVS(1167) = 0 ! JVS(1168) = Jac_FULL(131,129) JVS(1168) = -B(176) ! JVS(1169) = Jac_FULL(131,130) JVS(1169) = B(335)+0.19*B(357)+B(381)+B(385)+B(387)+B(389)+B(391)+B(393) ! JVS(1170) = Jac_FULL(131,131) JVS(1170) = -B(172)-B(177)-B(570) ! JVS(1171) = Jac_FULL(131,132) JVS(1171) = -B(173)+B(293)+0.791*B(323)+0.5*B(505) ! JVS(1172) = Jac_FULL(131,133) JVS(1172) = 0.35*B(179)+0.25*B(185)+0.25*B(190)+0.25*B(192) ! JVS(1173) = Jac_FULL(131,134) JVS(1173) = 0.19*B(96)+0.34*B(480) ! JVS(1174) = Jac_FULL(131,135) JVS(1174) = B(521) ! JVS(1175) = Jac_FULL(131,136) JVS(1175) = 0.187*B(161)+0.17*B(484) ! JVS(1176) = Jac_FULL(131,137) JVS(1176) = 0.19*B(596) ! JVS(1177) = Jac_FULL(132,44) JVS(1177) = -B(85)-B(87) ! JVS(1178) = Jac_FULL(132,46) JVS(1178) = -B(15)+2*B(552) ! JVS(1179) = Jac_FULL(132,47) JVS(1179) = -B(314) ! JVS(1180) = Jac_FULL(132,48) JVS(1180) = -B(465) ! JVS(1181) = Jac_FULL(132,51) JVS(1181) = -B(93) ! JVS(1182) = Jac_FULL(132,52) JVS(1182) = -B(81) ! JVS(1183) = Jac_FULL(132,53) JVS(1183) = -B(48)+B(557) ! JVS(1184) = Jac_FULL(132,54) JVS(1184) = -B(345)+B(597) ! JVS(1185) = Jac_FULL(132,56) JVS(1185) = -0.36*B(300)+B(585) ! JVS(1186) = Jac_FULL(132,57) JVS(1186) = -0.209*B(302)+B(586) ! JVS(1187) = Jac_FULL(132,58) JVS(1187) = -B(306)+B(589) ! JVS(1188) = Jac_FULL(132,59) JVS(1188) = -B(53)+B(558) ! JVS(1189) = Jac_FULL(132,60) JVS(1189) = -B(459)-B(461) ! JVS(1190) = Jac_FULL(132,61) JVS(1190) = -0.36*B(298)+B(584) ! JVS(1191) = Jac_FULL(132,62) JVS(1191) = -B(32)+B(553) ! JVS(1192) = Jac_FULL(132,63) JVS(1192) = -B(36)+B(603) ! JVS(1193) = Jac_FULL(132,64) JVS(1193) = -B(328)-B(330)+B(595) ! JVS(1194) = Jac_FULL(132,66) JVS(1194) = -0.209*B(304)+B(587) ! JVS(1195) = Jac_FULL(132,67) JVS(1195) = -0.209*B(296)+B(583) ! JVS(1196) = Jac_FULL(132,68) JVS(1196) = -B(522) ! JVS(1197) = Jac_FULL(132,69) JVS(1197) = -0.209*B(308)+B(588) ! JVS(1198) = Jac_FULL(132,70) JVS(1198) = -B(324)+B(594) ! JVS(1199) = Jac_FULL(132,71) JVS(1199) = -0.36*B(294)+B(582) ! JVS(1200) = Jac_FULL(132,72) JVS(1200) = -B(64) ! JVS(1201) = Jac_FULL(132,73) JVS(1201) = -0.209*B(322)+B(593) ! JVS(1202) = Jac_FULL(132,74) JVS(1202) = -0.387*B(310)+B(590) ! JVS(1203) = Jac_FULL(132,75) JVS(1203) = B(238) ! JVS(1204) = Jac_FULL(132,76) JVS(1204) = -0.346*B(320)+B(591) ! JVS(1205) = Jac_FULL(132,77) JVS(1205) = -B(504) ! JVS(1206) = Jac_FULL(132,78) JVS(1206) = -B(512)+B(520) ! JVS(1207) = Jac_FULL(132,79) JVS(1207) = -B(225) ! JVS(1208) = Jac_FULL(132,80) JVS(1208) = -0.388*B(491)+B(592) ! JVS(1209) = Jac_FULL(132,81) JVS(1209) = -B(254)+0.27*B(272) ! JVS(1210) = Jac_FULL(132,82) JVS(1210) = 0.27*B(447)-B(477) ! JVS(1211) = Jac_FULL(132,83) JVS(1211) = B(510) ! JVS(1212) = Jac_FULL(132,84) JVS(1212) = 1.125*B(316)+0.125*B(318) ! JVS(1213) = Jac_FULL(132,85) JVS(1213) = -B(142)-B(144) ! JVS(1214) = Jac_FULL(132,86) JVS(1214) = -B(221)+0.135*B(223) ! JVS(1215) = Jac_FULL(132,87) JVS(1215) = 0.5*B(518) ! JVS(1216) = Jac_FULL(132,88) JVS(1216) = -B(205) ! JVS(1217) = Jac_FULL(132,89) JVS(1217) = -B(126) ! JVS(1218) = Jac_FULL(132,90) JVS(1218) = -B(246) ! JVS(1219) = Jac_FULL(132,91) JVS(1219) = -B(22) ! JVS(1220) = Jac_FULL(132,92) JVS(1220) = B(499) ! JVS(1221) = Jac_FULL(132,93) JVS(1221) = -B(493) ! JVS(1222) = Jac_FULL(132,94) JVS(1222) = 0 ! JVS(1223) = Jac_FULL(132,95) JVS(1223) = 0 ! JVS(1224) = Jac_FULL(132,96) JVS(1224) = -B(524) ! JVS(1225) = Jac_FULL(132,97) JVS(1225) = 0.5*B(111)+B(164) ! JVS(1226) = Jac_FULL(132,98) JVS(1226) = 0 ! JVS(1227) = Jac_FULL(132,99) JVS(1227) = -B(44)+B(556) ! JVS(1228) = Jac_FULL(132,100) JVS(1228) = -0.74*B(240)-0.81*B(242) ! JVS(1229) = Jac_FULL(132,101) JVS(1229) = 0.68*B(160) ! JVS(1230) = Jac_FULL(132,102) JVS(1230) = B(332)+0.7*B(336)+2*B(338)+2*B(339)+B(341) ! JVS(1231) = Jac_FULL(132,103) JVS(1231) = 0.5*B(483) ! JVS(1232) = Jac_FULL(132,104) JVS(1232) = -B(495) ! JVS(1233) = Jac_FULL(132,105) JVS(1233) = 0.98*B(162) ! JVS(1234) = Jac_FULL(132,106) JVS(1234) = B(156) ! JVS(1235) = Jac_FULL(132,107) JVS(1235) = 0.5*B(489) ! JVS(1236) = Jac_FULL(132,108) JVS(1236) = 0.15*B(154) ! JVS(1237) = Jac_FULL(132,109) JVS(1237) = 0 ! JVS(1238) = Jac_FULL(132,110) JVS(1238) = 0 ! JVS(1239) = Jac_FULL(132,111) JVS(1239) = 0.9*B(473) ! JVS(1240) = Jac_FULL(132,112) JVS(1240) = 0 ! JVS(1241) = Jac_FULL(132,113) JVS(1241) = 0.44*B(217) ! JVS(1242) = Jac_FULL(132,114) JVS(1242) = -B(40) ! JVS(1243) = Jac_FULL(132,115) JVS(1243) = -B(72) ! JVS(1244) = Jac_FULL(132,116) JVS(1244) = 0 ! JVS(1245) = Jac_FULL(132,117) JVS(1245) = 0.5*B(168) ! JVS(1246) = Jac_FULL(132,118) JVS(1246) = -B(248) ! JVS(1247) = Jac_FULL(132,119) JVS(1247) = -B(260) ! JVS(1248) = Jac_FULL(132,120) JVS(1248) = -B(256)+0.08*B(274) ! JVS(1249) = Jac_FULL(132,121) JVS(1249) = -B(258)+0.215*B(276) ! JVS(1250) = Jac_FULL(132,122) JVS(1250) = 0.87*B(219) ! JVS(1251) = Jac_FULL(132,123) JVS(1251) = 0.12*B(158) ! JVS(1252) = Jac_FULL(132,124) JVS(1252) = 0.1*B(349)-B(467) ! JVS(1253) = Jac_FULL(132,125) JVS(1253) = 0.27*B(449)-B(475) ! JVS(1254) = Jac_FULL(132,126) JVS(1254) = 0 ! JVS(1255) = Jac_FULL(132,127) JVS(1255) = -B(128) ! JVS(1256) = Jac_FULL(132,128) JVS(1256) = -B(42) ! JVS(1257) = Jac_FULL(132,129) JVS(1257) = B(55)-B(59) ! JVS(1258) = Jac_FULL(132,130) JVS(1258) = 0.44*B(215)+B(333) ! JVS(1259) = Jac_FULL(132,131) JVS(1259) = -B(172) ! JVS(1260) = Jac_FULL(132,132) JVS(1260) = -B(3)-2*B(11)-2*B(12)-B(13)-B(16)-B(20)-B(23)-B(24)-B(33)-B(37)-B(41)-B(43)-B(45)-B(46)-B(49)-B(54)-B(60)& &-B(65)-B(66)-B(73)-B(82)-B(86)-B(88)-B(94)-B(124)-B(127)-B(129)-B(143)-B(145)-B(173)-B(203)-B(206)-B(222)& &-B(226)-0.74*B(241)-0.81*B(243)-B(247)-B(249)-B(255)-B(257)-B(259)-B(261)-0.36*B(295)-0.209*B(297)-0.36& &*B(299)-0.36*B(301)-0.209*B(303)-0.209*B(305)-B(307)-0.209*B(309)-0.387*B(311)-B(315)-0.346*B(321)-0.209& &*B(323)-B(325)-B(329)-B(331)-B(346)-B(460)-B(462)-B(466)-B(468)-B(476)-B(478)-0.388*B(492)-B(494)-B(496)& &-B(505)-B(513)-B(523)-B(525) ! JVS(1261) = Jac_FULL(132,133) JVS(1261) = 0.7*B(337) ! JVS(1262) = Jac_FULL(132,134) JVS(1262) = B(17)-B(47)+0.5*B(112)+0.125*B(319)+B(342) ! JVS(1263) = Jac_FULL(132,135) JVS(1263) = -B(4)+B(5)+0.135*B(224)+0.27*B(273)+0.08*B(275)+0.215*B(277)+0.1*B(350)+0.27*B(448)+0.27*B(450)+B(521)+2& &*B(550) ! JVS(1264) = Jac_FULL(132,136) JVS(1264) = B(6)-B(14)+B(18)+B(56)+0.15*B(155)+B(157)+0.12*B(159)+0.68*B(161)+0.98*B(163)+B(165)+0.5*B(169)+0.44& &*B(216)+0.44*B(218)+0.87*B(220)+B(239)+1.125*B(317)+2*B(340)+0.9*B(474)+0.5*B(484)+0.5*B(490)+B(500)+B(511)& &+0.5*B(519) ! JVS(1265) = Jac_FULL(132,137) JVS(1265) = -B(125) ! JVS(1266) = Jac_FULL(133,49) JVS(1266) = 0.4*B(566) ! JVS(1267) = Jac_FULL(133,54) JVS(1267) = B(597) ! JVS(1268) = Jac_FULL(133,60) JVS(1268) = B(459)+B(461)+B(463) ! JVS(1269) = Jac_FULL(133,62) JVS(1269) = B(32) ! JVS(1270) = Jac_FULL(133,85) JVS(1270) = B(568)+2*B(569) ! JVS(1271) = Jac_FULL(133,86) JVS(1271) = 0.305*B(223) ! JVS(1272) = Jac_FULL(133,89) JVS(1272) = B(126) ! JVS(1273) = Jac_FULL(133,92) JVS(1273) = 0 ! JVS(1274) = Jac_FULL(133,94) JVS(1274) = -B(146)+B(264) ! JVS(1275) = Jac_FULL(133,95) JVS(1275) = 0 ! JVS(1276) = Jac_FULL(133,96) JVS(1276) = B(602) ! JVS(1277) = Jac_FULL(133,97) JVS(1277) = -B(195)+B(374) ! JVS(1278) = Jac_FULL(133,98) JVS(1278) = -B(197)+B(370) ! JVS(1279) = Jac_FULL(133,101) JVS(1279) = -B(191)+B(366) ! JVS(1280) = Jac_FULL(133,102) JVS(1280) = B(332)-B(336) ! JVS(1281) = Jac_FULL(133,103) JVS(1281) = 0 ! JVS(1282) = Jac_FULL(133,104) JVS(1282) = 0 ! JVS(1283) = Jac_FULL(133,105) JVS(1283) = -B(193)+B(368) ! JVS(1284) = Jac_FULL(133,106) JVS(1284) = -B(184)+B(360) ! JVS(1285) = Jac_FULL(133,107) JVS(1285) = 0 ! JVS(1286) = Jac_FULL(133,108) JVS(1286) = -B(182)+B(358) ! JVS(1287) = Jac_FULL(133,109) JVS(1287) = -B(148)+B(266) ! JVS(1288) = Jac_FULL(133,110) JVS(1288) = -B(201)+B(378) ! JVS(1289) = Jac_FULL(133,111) JVS(1289) = -B(189)+B(364) ! JVS(1290) = Jac_FULL(133,112) JVS(1290) = -B(174)+B(404) ! JVS(1291) = Jac_FULL(133,113) JVS(1291) = -B(284)-B(288)+B(408) ! JVS(1292) = Jac_FULL(133,115) JVS(1292) = B(564) ! JVS(1293) = Jac_FULL(133,116) JVS(1293) = -B(180)+B(372) ! JVS(1294) = Jac_FULL(133,117) JVS(1294) = -B(199)+B(376) ! JVS(1295) = Jac_FULL(133,118) JVS(1295) = 0 ! JVS(1296) = Jac_FULL(133,119) JVS(1296) = 0.5*B(262) ! JVS(1297) = Jac_FULL(133,120) JVS(1297) = B(578) ! JVS(1298) = Jac_FULL(133,121) JVS(1298) = 0 ! JVS(1299) = Jac_FULL(133,122) JVS(1299) = 0.5*B(138)+0.435*B(219)-B(286)-B(290)+B(410) ! JVS(1300) = Jac_FULL(133,123) JVS(1300) = -B(186)+B(362) ! JVS(1301) = Jac_FULL(133,124) JVS(1301) = 0 ! JVS(1302) = Jac_FULL(133,125) JVS(1302) = 0 ! JVS(1303) = Jac_FULL(133,126) JVS(1303) = 0.18*B(95)-0.91*B(178)+B(356) ! JVS(1304) = Jac_FULL(133,127) JVS(1304) = 0 ! JVS(1305) = Jac_FULL(133,128) JVS(1305) = 0 ! JVS(1306) = Jac_FULL(133,129) JVS(1306) = B(464) ! JVS(1307) = Jac_FULL(133,130) JVS(1307) = B(79)+0.44*B(215)+B(265)+B(267)+B(333)+2*B(351)-B(354)+B(357)+B(359)+B(361)+B(363)+B(365)+B(367)+B(369)& &+B(371)+B(373)+B(375)+B(377)+B(379)+B(405)+B(409)+B(411) ! JVS(1308) = Jac_FULL(133,131) JVS(1308) = 0.15*B(570) ! JVS(1309) = Jac_FULL(133,132) JVS(1309) = B(24)+B(33)+B(127)+0.5*B(263)+B(460)+B(462) ! JVS(1310) = Jac_FULL(133,133) JVS(1310) = -B(9)-B(26)-B(28)-2*B(30)-2*B(31)-B(147)-B(149)-B(175)-0.91*B(179)-B(181)-B(183)-B(185)-B(187)-B(190)& &-B(192)-B(194)-B(196)-B(198)-B(200)-B(202)-B(285)-B(287)-B(289)-B(291)-B(337)-B(355) ! JVS(1311) = Jac_FULL(133,134) JVS(1311) = -B(27)+B(80)+0.18*B(96)+0.5*B(139) ! JVS(1312) = Jac_FULL(133,135) JVS(1312) = -B(10)+0.305*B(224) ! JVS(1313) = Jac_FULL(133,136) JVS(1313) = -B(29)+0.44*B(216)+0.435*B(220) ! JVS(1314) = Jac_FULL(133,137) JVS(1314) = 0.18*B(596) ! JVS(1315) = Jac_FULL(134,53) JVS(1315) = B(557) ! JVS(1316) = Jac_FULL(134,55) JVS(1316) = B(562) ! JVS(1317) = Jac_FULL(134,75) JVS(1317) = -B(236) ! JVS(1318) = Jac_FULL(134,83) JVS(1318) = -B(506)-B(508) ! JVS(1319) = Jac_FULL(134,84) JVS(1319) = -B(318) ! JVS(1320) = Jac_FULL(134,87) JVS(1320) = -B(514)-B(516) ! JVS(1321) = Jac_FULL(134,92) JVS(1321) = -B(497) ! JVS(1322) = Jac_FULL(134,94) JVS(1322) = -B(89) ! JVS(1323) = Jac_FULL(134,95) JVS(1323) = -B(227) ! JVS(1324) = Jac_FULL(134,97) JVS(1324) = -B(111) ! JVS(1325) = Jac_FULL(134,98) JVS(1325) = -B(113) ! JVS(1326) = Jac_FULL(134,101) JVS(1326) = -B(107) ! JVS(1327) = Jac_FULL(134,102) JVS(1327) = -B(341)-B(343) ! JVS(1328) = Jac_FULL(134,103) JVS(1328) = -B(479)-B(481) ! JVS(1329) = Jac_FULL(134,104) JVS(1329) = 0 ! JVS(1330) = Jac_FULL(134,105) JVS(1330) = -B(109) ! JVS(1331) = Jac_FULL(134,106) JVS(1331) = -B(103) ! JVS(1332) = Jac_FULL(134,107) JVS(1332) = -B(485)-B(487) ! JVS(1333) = Jac_FULL(134,108) JVS(1333) = -B(101) ! JVS(1334) = Jac_FULL(134,109) JVS(1334) = -B(91) ! JVS(1335) = Jac_FULL(134,110) JVS(1335) = -B(120) ! JVS(1336) = Jac_FULL(134,111) JVS(1336) = -B(469)-B(471) ! JVS(1337) = Jac_FULL(134,112) JVS(1337) = -B(83) ! JVS(1338) = Jac_FULL(134,113) JVS(1338) = -B(136) ! JVS(1339) = Jac_FULL(134,116) JVS(1339) = -B(99) ! JVS(1340) = Jac_FULL(134,117) JVS(1340) = -B(115) ! JVS(1341) = Jac_FULL(134,120) JVS(1341) = 0 ! JVS(1342) = Jac_FULL(134,121) JVS(1342) = 0 ! JVS(1343) = Jac_FULL(134,122) JVS(1343) = -B(138) ! JVS(1344) = Jac_FULL(134,123) JVS(1344) = -B(105) ! JVS(1345) = Jac_FULL(134,124) JVS(1345) = 0 ! JVS(1346) = Jac_FULL(134,125) JVS(1346) = 0 ! JVS(1347) = Jac_FULL(134,126) JVS(1347) = -B(95)-B(97) ! JVS(1348) = Jac_FULL(134,127) JVS(1348) = 0 ! JVS(1349) = Jac_FULL(134,128) JVS(1349) = B(68)+B(551) ! JVS(1350) = Jac_FULL(134,129) JVS(1350) = -B(57)+B(69)+B(560) ! JVS(1351) = Jac_FULL(134,130) JVS(1351) = -B(79) ! JVS(1352) = Jac_FULL(134,131) JVS(1352) = 0 ! JVS(1353) = Jac_FULL(134,132) JVS(1353) = -B(46) ! JVS(1354) = Jac_FULL(134,133) JVS(1354) = -B(26) ! JVS(1355) = Jac_FULL(134,134) JVS(1355) = -B(1)-B(17)-B(27)-B(47)-B(58)-B(80)-B(84)-B(90)-B(92)-B(96)-B(98)-B(100)-B(102)-B(104)-B(106)-B(108)& &-B(110)-B(112)-B(114)-B(116)-B(121)-B(137)-B(139)-B(228)-B(237)-B(319)-B(342)-B(344)-B(470)-B(472)-B(480)& &-B(482)-B(486)-B(488)-B(498)-B(507)-B(509)-B(515)-B(517) ! JVS(1356) = Jac_FULL(134,135) JVS(1356) = -B(2) ! JVS(1357) = Jac_FULL(134,136) JVS(1357) = -B(18) ! JVS(1358) = Jac_FULL(134,137) JVS(1358) = 0 ! JVS(1359) = Jac_FULL(135,55) JVS(1359) = B(562) ! JVS(1360) = Jac_FULL(135,78) JVS(1360) = -B(520) ! JVS(1361) = Jac_FULL(135,79) JVS(1361) = -B(231) ! JVS(1362) = Jac_FULL(135,81) JVS(1362) = -0.9*B(272) ! JVS(1363) = Jac_FULL(135,82) JVS(1363) = -B(447) ! JVS(1364) = Jac_FULL(135,86) JVS(1364) = -B(223) ! JVS(1365) = Jac_FULL(135,111) JVS(1365) = 0 ! JVS(1366) = Jac_FULL(135,113) JVS(1366) = 0.15*B(217) ! JVS(1367) = Jac_FULL(135,120) JVS(1367) = -0.8*B(274) ! JVS(1368) = Jac_FULL(135,121) JVS(1368) = -0.8*B(276) ! JVS(1369) = Jac_FULL(135,122) JVS(1369) = 0.03*B(219) ! JVS(1370) = Jac_FULL(135,123) JVS(1370) = 0 ! JVS(1371) = Jac_FULL(135,124) JVS(1371) = -0.7*B(349) ! JVS(1372) = Jac_FULL(135,125) JVS(1372) = -B(449) ! JVS(1373) = Jac_FULL(135,127) JVS(1373) = 0 ! JVS(1374) = Jac_FULL(135,128) JVS(1374) = -B(7)+B(551) ! JVS(1375) = Jac_FULL(135,129) JVS(1375) = B(559) ! JVS(1376) = Jac_FULL(135,130) JVS(1376) = 0.15*B(215) ! JVS(1377) = Jac_FULL(135,131) JVS(1377) = 0 ! JVS(1378) = Jac_FULL(135,132) JVS(1378) = -B(3)+B(11) ! JVS(1379) = Jac_FULL(135,133) JVS(1379) = -B(9) ! JVS(1380) = Jac_FULL(135,134) JVS(1380) = -B(1) ! JVS(1381) = Jac_FULL(135,135) JVS(1381) = -B(2)-B(4)-B(5)-B(8)-B(10)-B(224)-B(232)-0.9*B(273)-0.8*B(275)-0.8*B(277)-0.7*B(350)-B(433)-B(448)-B(450)& &-B(521)-B(550) ! JVS(1382) = Jac_FULL(135,136) JVS(1382) = -B(6)+0.15*B(216)+0.15*B(218)+0.03*B(220) ! JVS(1383) = Jac_FULL(135,137) JVS(1383) = 0 ! JVS(1384) = Jac_FULL(136,46) JVS(1384) = B(15) ! JVS(1385) = Jac_FULL(136,48) JVS(1385) = B(465) ! JVS(1386) = Jac_FULL(136,56) JVS(1386) = B(585) ! JVS(1387) = Jac_FULL(136,57) JVS(1387) = B(586) ! JVS(1388) = Jac_FULL(136,58) JVS(1388) = B(589) ! JVS(1389) = Jac_FULL(136,59) JVS(1389) = B(52)+B(563) ! JVS(1390) = Jac_FULL(136,60) JVS(1390) = 0 ! JVS(1391) = Jac_FULL(136,61) JVS(1391) = B(584) ! JVS(1392) = Jac_FULL(136,62) JVS(1392) = B(553) ! JVS(1393) = Jac_FULL(136,66) JVS(1393) = B(587) ! JVS(1394) = Jac_FULL(136,67) JVS(1394) = B(583) ! JVS(1395) = Jac_FULL(136,69) JVS(1395) = B(588) ! JVS(1396) = Jac_FULL(136,70) JVS(1396) = B(594) ! JVS(1397) = Jac_FULL(136,71) JVS(1397) = B(582) ! JVS(1398) = Jac_FULL(136,72) JVS(1398) = B(64) ! JVS(1399) = Jac_FULL(136,73) JVS(1399) = 0.3*B(593) ! JVS(1400) = Jac_FULL(136,74) JVS(1400) = B(590) ! JVS(1401) = Jac_FULL(136,75) JVS(1401) = -B(238) ! JVS(1402) = Jac_FULL(136,76) JVS(1402) = B(591) ! JVS(1403) = Jac_FULL(136,77) JVS(1403) = B(504) ! JVS(1404) = Jac_FULL(136,78) JVS(1404) = B(520) ! JVS(1405) = Jac_FULL(136,79) JVS(1405) = B(231) ! JVS(1406) = Jac_FULL(136,80) JVS(1406) = B(592) ! JVS(1407) = Jac_FULL(136,81) JVS(1407) = 0.06*B(272) ! JVS(1408) = Jac_FULL(136,82) JVS(1408) = B(600) ! JVS(1409) = Jac_FULL(136,83) JVS(1409) = B(506) ! JVS(1410) = Jac_FULL(136,84) JVS(1410) = -0.175*B(316)+0.825*B(318) ! JVS(1411) = Jac_FULL(136,86) JVS(1411) = 0.3*B(223) ! JVS(1412) = Jac_FULL(136,87) JVS(1412) = B(514)-0.5*B(518) ! JVS(1413) = Jac_FULL(136,88) JVS(1413) = B(205) ! JVS(1414) = Jac_FULL(136,90) JVS(1414) = B(246)+B(250)+2*B(573) ! JVS(1415) = Jac_FULL(136,91) JVS(1415) = B(22) ! JVS(1416) = Jac_FULL(136,92) JVS(1416) = -B(499) ! JVS(1417) = Jac_FULL(136,93) JVS(1417) = 0 ! JVS(1418) = Jac_FULL(136,94) JVS(1418) = B(89)+B(146)-B(211)+B(264) ! JVS(1419) = Jac_FULL(136,95) JVS(1419) = 0.54*B(227)-B(229) ! JVS(1420) = Jac_FULL(136,96) JVS(1420) = 0 ! JVS(1421) = Jac_FULL(136,97) JVS(1421) = -0.5*B(164)+0.375*B(195)+0.5*B(374) ! JVS(1422) = Jac_FULL(136,98) JVS(1422) = B(113)-B(166)+B(197)+B(370) ! JVS(1423) = Jac_FULL(136,100) JVS(1423) = 0.74*B(240)+0.81*B(242)+2*B(571) ! JVS(1424) = Jac_FULL(136,101) JVS(1424) = 0.35*B(107)-0.898*B(160)+0.64*B(191)+0.4*B(366) ! JVS(1425) = Jac_FULL(136,102) JVS(1425) = 0.7*B(336)-B(339) ! JVS(1426) = Jac_FULL(136,103) JVS(1426) = 0.35*B(479)-0.825*B(483) ! JVS(1427) = Jac_FULL(136,104) JVS(1427) = B(598) ! JVS(1428) = Jac_FULL(136,105) JVS(1428) = 0.85*B(109)-0.02*B(162)+1.7*B(193)+0.85*B(368) ! JVS(1429) = Jac_FULL(136,106) JVS(1429) = -B(156)+0.5*B(184) ! JVS(1430) = Jac_FULL(136,107) JVS(1430) = 0.4*B(485)-0.8*B(489) ! JVS(1431) = Jac_FULL(136,108) JVS(1431) = -B(154)+0.3*B(182) ! JVS(1432) = Jac_FULL(136,109) JVS(1432) = B(91)+B(148)-B(213)+B(266) ! JVS(1433) = Jac_FULL(136,110) JVS(1433) = -B(170)+0.5*B(201) ! JVS(1434) = Jac_FULL(136,111) JVS(1434) = B(189)+B(364)+B(469)-0.1*B(473) ! JVS(1435) = Jac_FULL(136,112) JVS(1435) = B(83)+B(174)+2*B(207)-B(209)+B(404) ! JVS(1436) = Jac_FULL(136,113) JVS(1436) = -B(217)+B(284) ! JVS(1437) = Jac_FULL(136,114) JVS(1437) = B(40)+B(70)+2*B(554) ! JVS(1438) = Jac_FULL(136,115) JVS(1438) = 0.05*B(72)+B(564) ! JVS(1439) = Jac_FULL(136,116) JVS(1439) = -B(152)+0.5*B(180) ! JVS(1440) = Jac_FULL(136,117) JVS(1440) = 0.8*B(115)+0.8*B(117)+1.12*B(119)-0.5*B(168)+0.9*B(199)+0.8*B(376) ! JVS(1441) = Jac_FULL(136,118) JVS(1441) = B(574) ! JVS(1442) = Jac_FULL(136,119) JVS(1442) = B(260)+B(581) ! JVS(1443) = Jac_FULL(136,120) JVS(1443) = 0.06*B(274)+B(577) ! JVS(1444) = Jac_FULL(136,121) JVS(1444) = 0.275*B(276)+B(579)+B(580) ! JVS(1445) = Jac_FULL(136,122) JVS(1445) = -B(219)+B(286) ! JVS(1446) = Jac_FULL(136,123) JVS(1446) = 0.783*B(105)-0.88*B(158)+1.1*B(186)+1.28*B(188)+0.887*B(362) ! JVS(1447) = Jac_FULL(136,124) JVS(1447) = 0 ! JVS(1448) = Jac_FULL(136,125) JVS(1448) = B(601) ! JVS(1449) = Jac_FULL(136,126) JVS(1449) = 0.27*B(95)-B(150)+0.64*B(178)+0.27*B(356) ! JVS(1450) = Jac_FULL(136,127) JVS(1450) = B(567) ! JVS(1451) = Jac_FULL(136,128) JVS(1451) = -B(50) ! JVS(1452) = Jac_FULL(136,129) JVS(1452) = -B(55)+B(59)+B(71)+0.8*B(118)+B(251) ! JVS(1453) = Jac_FULL(136,130) JVS(1453) = -B(215)+B(265)+B(267)+B(352)+0.27*B(357)+0.887*B(363)+B(365)+0.4*B(367)+0.85*B(369)+B(371)+0.5*B(375)+0.8& &*B(377)+B(405) ! JVS(1454) = Jac_FULL(136,131) JVS(1454) = 0 ! JVS(1455) = Jac_FULL(136,132) JVS(1455) = B(3)-B(13)+B(16)+B(20)+B(23)+B(41)+B(60)+B(65)+B(66)+0.05*B(73)+B(203)+B(206)+0.74*B(241)+0.81*B(243)& &+B(247)+B(261)+B(466)+B(505) ! JVS(1456) = Jac_FULL(136,133) JVS(1456) = B(9)+B(26)-B(28)+2*B(31)+B(147)+B(149)+B(175)+0.64*B(179)+0.5*B(181)+0.3*B(183)+0.5*B(185)+1.1*B(187)& &+B(190)+0.64*B(192)+1.7*B(194)+0.375*B(196)+B(198)+0.9*B(200)+0.5*B(202)+B(285)+B(287)+0.7*B(337)+B(353) ! JVS(1457) = Jac_FULL(136,134) JVS(1457) = -B(17)+B(27)+B(84)+B(90)+B(92)+0.27*B(96)+0.783*B(106)+0.35*B(108)+0.85*B(110)+B(114)+0.8*B(116)+0.54& &*B(228)+0.825*B(319)+B(470)+0.35*B(480)+0.4*B(486)+B(507)+B(515) ! JVS(1458) = Jac_FULL(136,135) JVS(1458) = B(4)-B(5)+B(10)+0.3*B(224)+B(232)+0.06*B(273)+0.06*B(275)+0.275*B(277)+B(521) ! JVS(1459) = Jac_FULL(136,136) JVS(1459) = -B(6)-B(14)-B(18)-2*B(19)-B(29)-B(51)-B(56)-B(151)-B(153)-B(155)-B(157)-0.88*B(159)-0.898*B(161)-0.02& &*B(163)-0.5*B(165)-B(167)-0.5*B(169)-B(171)-B(210)-B(212)-B(214)-B(216)-B(218)-B(220)-B(230)-B(239)-0.175& &*B(317)-B(340)-0.1*B(474)-0.825*B(484)-0.8*B(490)-B(500)-0.5*B(519) ! JVS(1460) = Jac_FULL(136,137) JVS(1460) = 0.27*B(596) ! JVS(1461) = Jac_FULL(137,71) JVS(1461) = 0.64*B(294) ! JVS(1462) = Jac_FULL(137,97) JVS(1462) = 0.25*B(195) ! JVS(1463) = Jac_FULL(137,106) JVS(1463) = 0.07*B(103) ! JVS(1464) = Jac_FULL(137,108) JVS(1464) = 0.04*B(101) ! JVS(1465) = Jac_FULL(137,116) JVS(1465) = B(152) ! JVS(1466) = Jac_FULL(137,117) JVS(1466) = 0 ! JVS(1467) = Jac_FULL(137,121) JVS(1467) = 0 ! JVS(1468) = Jac_FULL(137,122) JVS(1468) = 0 ! JVS(1469) = Jac_FULL(137,123) JVS(1469) = 0 ! JVS(1470) = Jac_FULL(137,125) JVS(1470) = 0 ! JVS(1471) = Jac_FULL(137,126) JVS(1471) = B(97) ! JVS(1472) = Jac_FULL(137,128) JVS(1472) = 0 ! JVS(1473) = Jac_FULL(137,129) JVS(1473) = 0 ! JVS(1474) = Jac_FULL(137,130) JVS(1474) = 0 ! JVS(1475) = Jac_FULL(137,131) JVS(1475) = 0 ! JVS(1476) = Jac_FULL(137,132) JVS(1476) = -B(124)+0.64*B(295) ! JVS(1477) = Jac_FULL(137,133) JVS(1477) = 0.25*B(196) ! JVS(1478) = Jac_FULL(137,134) JVS(1478) = B(98)+0.04*B(102)+0.07*B(104) ! JVS(1479) = Jac_FULL(137,135) JVS(1479) = 0 ! JVS(1480) = Jac_FULL(137,136) JVS(1480) = B(153) ! JVS(1481) = Jac_FULL(137,137) JVS(1481) = -B(125)-B(442)-B(596) END SUBROUTINE Jac_SP ! End of Jac_SP function ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! Jac_SP_Vec - function for sparse multiplication: sparse Jacobian times vector ! Arguments : ! JVS - sparse Jacobian of variables ! UV - User vector for variables ! JUV - Jacobian times user vector ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE Jac_SP_Vec ( JVS, UV, JUV ) ! JVS - sparse Jacobian of variables REAL(kind=dp) :: JVS(LU_NONZERO) ! UV - User vector for variables REAL(kind=dp) :: UV(NVAR) ! JUV - Jacobian times user vector REAL(kind=dp) :: JUV(NVAR) JUV(1) = JVS(1)*UV(1)+JVS(2)*UV(114) JUV(2) = JVS(3)*UV(2)+JVS(4)*UV(46) JUV(3) = JVS(5)*UV(3)+JVS(6)*UV(99) JUV(4) = JVS(7)*UV(4)+JVS(8)*UV(55) JUV(5) = JVS(9)*UV(5)+JVS(10)*UV(128) JUV(6) = JVS(11)*UV(6)+JVS(12)*UV(135) JUV(7) = JVS(13)*UV(7)+JVS(14)*UV(49) JUV(8) = JVS(15)*UV(8)+JVS(16)*UV(79) JUV(9) = JVS(17)*UV(9)+JVS(18)*UV(50) JUV(10) = JVS(19)*UV(10)+JVS(20)*UV(45) JUV(11) = JVS(21)*UV(11)+JVS(22)*UV(137) JUV(12) = JVS(23)*UV(12)+JVS(24)*UV(48)+JVS(25)*UV(132) JUV(13) = JVS(26)*UV(13)+JVS(27)*UV(60)+JVS(28)*UV(132) JUV(14) = JVS(29)*UV(14)+JVS(30)*UV(81)+JVS(31)*UV(132) JUV(15) = JVS(32)*UV(15)+JVS(33)*UV(17)+JVS(34)*UV(136) JUV(16) = JVS(35)*UV(16)+JVS(36)*UV(17)+JVS(37)*UV(134) JUV(17) = JVS(38)*UV(17)+JVS(39)*UV(18)+JVS(40)*UV(132)+JVS(41)*UV(134)+JVS(42)*UV(136) JUV(18) = JVS(43)*UV(18)+JVS(44)*UV(132) JUV(19) = JVS(45)*UV(19)+JVS(46)*UV(21)+JVS(47)*UV(136) JUV(20) = JVS(48)*UV(20)+JVS(49)*UV(21)+JVS(50)*UV(134) JUV(21) = JVS(51)*UV(21)+JVS(52)*UV(22)+JVS(53)*UV(132)+JVS(54)*UV(134)+JVS(55)*UV(136) JUV(22) = JVS(56)*UV(22)+JVS(57)*UV(132) JUV(23) = JVS(58)*UV(23)+JVS(59)*UV(25)+JVS(60)*UV(136) JUV(24) = JVS(61)*UV(24)+JVS(62)*UV(25)+JVS(63)*UV(134) JUV(25) = JVS(64)*UV(25)+JVS(65)*UV(26)+JVS(66)*UV(132)+JVS(67)*UV(134)+JVS(68)*UV(136) JUV(26) = JVS(69)*UV(26)+JVS(70)*UV(132) JUV(27) = JVS(71)*UV(27)+JVS(72)*UV(29)+JVS(73)*UV(136) JUV(28) = JVS(74)*UV(28)+JVS(75)*UV(29)+JVS(76)*UV(134) JUV(29) = JVS(77)*UV(29)+JVS(78)*UV(30)+JVS(79)*UV(132)+JVS(80)*UV(134)+JVS(81)*UV(136) JUV(30) = JVS(82)*UV(30)+JVS(83)*UV(132) JUV(31) = JVS(84)*UV(31)+JVS(85)*UV(93)+JVS(86)*UV(132) JUV(32) = JVS(87)*UV(32)+JVS(88)*UV(125) JUV(33) = JVS(89)*UV(33)+JVS(90)*UV(82) JUV(34) = JVS(91)*UV(34)+JVS(92)*UV(74) JUV(35) = JVS(93)*UV(35)+JVS(94)*UV(47) JUV(36) = JVS(95)*UV(36)+JVS(96)*UV(104) JUV(37) = JVS(97)*UV(37)+JVS(98)*UV(93) JUV(38) = JVS(99)*UV(38)+JVS(100)*UV(96) JUV(39) = JVS(101)*UV(39)+JVS(102)*UV(72) JUV(40) = JVS(103)*UV(40)+JVS(104)*UV(89) JUV(41) = JVS(105)*UV(41)+JVS(106)*UV(65) JUV(42) = JVS(107)*UV(42)+JVS(108)*UV(65)+JVS(109)*UV(68)+JVS(110)*UV(70)+JVS(111)*UV(72)+JVS(112)*UV(75)+JVS(113)& &*UV(78)+JVS(114)*UV(81)+JVS(115)*UV(84)+JVS(116)*UV(87)+JVS(117)*UV(89)+JVS(118)*UV(91)+JVS(119)*UV(92)& &+JVS(120)*UV(95)+JVS(121)*UV(97)+JVS(122)*UV(100)+JVS(123)*UV(102)+JVS(124)*UV(119)+JVS(125)*UV(121)+JVS(126)& &*UV(122)+JVS(127)*UV(123)+JVS(128)*UV(130)+JVS(129)*UV(132)+JVS(130)*UV(133)+JVS(131)*UV(134)+JVS(132)& &*UV(135)+JVS(133)*UV(136) JUV(43) = JVS(134)*UV(43)+JVS(135)*UV(45)+JVS(136)*UV(46)+JVS(137)*UV(47)+JVS(138)*UV(49)+JVS(139)*UV(50)+JVS(140)& &*UV(55)+JVS(141)*UV(65)+JVS(142)*UV(72)+JVS(143)*UV(74)+JVS(144)*UV(79)+JVS(145)*UV(82)+JVS(146)*UV(89)& &+JVS(147)*UV(93)+JVS(148)*UV(96)+JVS(149)*UV(99)+JVS(150)*UV(104)+JVS(151)*UV(114)+JVS(152)*UV(125)+JVS(153)& &*UV(128)+JVS(154)*UV(135)+JVS(155)*UV(137) JUV(44) = JVS(156)*UV(44)+JVS(157)*UV(132) JUV(45) = JVS(158)*UV(45)+JVS(159)*UV(113)+JVS(160)*UV(128) JUV(46) = JVS(161)*UV(46)+JVS(162)*UV(132)+JVS(163)*UV(136) JUV(47) = JVS(164)*UV(47)+JVS(165)*UV(74)+JVS(166)*UV(132) JUV(48) = JVS(167)*UV(48)+JVS(168)*UV(60)+JVS(169)*UV(129)+JVS(170)*UV(132) JUV(49) = JVS(171)*UV(49)+JVS(172)*UV(128)+JVS(173)*UV(130) JUV(50) = JVS(174)*UV(50)+JVS(175)*UV(92)+JVS(176)*UV(95)+JVS(177)*UV(128)+JVS(178)*UV(134) JUV(51) = JVS(179)*UV(51)+JVS(180)*UV(129)+JVS(181)*UV(132) JUV(52) = JVS(182)*UV(52)+JVS(183)*UV(129)+JVS(184)*UV(132) JUV(53) = JVS(185)*UV(53)+JVS(186)*UV(128)+JVS(187)*UV(132)+JVS(188)*UV(134) JUV(54) = JVS(189)*UV(54)+JVS(190)*UV(130)+JVS(191)*UV(132)+JVS(192)*UV(136) JUV(55) = JVS(193)*UV(55)+JVS(194)*UV(128)+JVS(195)*UV(129) JUV(56) = JVS(196)*UV(56)+JVS(197)*UV(94)+JVS(198)*UV(132)+JVS(199)*UV(136) JUV(57) = JVS(200)*UV(57)+JVS(201)*UV(98)+JVS(202)*UV(132)+JVS(203)*UV(136) JUV(58) = JVS(204)*UV(58)+JVS(205)*UV(113)+JVS(206)*UV(132)+JVS(207)*UV(136) JUV(59) = JVS(208)*UV(59)+JVS(209)*UV(128)+JVS(210)*UV(132)+JVS(211)*UV(136) JUV(60) = JVS(212)*UV(60)+JVS(213)*UV(129)+JVS(214)*UV(132) JUV(61) = JVS(215)*UV(61)+JVS(216)*UV(112)+JVS(217)*UV(132)+JVS(218)*UV(136) JUV(62) = JVS(219)*UV(62)+JVS(220)*UV(132)+JVS(221)*UV(133)+JVS(222)*UV(136) JUV(63) = JVS(223)*UV(63)+JVS(224)*UV(108)+JVS(225)*UV(132)+JVS(226)*UV(136) JUV(64) = JVS(227)*UV(64)+JVS(228)*UV(122)+JVS(229)*UV(132)+JVS(230)*UV(136) JUV(65) = JVS(231)*UV(65)+JVS(232)*UV(75)+JVS(233)*UV(95)+JVS(234)*UV(128)+JVS(235)*UV(134) JUV(66) = JVS(236)*UV(66)+JVS(237)*UV(87)+JVS(238)*UV(126)+JVS(239)*UV(132)+JVS(240)*UV(136) JUV(67) = JVS(241)*UV(67)+JVS(242)*UV(110)+JVS(243)*UV(132)+JVS(244)*UV(136) JUV(68) = JVS(245)*UV(68)+JVS(246)*UV(103)+JVS(247)*UV(125)+JVS(248)*UV(132)+JVS(249)*UV(134)+JVS(250)*UV(135)& &+JVS(251)*UV(136) JUV(69) = JVS(252)*UV(69)+JVS(253)*UV(109)+JVS(254)*UV(132)+JVS(255)*UV(136) JUV(70) = JVS(256)*UV(70)+JVS(257)*UV(105)+JVS(258)*UV(132)+JVS(259)*UV(136) JUV(71) = JVS(260)*UV(71)+JVS(261)*UV(117)+JVS(262)*UV(132)+JVS(263)*UV(136) JUV(72) = JVS(264)*UV(72)+JVS(265)*UV(84)+JVS(266)*UV(92)+JVS(267)*UV(93)+JVS(268)*UV(100)+JVS(269)*UV(103)+JVS(270)& &*UV(119)+JVS(271)*UV(124)+JVS(272)*UV(132)+JVS(273)*UV(134)+JVS(274)*UV(135)+JVS(275)*UV(136) JUV(73) = JVS(276)*UV(73)+JVS(277)*UV(101)+JVS(278)*UV(132)+JVS(279)*UV(136) JUV(74) = JVS(280)*UV(74)+JVS(281)*UV(123)+JVS(282)*UV(132)+JVS(283)*UV(136) JUV(75) = JVS(284)*UV(65)+JVS(285)*UV(75)+JVS(287)*UV(128)+JVS(288)*UV(134)+JVS(289)*UV(136) JUV(76) = JVS(290)*UV(76)+JVS(291)*UV(111)+JVS(292)*UV(132)+JVS(293)*UV(136) JUV(77) = JVS(294)*UV(76)+JVS(295)*UV(77)+JVS(296)*UV(111)+JVS(297)*UV(130)+JVS(298)*UV(132)+JVS(299)*UV(134) JUV(78) = JVS(301)*UV(78)+JVS(302)*UV(111)+JVS(303)*UV(130)+JVS(304)*UV(132)+JVS(305)*UV(134)+JVS(306)*UV(135) JUV(79) = JVS(307)*UV(79)+JVS(308)*UV(122)+JVS(309)*UV(128)+JVS(310)*UV(132)+JVS(311)*UV(135) JUV(80) = JVS(312)*UV(80)+JVS(313)*UV(103)+JVS(314)*UV(107)+JVS(315)*UV(132)+JVS(316)*UV(136) JUV(81) = JVS(317)*UV(81)+JVS(318)*UV(129)+JVS(319)*UV(132)+JVS(320)*UV(135) JUV(82) = JVS(321)*UV(82)+JVS(322)*UV(123)+JVS(323)*UV(132)+JVS(324)*UV(134)+JVS(325)*UV(135) JUV(83) = JVS(326)*UV(83)+JVS(327)*UV(123)+JVS(328)*UV(130)+JVS(329)*UV(134)+JVS(330)*UV(136) JUV(84) = JVS(331)*UV(47)+JVS(333)*UV(84)+JVS(335)*UV(132)+JVS(336)*UV(134)+JVS(337)*UV(136) JUV(85) = JVS(338)*UV(57)+JVS(339)*UV(85)+JVS(340)*UV(98)+JVS(341)*UV(126)+JVS(342)*UV(130)+JVS(343)*UV(132)+JVS(344)& &*UV(133)+JVS(345)*UV(134)+JVS(347)*UV(137) JUV(86) = JVS(348)*UV(81)+JVS(349)*UV(86)+JVS(350)*UV(120)+JVS(351)*UV(129)+JVS(352)*UV(132)+JVS(353)*UV(135) JUV(87) = JVS(354)*UV(78)+JVS(355)*UV(87)+JVS(358)*UV(132)+JVS(359)*UV(134)+JVS(361)*UV(136) JUV(88) = JVS(362)*UV(88)+JVS(363)*UV(94)+JVS(364)*UV(98)+JVS(365)*UV(101)+JVS(366)*UV(102)+JVS(367)*UV(105)+JVS(368)& &*UV(106)+JVS(369)*UV(109)+JVS(370)*UV(110)+JVS(371)*UV(111)+JVS(372)*UV(116)+JVS(373)*UV(117)+JVS(374)& &*UV(123)+JVS(375)*UV(126)+JVS(376)*UV(132)+JVS(377)*UV(133) JUV(89) = JVS(378)*UV(89)+JVS(379)*UV(92)+JVS(380)*UV(94)+JVS(381)*UV(97)+JVS(382)*UV(98)+JVS(383)*UV(101)+JVS(384)& &*UV(102)+JVS(385)*UV(105)+JVS(386)*UV(106)+JVS(387)*UV(108)+JVS(388)*UV(109)+JVS(389)*UV(110)+JVS(390)& &*UV(111)+JVS(391)*UV(112)+JVS(392)*UV(116)+JVS(393)*UV(117)+JVS(394)*UV(119)+JVS(395)*UV(123)+JVS(396)& &*UV(126)+JVS(397)*UV(130)+JVS(398)*UV(132)+JVS(399)*UV(133)+JVS(400)*UV(134)+JVS(401)*UV(136) JUV(90) = JVS(402)*UV(83)+JVS(403)*UV(84)+JVS(404)*UV(90)+JVS(405)*UV(100)+JVS(406)*UV(111)+JVS(408)*UV(129)+JVS(409)& &*UV(130)+JVS(410)*UV(132)+JVS(411)*UV(134)+JVS(412)*UV(136) JUV(91) = JVS(413)*UV(70)+JVS(414)*UV(76)+JVS(415)*UV(77)+JVS(416)*UV(81)+JVS(417)*UV(84)+JVS(418)*UV(85)+JVS(419)& &*UV(86)+JVS(420)*UV(90)+JVS(421)*UV(91)+JVS(422)*UV(96)+JVS(423)*UV(97)+JVS(425)*UV(100)+JVS(426)*UV(104)& &+JVS(427)*UV(105)+JVS(428)*UV(111)+JVS(429)*UV(114)+JVS(430)*UV(115)+JVS(431)*UV(118)+JVS(432)*UV(119)& &+JVS(433)*UV(120)+JVS(434)*UV(121)+JVS(435)*UV(122)+JVS(437)*UV(124)+JVS(439)*UV(127)+JVS(440)*UV(129)& &+JVS(441)*UV(130)+JVS(442)*UV(132)+JVS(443)*UV(133)+JVS(444)*UV(134)+JVS(445)*UV(135)+JVS(446)*UV(136) JUV(92) = JVS(448)*UV(50)+JVS(449)*UV(92)+JVS(451)*UV(104)+JVS(452)*UV(128)+JVS(453)*UV(132)+JVS(454)*UV(134)+JVS(455)& &*UV(136) JUV(93) = JVS(456)*UV(82)+JVS(457)*UV(93)+JVS(458)*UV(101)+JVS(459)*UV(107)+JVS(461)*UV(132)+JVS(462)*UV(134)+JVS(463)& &*UV(135)+JVS(464)*UV(136) JUV(94) = JVS(465)*UV(44)+JVS(466)*UV(56)+JVS(467)*UV(94)+JVS(468)*UV(126)+JVS(469)*UV(130)+JVS(470)*UV(132)+JVS(471)& &*UV(133)+JVS(472)*UV(134)+JVS(473)*UV(136)+JVS(474)*UV(137) JUV(95) = JVS(475)*UV(79)+JVS(476)*UV(95)+JVS(479)*UV(132)+JVS(480)*UV(134)+JVS(482)*UV(136) JUV(96) = JVS(483)*UV(67)+JVS(484)*UV(96)+JVS(485)*UV(97)+JVS(486)*UV(103)+JVS(488)*UV(125)+JVS(489)*UV(130)+JVS(490)& &*UV(132)+JVS(491)*UV(133)+JVS(492)*UV(134)+JVS(493)*UV(135)+JVS(494)*UV(136) JUV(97) = JVS(495)*UV(97)+JVS(496)*UV(121)+JVS(497)*UV(129)+JVS(498)*UV(130)+JVS(499)*UV(133)+JVS(500)*UV(134)& &+JVS(501)*UV(136) JUV(98) = JVS(502)*UV(44)+JVS(503)*UV(57)+JVS(504)*UV(98)+JVS(505)*UV(126)+JVS(506)*UV(130)+JVS(507)*UV(132)+JVS(508)& &*UV(133)+JVS(509)*UV(134)+JVS(510)*UV(136)+JVS(511)*UV(137) JUV(99) = JVS(512)*UV(51)+JVS(513)*UV(52)+JVS(514)*UV(55)+JVS(515)*UV(60)+JVS(516)*UV(83)+JVS(517)*UV(87)+JVS(518)& &*UV(90)+JVS(519)*UV(99)+JVS(521)*UV(102)+JVS(522)*UV(103)+JVS(523)*UV(107)+JVS(524)*UV(111)+JVS(525)*UV(114)& &+JVS(526)*UV(115)+JVS(527)*UV(117)+JVS(528)*UV(118)+JVS(529)*UV(121)+JVS(531)*UV(127)+JVS(532)*UV(128)& &+JVS(533)*UV(129)+JVS(534)*UV(130)+JVS(535)*UV(131)+JVS(536)*UV(132)+JVS(537)*UV(133)+JVS(538)*UV(134) JUV(100) = JVS(541)*UV(73)+JVS(542)*UV(76)+JVS(543)*UV(83)+JVS(544)*UV(84)+JVS(545)*UV(93)+JVS(546)*UV(100)+JVS(547)& &*UV(101)+JVS(548)*UV(103)+JVS(549)*UV(107)+JVS(550)*UV(111)+JVS(552)*UV(124)+JVS(553)*UV(125)+JVS(554)& &*UV(130)+JVS(555)*UV(132)+JVS(556)*UV(133)+JVS(557)*UV(134)+JVS(558)*UV(135)+JVS(559)*UV(136) JUV(101) = JVS(560)*UV(73)+JVS(561)*UV(101)+JVS(562)*UV(120)+JVS(563)*UV(130)+JVS(564)*UV(132)+JVS(565)*UV(133)& &+JVS(566)*UV(134)+JVS(567)*UV(136) JUV(102) = JVS(568)*UV(64)+JVS(569)*UV(102)+JVS(571)*UV(130)+JVS(572)*UV(132)+JVS(573)*UV(133)+JVS(574)*UV(134)& &+JVS(575)*UV(136) JUV(103) = JVS(576)*UV(80)+JVS(577)*UV(103)+JVS(579)*UV(125)+JVS(580)*UV(132)+JVS(581)*UV(134)+JVS(582)*UV(136) JUV(104) = JVS(583)*UV(82)+JVS(584)*UV(103)+JVS(585)*UV(104)+JVS(586)*UV(105)+JVS(587)*UV(107)+JVS(590)*UV(132)& &+JVS(591)*UV(134)+JVS(592)*UV(135)+JVS(593)*UV(136) JUV(105) = JVS(594)*UV(70)+JVS(595)*UV(105)+JVS(596)*UV(121)+JVS(597)*UV(130)+JVS(598)*UV(132)+JVS(599)*UV(133)& &+JVS(600)*UV(134)+JVS(601)*UV(136) JUV(106) = JVS(602)*UV(106)+JVS(603)*UV(129)+JVS(604)*UV(130)+JVS(605)*UV(131)+JVS(606)*UV(132)+JVS(607)*UV(133)& &+JVS(608)*UV(134)+JVS(609)*UV(136) JUV(107) = JVS(610)*UV(80)+JVS(611)*UV(82)+JVS(613)*UV(107)+JVS(616)*UV(132)+JVS(617)*UV(134)+JVS(619)*UV(136) JUV(108) = JVS(620)*UV(63)+JVS(621)*UV(85)+JVS(623)*UV(108)+JVS(624)*UV(122)+JVS(626)*UV(130)+JVS(627)*UV(132)& &+JVS(628)*UV(133)+JVS(629)*UV(134)+JVS(630)*UV(136) JUV(109) = JVS(632)*UV(69)+JVS(633)*UV(86)+JVS(634)*UV(109)+JVS(637)*UV(130)+JVS(638)*UV(132)+JVS(639)*UV(133)& &+JVS(640)*UV(134)+JVS(642)*UV(136) JUV(110) = JVS(643)*UV(67)+JVS(644)*UV(86)+JVS(645)*UV(110)+JVS(647)*UV(129)+JVS(648)*UV(130)+JVS(649)*UV(132)& &+JVS(650)*UV(133)+JVS(651)*UV(134)+JVS(653)*UV(136) JUV(111) = JVS(654)*UV(76)+JVS(655)*UV(111)+JVS(656)*UV(124)+JVS(657)*UV(130)+JVS(658)*UV(132)+JVS(659)*UV(133)& &+JVS(660)*UV(134)+JVS(661)*UV(136) JUV(112) = JVS(662)*UV(52)+JVS(663)*UV(61)+JVS(664)*UV(112)+JVS(665)*UV(113)+JVS(666)*UV(126)+JVS(667)*UV(127)& &+JVS(668)*UV(129)+JVS(669)*UV(130)+JVS(670)*UV(131)+JVS(671)*UV(132)+JVS(672)*UV(133)+JVS(673)*UV(134)& &+JVS(674)*UV(136)+JVS(675)*UV(137) JUV(113) = JVS(676)*UV(45)+JVS(677)*UV(58)+JVS(678)*UV(113)+JVS(679)*UV(127)+JVS(680)*UV(128)+JVS(681)*UV(129)& &+JVS(682)*UV(130)+JVS(683)*UV(131)+JVS(684)*UV(132)+JVS(685)*UV(133)+JVS(686)*UV(134)+JVS(687)*UV(136) JUV(114) = JVS(688)*UV(60)+JVS(689)*UV(62)+JVS(690)*UV(63)+JVS(691)*UV(64)+JVS(692)*UV(68)+JVS(693)*UV(69)+JVS(694)& &*UV(70)+JVS(695)*UV(73)+JVS(696)*UV(74)+JVS(697)*UV(79)+JVS(698)*UV(81)+JVS(699)*UV(82)+JVS(700)*UV(84)& &+JVS(701)*UV(86)+JVS(702)*UV(90)+JVS(703)*UV(92)+JVS(704)*UV(93)+JVS(705)*UV(94)+JVS(706)*UV(95)+JVS(707)& &*UV(96)+JVS(708)*UV(97)+JVS(709)*UV(98)+JVS(710)*UV(100)+JVS(711)*UV(101)+JVS(712)*UV(102)+JVS(713)*UV(103)& &+JVS(714)*UV(104)+JVS(715)*UV(105)+JVS(716)*UV(106)+JVS(717)*UV(107)+JVS(718)*UV(108)+JVS(719)*UV(109)& &+JVS(720)*UV(110)+JVS(721)*UV(111)+JVS(722)*UV(112)+JVS(723)*UV(113)+JVS(724)*UV(114)+JVS(725)*UV(115)& &+JVS(726)*UV(116)+JVS(727)*UV(117)+JVS(728)*UV(119)+JVS(729)*UV(120)+JVS(730)*UV(121)+JVS(731)*UV(122)& &+JVS(732)*UV(123)+JVS(733)*UV(124)+JVS(735)*UV(126)+JVS(738)*UV(129)+JVS(739)*UV(130)+JVS(741)*UV(132)& &+JVS(742)*UV(133)+JVS(743)*UV(134)+JVS(744)*UV(135)+JVS(745)*UV(136) JUV(115) = JVS(747)*UV(58)+JVS(748)*UV(61)+JVS(749)*UV(69)+JVS(750)*UV(86)+JVS(751)*UV(106)+JVS(752)*UV(109)+JVS(753)& &*UV(110)+JVS(754)*UV(112)+JVS(756)*UV(115)+JVS(757)*UV(116)+JVS(758)*UV(118)+JVS(759)*UV(120)+JVS(760)& &*UV(126)+JVS(763)*UV(129)+JVS(764)*UV(130)+JVS(766)*UV(132)+JVS(767)*UV(133)+JVS(768)*UV(134)+JVS(769)& &*UV(135)+JVS(770)*UV(136)+JVS(771)*UV(137) JUV(116) = JVS(772)*UV(80)+JVS(775)*UV(116)+JVS(778)*UV(130)+JVS(779)*UV(132)+JVS(780)*UV(133)+JVS(781)*UV(134)& &+JVS(783)*UV(136)+JVS(784)*UV(137) JUV(117) = JVS(785)*UV(71)+JVS(786)*UV(81)+JVS(787)*UV(117)+JVS(788)*UV(129)+JVS(789)*UV(130)+JVS(790)*UV(132)& &+JVS(791)*UV(133)+JVS(792)*UV(134)+JVS(794)*UV(136) JUV(118) = JVS(795)*UV(63)+JVS(796)*UV(73)+JVS(797)*UV(76)+JVS(798)*UV(83)+JVS(799)*UV(84)+JVS(800)*UV(92)+JVS(801)& &*UV(93)+JVS(803)*UV(96)+JVS(804)*UV(97)+JVS(805)*UV(101)+JVS(807)*UV(104)+JVS(808)*UV(105)+JVS(810)*UV(108)& &+JVS(812)*UV(111)+JVS(813)*UV(118)+JVS(814)*UV(119)+JVS(815)*UV(120)+JVS(816)*UV(121)+JVS(819)*UV(124)& &+JVS(823)*UV(129)+JVS(824)*UV(130)+JVS(825)*UV(132)+JVS(826)*UV(133)+JVS(827)*UV(134)+JVS(828)*UV(135)& &+JVS(829)*UV(136) JUV(119) = JVS(831)*UV(69)+JVS(832)*UV(70)+JVS(833)*UV(76)+JVS(834)*UV(77)+JVS(835)*UV(83)+JVS(836)*UV(84)+JVS(837)& &*UV(92)+JVS(838)*UV(95)+JVS(839)*UV(102)+JVS(840)*UV(103)+JVS(841)*UV(104)+JVS(842)*UV(105)+JVS(843)*UV(107)& &+JVS(844)*UV(108)+JVS(845)*UV(109)+JVS(846)*UV(111)+JVS(847)*UV(119)+JVS(850)*UV(122)+JVS(852)*UV(124)& &+JVS(853)*UV(125)+JVS(857)*UV(130)+JVS(858)*UV(132)+JVS(859)*UV(133)+JVS(860)*UV(134)+JVS(861)*UV(135)& &+JVS(862)*UV(136) JUV(120) = JVS(864)*UV(74)+JVS(865)*UV(81)+JVS(866)*UV(117)+JVS(867)*UV(120)+JVS(868)*UV(123)+JVS(870)*UV(130)& &+JVS(871)*UV(132)+JVS(872)*UV(133)+JVS(873)*UV(134)+JVS(874)*UV(135)+JVS(875)*UV(136) JUV(121) = JVS(876)*UV(74)+JVS(877)*UV(81)+JVS(878)*UV(117)+JVS(879)*UV(121)+JVS(880)*UV(123)+JVS(881)*UV(129)& &+JVS(882)*UV(130)+JVS(883)*UV(132)+JVS(884)*UV(133)+JVS(885)*UV(134)+JVS(886)*UV(135)+JVS(887)*UV(136) JUV(122) = JVS(888)*UV(64)+JVS(889)*UV(79)+JVS(890)*UV(120)+JVS(891)*UV(121)+JVS(892)*UV(122)+JVS(894)*UV(128)& &+JVS(895)*UV(129)+JVS(896)*UV(130)+JVS(897)*UV(132)+JVS(898)*UV(133)+JVS(899)*UV(134)+JVS(901)*UV(136) JUV(123) = JVS(902)*UV(74)+JVS(903)*UV(81)+JVS(904)*UV(123)+JVS(906)*UV(130)+JVS(907)*UV(132)+JVS(908)*UV(133)& &+JVS(909)*UV(134)+JVS(911)*UV(136) JUV(124) = JVS(912)*UV(74)+JVS(913)*UV(82)+JVS(914)*UV(117)+JVS(915)*UV(123)+JVS(916)*UV(124)+JVS(917)*UV(125)& &+JVS(918)*UV(129)+JVS(919)*UV(130)+JVS(920)*UV(132)+JVS(921)*UV(133)+JVS(922)*UV(134)+JVS(923)*UV(135) JUV(125) = JVS(925)*UV(117)+JVS(926)*UV(123)+JVS(927)*UV(125)+JVS(928)*UV(129)+JVS(930)*UV(132)+JVS(932)*UV(134)& &+JVS(933)*UV(135)+JVS(934)*UV(136) JUV(126) = JVS(935)*UV(51)+JVS(936)*UV(66)+JVS(939)*UV(116)+JVS(943)*UV(126)+JVS(944)*UV(129)+JVS(945)*UV(130)& &+JVS(946)*UV(132)+JVS(947)*UV(133)+JVS(948)*UV(134)+JVS(950)*UV(136) JUV(127) = JVS(952)*UV(56)+JVS(953)*UV(66)+JVS(954)*UV(67)+JVS(955)*UV(71)+JVS(956)*UV(80)+JVS(957)*UV(87)+JVS(958)& &*UV(88)+JVS(959)*UV(94)+JVS(960)*UV(97)+JVS(962)*UV(101)+JVS(968)*UV(109)+JVS(969)*UV(110)+JVS(970)*UV(111)& &+JVS(971)*UV(116)+JVS(972)*UV(117)+JVS(979)*UV(126)+JVS(980)*UV(127)+JVS(982)*UV(129)+JVS(983)*UV(130)& &+JVS(985)*UV(132)+JVS(986)*UV(133)+JVS(987)*UV(134)+JVS(989)*UV(136)+JVS(990)*UV(137) JUV(128) = JVS(991)*UV(45)+JVS(992)*UV(49)+JVS(993)*UV(50)+JVS(994)*UV(53)+JVS(995)*UV(55)+JVS(996)*UV(59)+JVS(997)& &*UV(65)+JVS(998)*UV(67)+JVS(999)*UV(68)+JVS(1000)*UV(71)+JVS(1001)*UV(75)+JVS(1002)*UV(79)+JVS(1003)*UV(80)& &+JVS(1004)*UV(82)+JVS(1005)*UV(83)+JVS(1006)*UV(84)+JVS(1007)*UV(87)+JVS(1008)*UV(92)+JVS(1009)*UV(93)& &+JVS(1010)*UV(94)+JVS(1011)*UV(95)+JVS(1012)*UV(96)+JVS(1013)*UV(97)+JVS(1014)*UV(98)+JVS(1015)*UV(99)& &+JVS(1017)*UV(101)+JVS(1018)*UV(102)+JVS(1019)*UV(103)+JVS(1020)*UV(104)+JVS(1021)*UV(105)+JVS(1022)*UV(106)& &+JVS(1023)*UV(107)+JVS(1024)*UV(108)+JVS(1025)*UV(109)+JVS(1026)*UV(110)+JVS(1027)*UV(111)+JVS(1028)*UV(112)& &+JVS(1029)*UV(113)+JVS(1032)*UV(116)+JVS(1033)*UV(117)+JVS(1038)*UV(122)+JVS(1039)*UV(123)+JVS(1041)*UV(125)& &+JVS(1042)*UV(126)+JVS(1044)*UV(128)+JVS(1045)*UV(129)+JVS(1046)*UV(130)+JVS(1048)*UV(132)+JVS(1049)*UV(133)& &+JVS(1050)*UV(134)+JVS(1051)*UV(135)+JVS(1052)*UV(136)+JVS(1053)*UV(137) JUV(129) = JVS(1054)*UV(49)+JVS(1055)*UV(51)+JVS(1056)*UV(52)+JVS(1057)*UV(55)+JVS(1058)*UV(59)+JVS(1059)*UV(60)& &+JVS(1060)*UV(65)+JVS(1062)*UV(81)+JVS(1063)*UV(86)+JVS(1064)*UV(90)+JVS(1065)*UV(92)+JVS(1066)*UV(93)& &+JVS(1067)*UV(95)+JVS(1068)*UV(99)+JVS(1072)*UV(103)+JVS(1077)*UV(114)+JVS(1078)*UV(115)+JVS(1080)*UV(117)& &+JVS(1081)*UV(118)+JVS(1084)*UV(121)+JVS(1090)*UV(127)+JVS(1091)*UV(128)+JVS(1092)*UV(129)+JVS(1094)*UV(131)& &+JVS(1095)*UV(132)+JVS(1097)*UV(134)+JVS(1098)*UV(135)+JVS(1099)*UV(136) JUV(130) = JVS(1101)*UV(49)+JVS(1102)*UV(54)+JVS(1103)*UV(63)+JVS(1104)*UV(64)+JVS(1105)*UV(65)+JVS(1106)*UV(73)& &+JVS(1107)*UV(75)+JVS(1108)*UV(85)+JVS(1109)*UV(93)+JVS(1110)*UV(94)+JVS(1112)*UV(97)+JVS(1113)*UV(98)& &+JVS(1114)*UV(101)+JVS(1115)*UV(102)+JVS(1116)*UV(105)+JVS(1117)*UV(106)+JVS(1119)*UV(108)+JVS(1120)*UV(109)& &+JVS(1121)*UV(110)+JVS(1122)*UV(111)+JVS(1123)*UV(112)+JVS(1124)*UV(113)+JVS(1125)*UV(115)+JVS(1126)*UV(116)& &+JVS(1127)*UV(117)+JVS(1128)*UV(118)+JVS(1129)*UV(119)+JVS(1130)*UV(120)+JVS(1131)*UV(121)+JVS(1132)*UV(122)& &+JVS(1133)*UV(123)+JVS(1136)*UV(126)+JVS(1138)*UV(128)+JVS(1139)*UV(129)+JVS(1140)*UV(130)+JVS(1141)*UV(131)& &+JVS(1142)*UV(132)+JVS(1143)*UV(133)+JVS(1144)*UV(134)+JVS(1146)*UV(136) JUV(131) = JVS(1148)*UV(71)+JVS(1149)*UV(73)+JVS(1150)*UV(77)+JVS(1151)*UV(78)+JVS(1152)*UV(101)+JVS(1153)*UV(102)& &+JVS(1154)*UV(103)+JVS(1155)*UV(105)+JVS(1156)*UV(106)+JVS(1158)*UV(111)+JVS(1163)*UV(123)+JVS(1166)*UV(126)& &+JVS(1168)*UV(129)+JVS(1169)*UV(130)+JVS(1170)*UV(131)+JVS(1171)*UV(132)+JVS(1172)*UV(133)+JVS(1173)*UV(134)& &+JVS(1174)*UV(135)+JVS(1175)*UV(136)+JVS(1176)*UV(137) JUV(132) = JVS(1177)*UV(44)+JVS(1178)*UV(46)+JVS(1179)*UV(47)+JVS(1180)*UV(48)+JVS(1181)*UV(51)+JVS(1182)*UV(52)& &+JVS(1183)*UV(53)+JVS(1184)*UV(54)+JVS(1185)*UV(56)+JVS(1186)*UV(57)+JVS(1187)*UV(58)+JVS(1188)*UV(59)& &+JVS(1189)*UV(60)+JVS(1190)*UV(61)+JVS(1191)*UV(62)+JVS(1192)*UV(63)+JVS(1193)*UV(64)+JVS(1194)*UV(66)& &+JVS(1195)*UV(67)+JVS(1196)*UV(68)+JVS(1197)*UV(69)+JVS(1198)*UV(70)+JVS(1199)*UV(71)+JVS(1200)*UV(72)& &+JVS(1201)*UV(73)+JVS(1202)*UV(74)+JVS(1203)*UV(75)+JVS(1204)*UV(76)+JVS(1205)*UV(77)+JVS(1206)*UV(78)& &+JVS(1207)*UV(79)+JVS(1208)*UV(80)+JVS(1209)*UV(81)+JVS(1210)*UV(82)+JVS(1211)*UV(83)+JVS(1212)*UV(84)& &+JVS(1213)*UV(85)+JVS(1214)*UV(86)+JVS(1215)*UV(87)+JVS(1216)*UV(88)+JVS(1217)*UV(89)+JVS(1218)*UV(90)& &+JVS(1219)*UV(91)+JVS(1220)*UV(92)+JVS(1221)*UV(93)+JVS(1224)*UV(96)+JVS(1225)*UV(97)+JVS(1227)*UV(99)& &+JVS(1228)*UV(100)+JVS(1229)*UV(101)+JVS(1230)*UV(102)+JVS(1231)*UV(103)+JVS(1232)*UV(104)+JVS(1233)*UV(105)& &+JVS(1234)*UV(106)+JVS(1235)*UV(107)+JVS(1236)*UV(108)+JVS(1239)*UV(111)+JVS(1241)*UV(113)+JVS(1242)*UV(114)& &+JVS(1243)*UV(115)+JVS(1245)*UV(117)+JVS(1246)*UV(118)+JVS(1247)*UV(119)+JVS(1248)*UV(120)+JVS(1249)*UV(121)& &+JVS(1250)*UV(122)+JVS(1251)*UV(123)+JVS(1252)*UV(124)+JVS(1253)*UV(125)+JVS(1255)*UV(127)+JVS(1256)*UV(128)& &+JVS(1257)*UV(129)+JVS(1258)*UV(130)+JVS(1259)*UV(131)+JVS(1260)*UV(132)+JVS(1261)*UV(133)+JVS(1262)*UV(134)& &+JVS(1263)*UV(135)+JVS(1264)*UV(136)+JVS(1265)*UV(137) JUV(133) = JVS(1266)*UV(49)+JVS(1267)*UV(54)+JVS(1268)*UV(60)+JVS(1269)*UV(62)+JVS(1270)*UV(85)+JVS(1271)*UV(86)& &+JVS(1272)*UV(89)+JVS(1274)*UV(94)+JVS(1276)*UV(96)+JVS(1277)*UV(97)+JVS(1278)*UV(98)+JVS(1279)*UV(101)& &+JVS(1280)*UV(102)+JVS(1283)*UV(105)+JVS(1284)*UV(106)+JVS(1286)*UV(108)+JVS(1287)*UV(109)+JVS(1288)*UV(110)& &+JVS(1289)*UV(111)+JVS(1290)*UV(112)+JVS(1291)*UV(113)+JVS(1292)*UV(115)+JVS(1293)*UV(116)+JVS(1294)*UV(117)& &+JVS(1296)*UV(119)+JVS(1297)*UV(120)+JVS(1299)*UV(122)+JVS(1300)*UV(123)+JVS(1303)*UV(126)+JVS(1306)*UV(129)& &+JVS(1307)*UV(130)+JVS(1308)*UV(131)+JVS(1309)*UV(132)+JVS(1310)*UV(133)+JVS(1311)*UV(134)+JVS(1312)*UV(135)& &+JVS(1313)*UV(136)+JVS(1314)*UV(137) JUV(134) = JVS(1315)*UV(53)+JVS(1316)*UV(55)+JVS(1317)*UV(75)+JVS(1318)*UV(83)+JVS(1319)*UV(84)+JVS(1320)*UV(87)& &+JVS(1321)*UV(92)+JVS(1322)*UV(94)+JVS(1323)*UV(95)+JVS(1324)*UV(97)+JVS(1325)*UV(98)+JVS(1326)*UV(101)& &+JVS(1327)*UV(102)+JVS(1328)*UV(103)+JVS(1330)*UV(105)+JVS(1331)*UV(106)+JVS(1332)*UV(107)+JVS(1333)*UV(108)& &+JVS(1334)*UV(109)+JVS(1335)*UV(110)+JVS(1336)*UV(111)+JVS(1337)*UV(112)+JVS(1338)*UV(113)+JVS(1339)*UV(116)& &+JVS(1340)*UV(117)+JVS(1343)*UV(122)+JVS(1344)*UV(123)+JVS(1347)*UV(126)+JVS(1349)*UV(128)+JVS(1350)*UV(129)& &+JVS(1351)*UV(130)+JVS(1353)*UV(132)+JVS(1354)*UV(133)+JVS(1355)*UV(134)+JVS(1356)*UV(135)+JVS(1357)*UV(136) JUV(135) = JVS(1359)*UV(55)+JVS(1360)*UV(78)+JVS(1361)*UV(79)+JVS(1362)*UV(81)+JVS(1363)*UV(82)+JVS(1364)*UV(86)& &+JVS(1366)*UV(113)+JVS(1367)*UV(120)+JVS(1368)*UV(121)+JVS(1369)*UV(122)+JVS(1371)*UV(124)+JVS(1372)*UV(125)& &+JVS(1374)*UV(128)+JVS(1375)*UV(129)+JVS(1376)*UV(130)+JVS(1378)*UV(132)+JVS(1379)*UV(133)+JVS(1380)*UV(134)& &+JVS(1381)*UV(135)+JVS(1382)*UV(136) JUV(136) = JVS(1384)*UV(46)+JVS(1385)*UV(48)+JVS(1386)*UV(56)+JVS(1387)*UV(57)+JVS(1388)*UV(58)+JVS(1389)*UV(59)& &+JVS(1391)*UV(61)+JVS(1392)*UV(62)+JVS(1393)*UV(66)+JVS(1394)*UV(67)+JVS(1395)*UV(69)+JVS(1396)*UV(70)& &+JVS(1397)*UV(71)+JVS(1398)*UV(72)+JVS(1399)*UV(73)+JVS(1400)*UV(74)+JVS(1401)*UV(75)+JVS(1402)*UV(76)& &+JVS(1403)*UV(77)+JVS(1404)*UV(78)+JVS(1405)*UV(79)+JVS(1406)*UV(80)+JVS(1407)*UV(81)+JVS(1408)*UV(82)& &+JVS(1409)*UV(83)+JVS(1410)*UV(84)+JVS(1411)*UV(86)+JVS(1412)*UV(87)+JVS(1413)*UV(88)+JVS(1414)*UV(90)& &+JVS(1415)*UV(91)+JVS(1416)*UV(92)+JVS(1418)*UV(94)+JVS(1419)*UV(95)+JVS(1421)*UV(97)+JVS(1422)*UV(98)& &+JVS(1423)*UV(100)+JVS(1424)*UV(101)+JVS(1425)*UV(102)+JVS(1426)*UV(103)+JVS(1427)*UV(104)+JVS(1428)*UV(105)& &+JVS(1429)*UV(106)+JVS(1430)*UV(107)+JVS(1431)*UV(108)+JVS(1432)*UV(109)+JVS(1433)*UV(110)+JVS(1434)*UV(111)& &+JVS(1435)*UV(112)+JVS(1436)*UV(113)+JVS(1437)*UV(114)+JVS(1438)*UV(115)+JVS(1439)*UV(116)+JVS(1440)*UV(117)& &+JVS(1441)*UV(118)+JVS(1442)*UV(119)+JVS(1443)*UV(120)+JVS(1444)*UV(121)+JVS(1445)*UV(122)+JVS(1446)*UV(123)& &+JVS(1448)*UV(125)+JVS(1449)*UV(126)+JVS(1450)*UV(127)+JVS(1451)*UV(128)+JVS(1452)*UV(129)+JVS(1453)*UV(130)& &+JVS(1455)*UV(132)+JVS(1456)*UV(133)+JVS(1457)*UV(134)+JVS(1458)*UV(135)+JVS(1459)*UV(136)+JVS(1460)*UV(137) JUV(137) = JVS(1461)*UV(71)+JVS(1462)*UV(97)+JVS(1463)*UV(106)+JVS(1464)*UV(108)+JVS(1465)*UV(116)+JVS(1471)*UV(126)& &+JVS(1476)*UV(132)+JVS(1477)*UV(133)+JVS(1478)*UV(134)+JVS(1480)*UV(136)+JVS(1481)*UV(137) END SUBROUTINE Jac_SP_Vec ! End of Jac_SP_Vec function ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! JacTR_SP_Vec - sparse multiplication: sparse Jacobian transposed times vector ! Arguments : ! JVS - sparse Jacobian of variables ! UV - User vector for variables ! JTUV - Jacobian transposed times user vector ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE JacTR_SP_Vec ( JVS, UV, JTUV ) ! JVS - sparse Jacobian of variables REAL(kind=dp) :: JVS(LU_NONZERO) ! UV - User vector for variables REAL(kind=dp) :: UV(NVAR) ! JTUV - Jacobian transposed times user vector REAL(kind=dp) :: JTUV(NVAR) JTUV(1) = JVS(1)*UV(1) JTUV(2) = JVS(3)*UV(2) JTUV(3) = JVS(5)*UV(3) JTUV(4) = JVS(7)*UV(4) JTUV(5) = JVS(9)*UV(5) JTUV(6) = JVS(11)*UV(6) JTUV(7) = JVS(13)*UV(7) JTUV(8) = JVS(15)*UV(8) JTUV(9) = JVS(17)*UV(9) JTUV(10) = JVS(19)*UV(10) JTUV(11) = JVS(21)*UV(11) JTUV(12) = JVS(23)*UV(12) JTUV(13) = JVS(26)*UV(13) JTUV(14) = JVS(29)*UV(14) JTUV(15) = JVS(32)*UV(15) JTUV(16) = JVS(35)*UV(16) JTUV(17) = JVS(33)*UV(15)+JVS(36)*UV(16)+JVS(38)*UV(17) JTUV(18) = JVS(39)*UV(17)+JVS(43)*UV(18) JTUV(19) = JVS(45)*UV(19) JTUV(20) = JVS(48)*UV(20) JTUV(21) = JVS(46)*UV(19)+JVS(49)*UV(20)+JVS(51)*UV(21) JTUV(22) = JVS(52)*UV(21)+JVS(56)*UV(22) JTUV(23) = JVS(58)*UV(23) JTUV(24) = JVS(61)*UV(24) JTUV(25) = JVS(59)*UV(23)+JVS(62)*UV(24)+JVS(64)*UV(25) JTUV(26) = JVS(65)*UV(25)+JVS(69)*UV(26) JTUV(27) = JVS(71)*UV(27) JTUV(28) = JVS(74)*UV(28) JTUV(29) = JVS(72)*UV(27)+JVS(75)*UV(28)+JVS(77)*UV(29) JTUV(30) = JVS(78)*UV(29)+JVS(82)*UV(30) JTUV(31) = JVS(84)*UV(31) JTUV(32) = JVS(87)*UV(32) JTUV(33) = JVS(89)*UV(33) JTUV(34) = JVS(91)*UV(34) JTUV(35) = JVS(93)*UV(35) JTUV(36) = JVS(95)*UV(36) JTUV(37) = JVS(97)*UV(37) JTUV(38) = JVS(99)*UV(38) JTUV(39) = JVS(101)*UV(39) JTUV(40) = JVS(103)*UV(40) JTUV(41) = JVS(105)*UV(41) JTUV(42) = JVS(107)*UV(42) JTUV(43) = JVS(134)*UV(43) JTUV(44) = JVS(156)*UV(44)+JVS(465)*UV(94)+JVS(502)*UV(98)+JVS(1177)*UV(132) JTUV(45) = JVS(20)*UV(10)+JVS(135)*UV(43)+JVS(158)*UV(45)+JVS(676)*UV(113)+JVS(991)*UV(128) JTUV(46) = JVS(4)*UV(2)+JVS(136)*UV(43)+JVS(161)*UV(46)+JVS(1178)*UV(132)+JVS(1384)*UV(136) JTUV(47) = JVS(94)*UV(35)+JVS(137)*UV(43)+JVS(164)*UV(47)+JVS(331)*UV(84)+JVS(1179)*UV(132) JTUV(48) = JVS(24)*UV(12)+JVS(167)*UV(48)+JVS(1180)*UV(132)+JVS(1385)*UV(136) JTUV(49) = JVS(14)*UV(7)+JVS(138)*UV(43)+JVS(171)*UV(49)+JVS(992)*UV(128)+JVS(1054)*UV(129)+JVS(1101)*UV(130)& &+JVS(1266)*UV(133) JTUV(50) = JVS(18)*UV(9)+JVS(139)*UV(43)+JVS(174)*UV(50)+JVS(448)*UV(92)+JVS(993)*UV(128) JTUV(51) = JVS(179)*UV(51)+JVS(512)*UV(99)+JVS(935)*UV(126)+JVS(1055)*UV(129)+JVS(1181)*UV(132) JTUV(52) = JVS(182)*UV(52)+JVS(513)*UV(99)+JVS(662)*UV(112)+JVS(1056)*UV(129)+JVS(1182)*UV(132) JTUV(53) = JVS(185)*UV(53)+JVS(994)*UV(128)+JVS(1183)*UV(132)+JVS(1315)*UV(134) JTUV(54) = JVS(189)*UV(54)+JVS(1102)*UV(130)+JVS(1184)*UV(132)+JVS(1267)*UV(133) JTUV(55) = JVS(8)*UV(4)+JVS(140)*UV(43)+JVS(193)*UV(55)+JVS(514)*UV(99)+JVS(995)*UV(128)+JVS(1057)*UV(129)+JVS(1316)& &*UV(134)+JVS(1359)*UV(135) JTUV(56) = JVS(196)*UV(56)+JVS(466)*UV(94)+JVS(952)*UV(127)+JVS(1185)*UV(132)+JVS(1386)*UV(136) JTUV(57) = JVS(200)*UV(57)+JVS(338)*UV(85)+JVS(503)*UV(98)+JVS(1186)*UV(132)+JVS(1387)*UV(136) JTUV(58) = JVS(204)*UV(58)+JVS(677)*UV(113)+JVS(747)*UV(115)+JVS(1187)*UV(132)+JVS(1388)*UV(136) JTUV(59) = JVS(208)*UV(59)+JVS(996)*UV(128)+JVS(1058)*UV(129)+JVS(1188)*UV(132)+JVS(1389)*UV(136) JTUV(60) = JVS(27)*UV(13)+JVS(168)*UV(48)+JVS(212)*UV(60)+JVS(515)*UV(99)+JVS(688)*UV(114)+JVS(1059)*UV(129)+JVS(1189)& &*UV(132)+JVS(1268)*UV(133) JTUV(61) = JVS(215)*UV(61)+JVS(663)*UV(112)+JVS(748)*UV(115)+JVS(1190)*UV(132)+JVS(1391)*UV(136) JTUV(62) = JVS(219)*UV(62)+JVS(689)*UV(114)+JVS(1191)*UV(132)+JVS(1269)*UV(133)+JVS(1392)*UV(136) JTUV(63) = JVS(223)*UV(63)+JVS(620)*UV(108)+JVS(690)*UV(114)+JVS(795)*UV(118)+JVS(1103)*UV(130)+JVS(1192)*UV(132) JTUV(64) = JVS(227)*UV(64)+JVS(568)*UV(102)+JVS(691)*UV(114)+JVS(888)*UV(122)+JVS(1104)*UV(130)+JVS(1193)*UV(132) JTUV(65) = JVS(106)*UV(41)+JVS(108)*UV(42)+JVS(141)*UV(43)+JVS(231)*UV(65)+JVS(284)*UV(75)+JVS(997)*UV(128)+JVS(1060)& &*UV(129)+JVS(1105)*UV(130) JTUV(66) = JVS(236)*UV(66)+JVS(936)*UV(126)+JVS(953)*UV(127)+JVS(1194)*UV(132)+JVS(1393)*UV(136) JTUV(67) = JVS(241)*UV(67)+JVS(483)*UV(96)+JVS(643)*UV(110)+JVS(954)*UV(127)+JVS(998)*UV(128)+JVS(1195)*UV(132)& &+JVS(1394)*UV(136) JTUV(68) = JVS(109)*UV(42)+JVS(245)*UV(68)+JVS(692)*UV(114)+JVS(999)*UV(128)+JVS(1196)*UV(132) JTUV(69) = JVS(252)*UV(69)+JVS(632)*UV(109)+JVS(693)*UV(114)+JVS(749)*UV(115)+JVS(831)*UV(119)+JVS(1197)*UV(132)& &+JVS(1395)*UV(136) JTUV(70) = JVS(110)*UV(42)+JVS(256)*UV(70)+JVS(413)*UV(91)+JVS(594)*UV(105)+JVS(694)*UV(114)+JVS(832)*UV(119)& &+JVS(1198)*UV(132)+JVS(1396)*UV(136) JTUV(71) = JVS(260)*UV(71)+JVS(785)*UV(117)+JVS(955)*UV(127)+JVS(1000)*UV(128)+JVS(1148)*UV(131)+JVS(1199)*UV(132)& &+JVS(1397)*UV(136)+JVS(1461)*UV(137) JTUV(72) = JVS(102)*UV(39)+JVS(111)*UV(42)+JVS(142)*UV(43)+JVS(264)*UV(72)+JVS(1200)*UV(132)+JVS(1398)*UV(136) JTUV(73) = JVS(276)*UV(73)+JVS(541)*UV(100)+JVS(560)*UV(101)+JVS(695)*UV(114)+JVS(796)*UV(118)+JVS(1106)*UV(130)& &+JVS(1149)*UV(131)+JVS(1201)*UV(132)+JVS(1399)*UV(136) JTUV(74) = JVS(92)*UV(34)+JVS(143)*UV(43)+JVS(165)*UV(47)+JVS(280)*UV(74)+JVS(696)*UV(114)+JVS(864)*UV(120)+JVS(876)& &*UV(121)+JVS(902)*UV(123)+JVS(912)*UV(124)+JVS(1202)*UV(132)+JVS(1400)*UV(136) JTUV(75) = JVS(112)*UV(42)+JVS(232)*UV(65)+JVS(285)*UV(75)+JVS(1001)*UV(128)+JVS(1107)*UV(130)+JVS(1203)*UV(132)& &+JVS(1317)*UV(134)+JVS(1401)*UV(136) JTUV(76) = JVS(290)*UV(76)+JVS(294)*UV(77)+JVS(414)*UV(91)+JVS(542)*UV(100)+JVS(654)*UV(111)+JVS(797)*UV(118)+JVS(833)& &*UV(119)+JVS(1204)*UV(132)+JVS(1402)*UV(136) JTUV(77) = JVS(295)*UV(77)+JVS(415)*UV(91)+JVS(834)*UV(119)+JVS(1150)*UV(131)+JVS(1205)*UV(132)+JVS(1403)*UV(136) JTUV(78) = JVS(113)*UV(42)+JVS(301)*UV(78)+JVS(354)*UV(87)+JVS(1151)*UV(131)+JVS(1206)*UV(132)+JVS(1360)*UV(135)& &+JVS(1404)*UV(136) JTUV(79) = JVS(16)*UV(8)+JVS(144)*UV(43)+JVS(307)*UV(79)+JVS(475)*UV(95)+JVS(697)*UV(114)+JVS(889)*UV(122)+JVS(1002)& &*UV(128)+JVS(1207)*UV(132)+JVS(1361)*UV(135)+JVS(1405)*UV(136) JTUV(80) = JVS(312)*UV(80)+JVS(576)*UV(103)+JVS(610)*UV(107)+JVS(772)*UV(116)+JVS(956)*UV(127)+JVS(1003)*UV(128)& &+JVS(1208)*UV(132)+JVS(1406)*UV(136) JTUV(81) = JVS(30)*UV(14)+JVS(114)*UV(42)+JVS(317)*UV(81)+JVS(348)*UV(86)+JVS(416)*UV(91)+JVS(698)*UV(114)+JVS(786)& &*UV(117)+JVS(865)*UV(120)+JVS(877)*UV(121)+JVS(903)*UV(123)+JVS(1062)*UV(129)+JVS(1209)*UV(132)+JVS(1362)& &*UV(135)+JVS(1407)*UV(136) JTUV(82) = JVS(90)*UV(33)+JVS(145)*UV(43)+JVS(321)*UV(82)+JVS(456)*UV(93)+JVS(583)*UV(104)+JVS(611)*UV(107)+JVS(699)& &*UV(114)+JVS(913)*UV(124)+JVS(1004)*UV(128)+JVS(1210)*UV(132)+JVS(1363)*UV(135)+JVS(1408)*UV(136) JTUV(83) = JVS(326)*UV(83)+JVS(402)*UV(90)+JVS(516)*UV(99)+JVS(543)*UV(100)+JVS(798)*UV(118)+JVS(835)*UV(119)& &+JVS(1005)*UV(128)+JVS(1211)*UV(132)+JVS(1318)*UV(134)+JVS(1409)*UV(136) JTUV(84) = JVS(115)*UV(42)+JVS(265)*UV(72)+JVS(333)*UV(84)+JVS(403)*UV(90)+JVS(417)*UV(91)+JVS(544)*UV(100)+JVS(700)& &*UV(114)+JVS(799)*UV(118)+JVS(836)*UV(119)+JVS(1006)*UV(128)+JVS(1212)*UV(132)+JVS(1319)*UV(134)+JVS(1410)& &*UV(136) JTUV(85) = JVS(339)*UV(85)+JVS(418)*UV(91)+JVS(621)*UV(108)+JVS(1108)*UV(130)+JVS(1213)*UV(132)+JVS(1270)*UV(133) JTUV(86) = JVS(349)*UV(86)+JVS(419)*UV(91)+JVS(633)*UV(109)+JVS(644)*UV(110)+JVS(701)*UV(114)+JVS(750)*UV(115)& &+JVS(1063)*UV(129)+JVS(1214)*UV(132)+JVS(1271)*UV(133)+JVS(1364)*UV(135)+JVS(1411)*UV(136) JTUV(87) = JVS(116)*UV(42)+JVS(237)*UV(66)+JVS(355)*UV(87)+JVS(517)*UV(99)+JVS(957)*UV(127)+JVS(1007)*UV(128)& &+JVS(1215)*UV(132)+JVS(1320)*UV(134)+JVS(1412)*UV(136) JTUV(88) = JVS(362)*UV(88)+JVS(958)*UV(127)+JVS(1216)*UV(132)+JVS(1413)*UV(136) JTUV(89) = JVS(104)*UV(40)+JVS(117)*UV(42)+JVS(146)*UV(43)+JVS(378)*UV(89)+JVS(1217)*UV(132)+JVS(1272)*UV(133) JTUV(90) = JVS(404)*UV(90)+JVS(420)*UV(91)+JVS(518)*UV(99)+JVS(702)*UV(114)+JVS(1064)*UV(129)+JVS(1218)*UV(132)& &+JVS(1414)*UV(136) JTUV(91) = JVS(118)*UV(42)+JVS(421)*UV(91)+JVS(1219)*UV(132)+JVS(1415)*UV(136) JTUV(92) = JVS(119)*UV(42)+JVS(175)*UV(50)+JVS(266)*UV(72)+JVS(379)*UV(89)+JVS(449)*UV(92)+JVS(703)*UV(114)+JVS(800)& &*UV(118)+JVS(837)*UV(119)+JVS(1008)*UV(128)+JVS(1065)*UV(129)+JVS(1220)*UV(132)+JVS(1321)*UV(134)+JVS(1416)& &*UV(136) JTUV(93) = JVS(85)*UV(31)+JVS(98)*UV(37)+JVS(147)*UV(43)+JVS(267)*UV(72)+JVS(457)*UV(93)+JVS(545)*UV(100)+JVS(704)& &*UV(114)+JVS(801)*UV(118)+JVS(1009)*UV(128)+JVS(1066)*UV(129)+JVS(1109)*UV(130)+JVS(1221)*UV(132) JTUV(94) = JVS(197)*UV(56)+JVS(363)*UV(88)+JVS(380)*UV(89)+JVS(467)*UV(94)+JVS(705)*UV(114)+JVS(959)*UV(127)+JVS(1010)& &*UV(128)+JVS(1110)*UV(130)+JVS(1274)*UV(133)+JVS(1322)*UV(134)+JVS(1418)*UV(136) JTUV(95) = JVS(120)*UV(42)+JVS(176)*UV(50)+JVS(233)*UV(65)+JVS(476)*UV(95)+JVS(706)*UV(114)+JVS(838)*UV(119)+JVS(1011)& &*UV(128)+JVS(1067)*UV(129)+JVS(1323)*UV(134)+JVS(1419)*UV(136) JTUV(96) = JVS(100)*UV(38)+JVS(148)*UV(43)+JVS(422)*UV(91)+JVS(484)*UV(96)+JVS(707)*UV(114)+JVS(803)*UV(118)+JVS(1012)& &*UV(128)+JVS(1224)*UV(132)+JVS(1276)*UV(133) JTUV(97) = JVS(121)*UV(42)+JVS(381)*UV(89)+JVS(423)*UV(91)+JVS(485)*UV(96)+JVS(495)*UV(97)+JVS(708)*UV(114)+JVS(804)& &*UV(118)+JVS(960)*UV(127)+JVS(1013)*UV(128)+JVS(1112)*UV(130)+JVS(1225)*UV(132)+JVS(1277)*UV(133)+JVS(1324)& &*UV(134)+JVS(1421)*UV(136)+JVS(1462)*UV(137) JTUV(98) = JVS(201)*UV(57)+JVS(340)*UV(85)+JVS(364)*UV(88)+JVS(382)*UV(89)+JVS(504)*UV(98)+JVS(709)*UV(114)+JVS(1014)& &*UV(128)+JVS(1113)*UV(130)+JVS(1278)*UV(133)+JVS(1325)*UV(134)+JVS(1422)*UV(136) JTUV(99) = JVS(6)*UV(3)+JVS(149)*UV(43)+JVS(519)*UV(99)+JVS(1015)*UV(128)+JVS(1068)*UV(129)+JVS(1227)*UV(132) JTUV(100) = JVS(122)*UV(42)+JVS(268)*UV(72)+JVS(405)*UV(90)+JVS(425)*UV(91)+JVS(546)*UV(100)+JVS(710)*UV(114)& &+JVS(1228)*UV(132)+JVS(1423)*UV(136) JTUV(101) = JVS(277)*UV(73)+JVS(365)*UV(88)+JVS(383)*UV(89)+JVS(458)*UV(93)+JVS(547)*UV(100)+JVS(561)*UV(101)+JVS(711)& &*UV(114)+JVS(805)*UV(118)+JVS(962)*UV(127)+JVS(1017)*UV(128)+JVS(1114)*UV(130)+JVS(1152)*UV(131)+JVS(1229)& &*UV(132)+JVS(1279)*UV(133)+JVS(1326)*UV(134)+JVS(1424)*UV(136) JTUV(102) = JVS(123)*UV(42)+JVS(366)*UV(88)+JVS(384)*UV(89)+JVS(521)*UV(99)+JVS(569)*UV(102)+JVS(712)*UV(114)+JVS(839)& &*UV(119)+JVS(1018)*UV(128)+JVS(1115)*UV(130)+JVS(1153)*UV(131)+JVS(1230)*UV(132)+JVS(1280)*UV(133)& &+JVS(1327)*UV(134)+JVS(1425)*UV(136) JTUV(103) = JVS(246)*UV(68)+JVS(269)*UV(72)+JVS(313)*UV(80)+JVS(486)*UV(96)+JVS(522)*UV(99)+JVS(548)*UV(100)+JVS(577)& &*UV(103)+JVS(584)*UV(104)+JVS(713)*UV(114)+JVS(840)*UV(119)+JVS(1019)*UV(128)+JVS(1072)*UV(129)+JVS(1154)& &*UV(131)+JVS(1231)*UV(132)+JVS(1328)*UV(134)+JVS(1426)*UV(136) JTUV(104) = JVS(96)*UV(36)+JVS(150)*UV(43)+JVS(426)*UV(91)+JVS(451)*UV(92)+JVS(585)*UV(104)+JVS(714)*UV(114)+JVS(807)& &*UV(118)+JVS(841)*UV(119)+JVS(1020)*UV(128)+JVS(1232)*UV(132)+JVS(1427)*UV(136) JTUV(105) = JVS(257)*UV(70)+JVS(367)*UV(88)+JVS(385)*UV(89)+JVS(427)*UV(91)+JVS(586)*UV(104)+JVS(595)*UV(105)+JVS(715)& &*UV(114)+JVS(808)*UV(118)+JVS(842)*UV(119)+JVS(1021)*UV(128)+JVS(1116)*UV(130)+JVS(1155)*UV(131)+JVS(1233)& &*UV(132)+JVS(1283)*UV(133)+JVS(1330)*UV(134)+JVS(1428)*UV(136) JTUV(106) = JVS(368)*UV(88)+JVS(386)*UV(89)+JVS(602)*UV(106)+JVS(716)*UV(114)+JVS(751)*UV(115)+JVS(1022)*UV(128)& &+JVS(1117)*UV(130)+JVS(1156)*UV(131)+JVS(1234)*UV(132)+JVS(1284)*UV(133)+JVS(1331)*UV(134)+JVS(1429)& &*UV(136)+JVS(1463)*UV(137) JTUV(107) = JVS(314)*UV(80)+JVS(459)*UV(93)+JVS(523)*UV(99)+JVS(549)*UV(100)+JVS(587)*UV(104)+JVS(613)*UV(107)& &+JVS(717)*UV(114)+JVS(843)*UV(119)+JVS(1023)*UV(128)+JVS(1235)*UV(132)+JVS(1332)*UV(134)+JVS(1430)*UV(136) JTUV(108) = JVS(224)*UV(63)+JVS(387)*UV(89)+JVS(623)*UV(108)+JVS(718)*UV(114)+JVS(810)*UV(118)+JVS(844)*UV(119)& &+JVS(1024)*UV(128)+JVS(1119)*UV(130)+JVS(1236)*UV(132)+JVS(1286)*UV(133)+JVS(1333)*UV(134)+JVS(1431)& &*UV(136)+JVS(1464)*UV(137) JTUV(109) = JVS(253)*UV(69)+JVS(369)*UV(88)+JVS(388)*UV(89)+JVS(634)*UV(109)+JVS(719)*UV(114)+JVS(752)*UV(115)& &+JVS(845)*UV(119)+JVS(968)*UV(127)+JVS(1025)*UV(128)+JVS(1120)*UV(130)+JVS(1287)*UV(133)+JVS(1334)*UV(134)& &+JVS(1432)*UV(136) JTUV(110) = JVS(242)*UV(67)+JVS(370)*UV(88)+JVS(389)*UV(89)+JVS(645)*UV(110)+JVS(720)*UV(114)+JVS(753)*UV(115)& &+JVS(969)*UV(127)+JVS(1026)*UV(128)+JVS(1121)*UV(130)+JVS(1288)*UV(133)+JVS(1335)*UV(134)+JVS(1433)*UV(136) JTUV(111) = JVS(291)*UV(76)+JVS(296)*UV(77)+JVS(302)*UV(78)+JVS(371)*UV(88)+JVS(390)*UV(89)+JVS(406)*UV(90)+JVS(428)& &*UV(91)+JVS(524)*UV(99)+JVS(550)*UV(100)+JVS(655)*UV(111)+JVS(721)*UV(114)+JVS(812)*UV(118)+JVS(846)& &*UV(119)+JVS(970)*UV(127)+JVS(1027)*UV(128)+JVS(1122)*UV(130)+JVS(1158)*UV(131)+JVS(1239)*UV(132)+JVS(1289)& &*UV(133)+JVS(1336)*UV(134)+JVS(1434)*UV(136) JTUV(112) = JVS(216)*UV(61)+JVS(391)*UV(89)+JVS(664)*UV(112)+JVS(722)*UV(114)+JVS(754)*UV(115)+JVS(1028)*UV(128)& &+JVS(1123)*UV(130)+JVS(1290)*UV(133)+JVS(1337)*UV(134)+JVS(1435)*UV(136) JTUV(113) = JVS(159)*UV(45)+JVS(205)*UV(58)+JVS(665)*UV(112)+JVS(678)*UV(113)+JVS(723)*UV(114)+JVS(1029)*UV(128)& &+JVS(1124)*UV(130)+JVS(1241)*UV(132)+JVS(1291)*UV(133)+JVS(1338)*UV(134)+JVS(1366)*UV(135)+JVS(1436)& &*UV(136) JTUV(114) = JVS(2)*UV(1)+JVS(151)*UV(43)+JVS(429)*UV(91)+JVS(525)*UV(99)+JVS(724)*UV(114)+JVS(1077)*UV(129)+JVS(1242)& &*UV(132)+JVS(1437)*UV(136) JTUV(115) = JVS(430)*UV(91)+JVS(526)*UV(99)+JVS(725)*UV(114)+JVS(756)*UV(115)+JVS(1078)*UV(129)+JVS(1125)*UV(130)& &+JVS(1243)*UV(132)+JVS(1292)*UV(133)+JVS(1438)*UV(136) JTUV(116) = JVS(372)*UV(88)+JVS(392)*UV(89)+JVS(726)*UV(114)+JVS(757)*UV(115)+JVS(775)*UV(116)+JVS(939)*UV(126)& &+JVS(971)*UV(127)+JVS(1032)*UV(128)+JVS(1126)*UV(130)+JVS(1293)*UV(133)+JVS(1339)*UV(134)+JVS(1439)*UV(136)& &+JVS(1465)*UV(137) JTUV(117) = JVS(261)*UV(71)+JVS(373)*UV(88)+JVS(393)*UV(89)+JVS(527)*UV(99)+JVS(727)*UV(114)+JVS(787)*UV(117)+JVS(866)& &*UV(120)+JVS(878)*UV(121)+JVS(914)*UV(124)+JVS(925)*UV(125)+JVS(972)*UV(127)+JVS(1033)*UV(128)+JVS(1080)& &*UV(129)+JVS(1127)*UV(130)+JVS(1245)*UV(132)+JVS(1294)*UV(133)+JVS(1340)*UV(134)+JVS(1440)*UV(136) JTUV(118) = JVS(431)*UV(91)+JVS(528)*UV(99)+JVS(758)*UV(115)+JVS(813)*UV(118)+JVS(1081)*UV(129)+JVS(1128)*UV(130)& &+JVS(1246)*UV(132)+JVS(1441)*UV(136) JTUV(119) = JVS(124)*UV(42)+JVS(270)*UV(72)+JVS(394)*UV(89)+JVS(432)*UV(91)+JVS(728)*UV(114)+JVS(814)*UV(118)+JVS(847)& &*UV(119)+JVS(1129)*UV(130)+JVS(1247)*UV(132)+JVS(1296)*UV(133)+JVS(1442)*UV(136) JTUV(120) = JVS(350)*UV(86)+JVS(433)*UV(91)+JVS(562)*UV(101)+JVS(729)*UV(114)+JVS(759)*UV(115)+JVS(815)*UV(118)& &+JVS(867)*UV(120)+JVS(890)*UV(122)+JVS(1130)*UV(130)+JVS(1248)*UV(132)+JVS(1297)*UV(133)+JVS(1367)*UV(135)& &+JVS(1443)*UV(136) JTUV(121) = JVS(125)*UV(42)+JVS(434)*UV(91)+JVS(496)*UV(97)+JVS(529)*UV(99)+JVS(596)*UV(105)+JVS(730)*UV(114)+JVS(816)& &*UV(118)+JVS(879)*UV(121)+JVS(891)*UV(122)+JVS(1084)*UV(129)+JVS(1131)*UV(130)+JVS(1249)*UV(132)+JVS(1368)& &*UV(135)+JVS(1444)*UV(136) JTUV(122) = JVS(126)*UV(42)+JVS(228)*UV(64)+JVS(308)*UV(79)+JVS(435)*UV(91)+JVS(624)*UV(108)+JVS(731)*UV(114)+JVS(850)& &*UV(119)+JVS(892)*UV(122)+JVS(1038)*UV(128)+JVS(1132)*UV(130)+JVS(1250)*UV(132)+JVS(1299)*UV(133)+JVS(1343)& &*UV(134)+JVS(1369)*UV(135)+JVS(1445)*UV(136) JTUV(123) = JVS(127)*UV(42)+JVS(281)*UV(74)+JVS(322)*UV(82)+JVS(327)*UV(83)+JVS(374)*UV(88)+JVS(395)*UV(89)+JVS(732)& &*UV(114)+JVS(868)*UV(120)+JVS(880)*UV(121)+JVS(904)*UV(123)+JVS(915)*UV(124)+JVS(926)*UV(125)+JVS(1039)& &*UV(128)+JVS(1133)*UV(130)+JVS(1163)*UV(131)+JVS(1251)*UV(132)+JVS(1300)*UV(133)+JVS(1344)*UV(134)& &+JVS(1446)*UV(136) JTUV(124) = JVS(271)*UV(72)+JVS(437)*UV(91)+JVS(552)*UV(100)+JVS(656)*UV(111)+JVS(733)*UV(114)+JVS(819)*UV(118)& &+JVS(852)*UV(119)+JVS(916)*UV(124)+JVS(1252)*UV(132)+JVS(1371)*UV(135) JTUV(125) = JVS(88)*UV(32)+JVS(152)*UV(43)+JVS(247)*UV(68)+JVS(488)*UV(96)+JVS(553)*UV(100)+JVS(579)*UV(103)+JVS(853)& &*UV(119)+JVS(917)*UV(124)+JVS(927)*UV(125)+JVS(1041)*UV(128)+JVS(1253)*UV(132)+JVS(1372)*UV(135)+JVS(1448)& &*UV(136) JTUV(126) = JVS(238)*UV(66)+JVS(341)*UV(85)+JVS(375)*UV(88)+JVS(396)*UV(89)+JVS(468)*UV(94)+JVS(505)*UV(98)+JVS(666)& &*UV(112)+JVS(735)*UV(114)+JVS(760)*UV(115)+JVS(943)*UV(126)+JVS(979)*UV(127)+JVS(1042)*UV(128)+JVS(1136)& &*UV(130)+JVS(1166)*UV(131)+JVS(1303)*UV(133)+JVS(1347)*UV(134)+JVS(1449)*UV(136)+JVS(1471)*UV(137) JTUV(127) = JVS(439)*UV(91)+JVS(531)*UV(99)+JVS(667)*UV(112)+JVS(679)*UV(113)+JVS(980)*UV(127)+JVS(1090)*UV(129)& &+JVS(1255)*UV(132)+JVS(1450)*UV(136) JTUV(128) = JVS(10)*UV(5)+JVS(153)*UV(43)+JVS(160)*UV(45)+JVS(172)*UV(49)+JVS(177)*UV(50)+JVS(186)*UV(53)+JVS(194)& &*UV(55)+JVS(209)*UV(59)+JVS(234)*UV(65)+JVS(287)*UV(75)+JVS(309)*UV(79)+JVS(452)*UV(92)+JVS(532)*UV(99)& &+JVS(680)*UV(113)+JVS(894)*UV(122)+JVS(1044)*UV(128)+JVS(1091)*UV(129)+JVS(1138)*UV(130)+JVS(1256)*UV(132)& &+JVS(1349)*UV(134)+JVS(1374)*UV(135)+JVS(1451)*UV(136) JTUV(129) = JVS(169)*UV(48)+JVS(180)*UV(51)+JVS(183)*UV(52)+JVS(195)*UV(55)+JVS(213)*UV(60)+JVS(318)*UV(81)+JVS(351)& &*UV(86)+JVS(408)*UV(90)+JVS(440)*UV(91)+JVS(497)*UV(97)+JVS(533)*UV(99)+JVS(603)*UV(106)+JVS(647)*UV(110)& &+JVS(668)*UV(112)+JVS(681)*UV(113)+JVS(738)*UV(114)+JVS(763)*UV(115)+JVS(788)*UV(117)+JVS(823)*UV(118)& &+JVS(881)*UV(121)+JVS(895)*UV(122)+JVS(918)*UV(124)+JVS(928)*UV(125)+JVS(944)*UV(126)+JVS(982)*UV(127)& &+JVS(1045)*UV(128)+JVS(1092)*UV(129)+JVS(1139)*UV(130)+JVS(1168)*UV(131)+JVS(1257)*UV(132)+JVS(1306)& &*UV(133)+JVS(1350)*UV(134)+JVS(1375)*UV(135)+JVS(1452)*UV(136) JTUV(130) = JVS(128)*UV(42)+JVS(173)*UV(49)+JVS(190)*UV(54)+JVS(297)*UV(77)+JVS(303)*UV(78)+JVS(328)*UV(83)+JVS(342)& &*UV(85)+JVS(397)*UV(89)+JVS(409)*UV(90)+JVS(441)*UV(91)+JVS(469)*UV(94)+JVS(489)*UV(96)+JVS(498)*UV(97)& &+JVS(506)*UV(98)+JVS(534)*UV(99)+JVS(554)*UV(100)+JVS(563)*UV(101)+JVS(571)*UV(102)+JVS(597)*UV(105)& &+JVS(604)*UV(106)+JVS(626)*UV(108)+JVS(637)*UV(109)+JVS(648)*UV(110)+JVS(657)*UV(111)+JVS(669)*UV(112)& &+JVS(682)*UV(113)+JVS(739)*UV(114)+JVS(764)*UV(115)+JVS(778)*UV(116)+JVS(789)*UV(117)+JVS(824)*UV(118)& &+JVS(857)*UV(119)+JVS(870)*UV(120)+JVS(882)*UV(121)+JVS(896)*UV(122)+JVS(906)*UV(123)+JVS(919)*UV(124)& &+JVS(945)*UV(126)+JVS(983)*UV(127)+JVS(1046)*UV(128)+JVS(1140)*UV(130)+JVS(1169)*UV(131)+JVS(1258)*UV(132)& &+JVS(1307)*UV(133)+JVS(1351)*UV(134)+JVS(1376)*UV(135)+JVS(1453)*UV(136) JTUV(131) = JVS(535)*UV(99)+JVS(605)*UV(106)+JVS(670)*UV(112)+JVS(683)*UV(113)+JVS(1094)*UV(129)+JVS(1141)*UV(130)& &+JVS(1170)*UV(131)+JVS(1259)*UV(132)+JVS(1308)*UV(133) JTUV(132) = JVS(25)*UV(12)+JVS(28)*UV(13)+JVS(31)*UV(14)+JVS(40)*UV(17)+JVS(44)*UV(18)+JVS(53)*UV(21)+JVS(57)*UV(22)& &+JVS(66)*UV(25)+JVS(70)*UV(26)+JVS(79)*UV(29)+JVS(83)*UV(30)+JVS(86)*UV(31)+JVS(129)*UV(42)+JVS(157)*UV(44)& &+JVS(162)*UV(46)+JVS(166)*UV(47)+JVS(170)*UV(48)+JVS(181)*UV(51)+JVS(184)*UV(52)+JVS(187)*UV(53)+JVS(191)& &*UV(54)+JVS(198)*UV(56)+JVS(202)*UV(57)+JVS(206)*UV(58)+JVS(210)*UV(59)+JVS(214)*UV(60)+JVS(217)*UV(61)& &+JVS(220)*UV(62)+JVS(225)*UV(63)+JVS(229)*UV(64)+JVS(239)*UV(66)+JVS(243)*UV(67)+JVS(248)*UV(68)+JVS(254)& &*UV(69)+JVS(258)*UV(70)+JVS(262)*UV(71)+JVS(272)*UV(72)+JVS(278)*UV(73)+JVS(282)*UV(74)+JVS(292)*UV(76)& &+JVS(298)*UV(77)+JVS(304)*UV(78)+JVS(310)*UV(79)+JVS(315)*UV(80)+JVS(319)*UV(81)+JVS(323)*UV(82)+JVS(335)& &*UV(84)+JVS(343)*UV(85)+JVS(352)*UV(86)+JVS(358)*UV(87)+JVS(376)*UV(88)+JVS(398)*UV(89)+JVS(410)*UV(90)& &+JVS(442)*UV(91)+JVS(453)*UV(92)+JVS(461)*UV(93)+JVS(470)*UV(94)+JVS(479)*UV(95)+JVS(490)*UV(96)+JVS(507)& &*UV(98)+JVS(536)*UV(99)+JVS(555)*UV(100)+JVS(564)*UV(101)+JVS(572)*UV(102)+JVS(580)*UV(103)+JVS(590)& &*UV(104)+JVS(598)*UV(105)+JVS(606)*UV(106)+JVS(616)*UV(107)+JVS(627)*UV(108)+JVS(638)*UV(109)+JVS(649)& &*UV(110)+JVS(658)*UV(111)+JVS(671)*UV(112)+JVS(684)*UV(113)+JVS(741)*UV(114)+JVS(766)*UV(115)+JVS(779)& &*UV(116)+JVS(790)*UV(117)+JVS(825)*UV(118)+JVS(858)*UV(119)+JVS(871)*UV(120)+JVS(883)*UV(121)+JVS(897)& &*UV(122)+JVS(907)*UV(123)+JVS(920)*UV(124)+JVS(930)*UV(125)+JVS(946)*UV(126)+JVS(985)*UV(127)+JVS(1048)& &*UV(128)+JVS(1095)*UV(129)+JVS(1142)*UV(130)+JVS(1171)*UV(131)+JVS(1260)*UV(132)+JVS(1309)*UV(133)& &+JVS(1353)*UV(134)+JVS(1378)*UV(135)+JVS(1455)*UV(136)+JVS(1476)*UV(137) JTUV(133) = JVS(130)*UV(42)+JVS(221)*UV(62)+JVS(344)*UV(85)+JVS(377)*UV(88)+JVS(399)*UV(89)+JVS(443)*UV(91)+JVS(471)& &*UV(94)+JVS(491)*UV(96)+JVS(499)*UV(97)+JVS(508)*UV(98)+JVS(537)*UV(99)+JVS(556)*UV(100)+JVS(565)*UV(101)& &+JVS(573)*UV(102)+JVS(599)*UV(105)+JVS(607)*UV(106)+JVS(628)*UV(108)+JVS(639)*UV(109)+JVS(650)*UV(110)& &+JVS(659)*UV(111)+JVS(672)*UV(112)+JVS(685)*UV(113)+JVS(742)*UV(114)+JVS(767)*UV(115)+JVS(780)*UV(116)& &+JVS(791)*UV(117)+JVS(826)*UV(118)+JVS(859)*UV(119)+JVS(872)*UV(120)+JVS(884)*UV(121)+JVS(898)*UV(122)& &+JVS(908)*UV(123)+JVS(921)*UV(124)+JVS(947)*UV(126)+JVS(986)*UV(127)+JVS(1049)*UV(128)+JVS(1143)*UV(130)& &+JVS(1172)*UV(131)+JVS(1261)*UV(132)+JVS(1310)*UV(133)+JVS(1354)*UV(134)+JVS(1379)*UV(135)+JVS(1456)& &*UV(136)+JVS(1477)*UV(137) JTUV(134) = JVS(37)*UV(16)+JVS(41)*UV(17)+JVS(50)*UV(20)+JVS(54)*UV(21)+JVS(63)*UV(24)+JVS(67)*UV(25)+JVS(76)*UV(28)& &+JVS(80)*UV(29)+JVS(131)*UV(42)+JVS(178)*UV(50)+JVS(188)*UV(53)+JVS(235)*UV(65)+JVS(249)*UV(68)+JVS(273)& &*UV(72)+JVS(288)*UV(75)+JVS(299)*UV(77)+JVS(305)*UV(78)+JVS(324)*UV(82)+JVS(329)*UV(83)+JVS(336)*UV(84)& &+JVS(345)*UV(85)+JVS(359)*UV(87)+JVS(400)*UV(89)+JVS(411)*UV(90)+JVS(444)*UV(91)+JVS(454)*UV(92)+JVS(462)& &*UV(93)+JVS(472)*UV(94)+JVS(480)*UV(95)+JVS(492)*UV(96)+JVS(500)*UV(97)+JVS(509)*UV(98)+JVS(538)*UV(99)& &+JVS(557)*UV(100)+JVS(566)*UV(101)+JVS(574)*UV(102)+JVS(581)*UV(103)+JVS(591)*UV(104)+JVS(600)*UV(105)& &+JVS(608)*UV(106)+JVS(617)*UV(107)+JVS(629)*UV(108)+JVS(640)*UV(109)+JVS(651)*UV(110)+JVS(660)*UV(111)& &+JVS(673)*UV(112)+JVS(686)*UV(113)+JVS(743)*UV(114)+JVS(768)*UV(115)+JVS(781)*UV(116)+JVS(792)*UV(117)& &+JVS(827)*UV(118)+JVS(860)*UV(119)+JVS(873)*UV(120)+JVS(885)*UV(121)+JVS(899)*UV(122)+JVS(909)*UV(123)& &+JVS(922)*UV(124)+JVS(932)*UV(125)+JVS(948)*UV(126)+JVS(987)*UV(127)+JVS(1050)*UV(128)+JVS(1097)*UV(129)& &+JVS(1144)*UV(130)+JVS(1173)*UV(131)+JVS(1262)*UV(132)+JVS(1311)*UV(133)+JVS(1355)*UV(134)+JVS(1380)& &*UV(135)+JVS(1457)*UV(136)+JVS(1478)*UV(137) JTUV(135) = JVS(12)*UV(6)+JVS(132)*UV(42)+JVS(154)*UV(43)+JVS(250)*UV(68)+JVS(274)*UV(72)+JVS(306)*UV(78)+JVS(311)& &*UV(79)+JVS(320)*UV(81)+JVS(325)*UV(82)+JVS(353)*UV(86)+JVS(445)*UV(91)+JVS(463)*UV(93)+JVS(493)*UV(96)& &+JVS(558)*UV(100)+JVS(592)*UV(104)+JVS(744)*UV(114)+JVS(769)*UV(115)+JVS(828)*UV(118)+JVS(861)*UV(119)& &+JVS(874)*UV(120)+JVS(886)*UV(121)+JVS(923)*UV(124)+JVS(933)*UV(125)+JVS(1051)*UV(128)+JVS(1098)*UV(129)& &+JVS(1174)*UV(131)+JVS(1263)*UV(132)+JVS(1312)*UV(133)+JVS(1356)*UV(134)+JVS(1381)*UV(135)+JVS(1458)& &*UV(136) JTUV(136) = JVS(34)*UV(15)+JVS(42)*UV(17)+JVS(47)*UV(19)+JVS(55)*UV(21)+JVS(60)*UV(23)+JVS(68)*UV(25)+JVS(73)*UV(27)& &+JVS(81)*UV(29)+JVS(133)*UV(42)+JVS(163)*UV(46)+JVS(192)*UV(54)+JVS(199)*UV(56)+JVS(203)*UV(57)+JVS(207)& &*UV(58)+JVS(211)*UV(59)+JVS(218)*UV(61)+JVS(222)*UV(62)+JVS(226)*UV(63)+JVS(230)*UV(64)+JVS(240)*UV(66)& &+JVS(244)*UV(67)+JVS(251)*UV(68)+JVS(255)*UV(69)+JVS(259)*UV(70)+JVS(263)*UV(71)+JVS(275)*UV(72)+JVS(279)& &*UV(73)+JVS(283)*UV(74)+JVS(289)*UV(75)+JVS(293)*UV(76)+JVS(316)*UV(80)+JVS(330)*UV(83)+JVS(337)*UV(84)& &+JVS(361)*UV(87)+JVS(401)*UV(89)+JVS(412)*UV(90)+JVS(446)*UV(91)+JVS(455)*UV(92)+JVS(464)*UV(93)+JVS(473)& &*UV(94)+JVS(482)*UV(95)+JVS(494)*UV(96)+JVS(501)*UV(97)+JVS(510)*UV(98)+JVS(559)*UV(100)+JVS(567)*UV(101)& &+JVS(575)*UV(102)+JVS(582)*UV(103)+JVS(593)*UV(104)+JVS(601)*UV(105)+JVS(609)*UV(106)+JVS(619)*UV(107)& &+JVS(630)*UV(108)+JVS(642)*UV(109)+JVS(653)*UV(110)+JVS(661)*UV(111)+JVS(674)*UV(112)+JVS(687)*UV(113)& &+JVS(745)*UV(114)+JVS(770)*UV(115)+JVS(783)*UV(116)+JVS(794)*UV(117)+JVS(829)*UV(118)+JVS(862)*UV(119)& &+JVS(875)*UV(120)+JVS(887)*UV(121)+JVS(901)*UV(122)+JVS(911)*UV(123)+JVS(934)*UV(125)+JVS(950)*UV(126)& &+JVS(989)*UV(127)+JVS(1052)*UV(128)+JVS(1099)*UV(129)+JVS(1146)*UV(130)+JVS(1175)*UV(131)+JVS(1264)*UV(132)& &+JVS(1313)*UV(133)+JVS(1357)*UV(134)+JVS(1382)*UV(135)+JVS(1459)*UV(136)+JVS(1480)*UV(137) JTUV(137) = JVS(22)*UV(11)+JVS(155)*UV(43)+JVS(347)*UV(85)+JVS(474)*UV(94)+JVS(511)*UV(98)+JVS(675)*UV(112)+JVS(771)& &*UV(115)+JVS(784)*UV(116)+JVS(990)*UV(127)+JVS(1053)*UV(128)+JVS(1176)*UV(131)+JVS(1265)*UV(132)+JVS(1314)& &*UV(133)+JVS(1460)*UV(136)+JVS(1481)*UV(137) END SUBROUTINE JacTR_SP_Vec ! End of JacTR_SP_Vec function ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ END MODULE gckpp_Jacobian